בירור | קוד מאקרו ליישור שני טורים בוורד

[ששמעון]

@NykUser כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

ומסגרת הטקסט יכולה להיות חלק מהסגנון

איך עושים דבר כזה?

[NykUser]

@ששמעון כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

@NykUser כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

ומסגרת הטקסט יכולה להיות חלק מהסגנון

איך עושים דבר כזה?

כך, סליחה אצלי הכל באנגלית

[מניין]

@שמעלקא-0 לאחרונה לפעמים כשאני פותח מסמך חדש נפתח לי חלון זה,

מי יודע איך מבטלים את זה?

[es0583292679]

@מניין
שלב ראשון, תתפלל.
שלב שני, תנסה להשבית את החיבור לתבנית מ'מפתחים'>תבנית מסמך, ולהחליף תבנית, ואולי אפילו נתיב אך לא נראה שזה הבעיה, ולחבר את החדש.

[שמעלקא 0]

@מניין יש לך את תוכנת החיפוש Everytinge במחשב?
אם כן חפש את שם קובץ התבנית ההוא בכל נבכי המחשב, ומחק אותו.

[אבי 0]

@מאקרו האם ידוע לך פקודות מקרו שמזיזות את הסמן לסוף הטור הימיני [כלומר לשורה האחרונה בטור הימני] בעמוד המוצג?
אודה לך מאד אם תעלה כאן.

[רפרם בר בר פפא]

@אבי-0 כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:
ניתן לעבור בלולאה על כל השורות עד שמוצא את השורה אם גובה כמו שהוגדר לגובה טור 1
דוגמא (גובה טור 1 בדוגמא מוגדר ב col1 )

'הולך לשורה הראשונה בעמוד
Set MyRange = ActiveDocument.Bookmarks("\page").range
    MyRange.SetRange Start:=MyRange.Start, End:=MyRange.Start
    MyRange.Select
'רד לשורה אחרונה בטור
    For i = 1 To NumLines
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    If col1 = Selection.Information(wdVerticalPositionRelativeToPage) Then
    Exit For
    ElseIf col1 > Selection.Information(wdVerticalPositionRelativeToPage) Then

[אבי 0]

@רפרם-בר-בר-פפא תודה על המענה זה כותב לי את השגיאה הבאה

אני חושב שמחמת שהשורה התחתונה בקוד שלך חסר משהו אחרי "THEN".
2. האם בבקשה אתה יכול להסביר יותר, מה אתה מתכוון שאני צריך להגדיר במקרו, ומה כוונתך ל"גובה טור 1"
תודה!

[רפרם בר בר פפא]

@אבי-0
1 השגיאה היא חוסר ב סוף אם (End If) כעת תקנתי
`2 יש להוסיף אחרי המאקרו שהביא`` @NykUser שמגדיר הפרש בין טורים ומגדיר גובה טור 1 וגובה טור 2 והוספה שלי מגדירה בסיום המאקרו לעבור לשורה השווה לגובה טור 1 שהיא השורה האחרונה בטור הימני
להלן הקוד המלא אם החלק הראשון שבנוי על הקוד שהביא @NykUser ובתוספת שכתבתי

Public Sub שורה_אחרונה_בטור()
'בודק אם יש שני טורים
If Selection.PageSetup.TextColumns.Count <> 2 Then MsgBox ("לא נמצאו 2 טורים"): Exit Sub
'עדכון מסך שקר
Application.ScreenUpdating = False
Dim WRange As range
Dim NumLines, col1, col2, Ignore As Double
'מספר שורות כולל בשני טורים

NumLines = ActiveDocument.Bookmarks("\page").range.ComputeStatistics(wdStatisticLines)
ActiveDocument.Bookmarks("\page").range.Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1
'מגדיר אורך טור 1
For i = 1 To NumLines
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
   If col1 > Selection.Information(wdVerticalPositionRelativeToPage) Then
        Exit For
    Else
        col1 = Selection.Information(wdVerticalPositionRelativeToPage)
    End If
    
Next
'עובר לשורה ראשונה בעמוד
Set MyRange = ActiveDocument.Bookmarks("\page").range
    MyRange.SetRange Start:=MyRange.Start, End:=MyRange.Start
    MyRange.Select
'רד לשורה אחרונה בטור
    For i = 1 To NumLines
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, Name:=""
    If col1 = Selection.Information(wdVerticalPositionRelativeToPage) Then
    Exit For
    ElseIf col1 > Selection.Information(wdVerticalPositionRelativeToPage) Then

    End If
    Next
    
End Sub

[אבי 0]

@רפרם-בר-בר-פפא זה עדיין כותב לי את השגיאה הבאה

2. האם זה מתאים למסמך שיש בו פסקאות שהמילה הראשונה היא ב"חלונות" [כמקובל בספרים תורניים] בשיטת המסגרת.

[רפרם בר בר פפא]

@אבי-0
1 השגיאה כיוון שהכנסת אותה בתוך פקודת מאקרו אאא הקוד שהבאתי הוא פקודה מלאה יש להעתיקו לעורך ולהפעיל מאקרו שורה_אחרונה _בטור מתוך רשימת המאקרו שלך
2 צריך לפעול לא ניסיתי

[אבי 0]

@רפרם-בר-בר-פפא עובד מצויין!
ישר כח גדול!

[מאקרו]

@אבי-0 כתב בבירור | קוד מאקרו ליישור שני טורים בוורד:

האם זה מתאים למסמך שיש בו פסקאות שהמילה הראשונה היא ב"חלונות" [כמקובל בספרים תורניים] בשיטת המסגרת.

יש איזשהו באג בוורד שכאשר המילה הראשונה בתוך מסגרת הוא מחשב את השורות כאילו הפיסקה הזאת נמצאת בנפרד, דהיינו כמו שהשורות היו מעוצבות במקרה שזה לא היה במסגרת. ולכן בכל הפקודה דלעיל עלולות לצוץ תקלות. (אמנם לא בהכרח, אבל זה קורה).

[רפרם בר בר פפא]

@מאקרו
לא בפקודה שהבאתי שאינה משתמשת בפסקאות רק בפקודה ליישור טורים

[es0583292679]

@רפרם-בר-בר-פפא
אני צריך אותך רגע לפרטי, אך אין לך פרטי כרגע, אודה ואשמח מאד אם תתקשר אליי ל: 0583292679

[מאקרו]

@רפרם-בר-בר-פפא זה לא קשור לפיסקאות אלא לשורות וכאשר אתה משתמש בפקודה זו:

Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1

פעמים שזה לא יעבור למיקום שתכננת, דו"ק ותשכח.

[רפרם בר בר פפא]

@מאקרו
בנסיון שלי לא נתקל בבעיה לעבור שורה

[מאקרו]

כאן אתה יכול לראות שלמרות שבפועל ישנם 4 שורות הוורד מחשיב זאת כ-3 בלבד!

[רפרם בר בר פפא]

@מאקרו
לגבי לרדת לשורה אחרונה בטור ולבדוק גובה טור זה לא נפקא מיניה לפי עניות דעתי

[מאקרו]

@רפרם-בר-בר-פפא הנפ"מ היא כאשר השורה האחרונה קצרה עם מילה בודדת, שאז השורה יכולה להתפספס כאשר 'וורד' ידלג עליה.