אופיס 365 מאקרו ל-2 טורים

[Yisrael]

בסה"כ רציתי ליצור מאקרו שיהפוך את הטקסט של כל המסמך מטור 1 ל-2 (ברוחב מסוים)
ניסיתי להקליט וזה לא עובד. מישהו יודע למה, או אולי יוכל לכתוב לי מאקרו כזה?

 

[אלחנן אריאל]

תכתוב את הקוד שלא עובד, שנדע מה לא לנסות.

 

[Yisrael]

תכתוב את הקוד שלא עובד, שנדע מה לא לנסות.

Sub טורים()
'
' טורים Macro
'
'
    Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    With Selection.PageSetup.TextColumns
        .SetCount NumColumns:=2
        .EvenlySpaced = True
        .LineBetween = False
        .Width = CentimetersToPoints(7)
        .Spacing = CentimetersToPoints(0.65)
        .FlowDirection = wdFlowRtl
    End With
    ActiveWindow.ActivePane.VerticalPercentScrolled = 74
    ActiveWindow.ActivePane.VerticalPercentScrolled = 64
    ActiveWindow.ActivePane.VerticalPercentScrolled = 57
    ActiveWindow.ActivePane.VerticalPercentScrolled = 46
    ActiveWindow.ActivePane.VerticalPercentScrolled = 26
    ActiveWindow.ActivePane.VerticalPercentScrolled = 0
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

כשאני מפעיל את הקוד הזה הוא נותן לי את הודעת השגיאה הבאה:
object variable or with block variable not set

תודה מראש

 

[sek]

האם אפשרי שידלג פיסקאות שמתחילות בקוד מסוים

 

[Yisrael]

ואם כבר בעניין טורים עסקינן...

אולי מישהו יודע האיך ניתן לעשות שהטורים בהערות שוליים ובטקסט העליון יהיו מחולקים בשוה בעמוד, זאת אומרת שגובה ההערות בעמוד יתחילו בשני הטורים בשוה כמו שישנו ברוב הספרים?

 

[אלחנן אריאל]

   With ActiveDocument.PageSetup.TextColumns
        .SetCount NumColumns:=2
        .EvenlySpaced = True
        .Width = CentimetersToPoints(7.87)
        .Spacing = CentimetersToPoints(1.25)
        .FlowDirection = wdFlowRtl
    End With

 

[Yisrael]

   With ActiveDocument.PageSetup.TextColumns
        .SetCount NumColumns:=2
        .EvenlySpaced = True
        .Width = CentimetersToPoints(7.87)
        .Spacing = CentimetersToPoints(1.25)
        .FlowDirection = wdFlowRtl
    End With

תודה רבה, עזר לי מאוד!

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

 

[אלחנן אריאל]

האמת שאיני מתכנת. אך אחר הרבה נסיונות, רכשתי מיומנות מסויימת איזה פקודות אפשר למחוק מן ההקלטה, ואיזה פקודות חיוניות.

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

 

[Yisrael]

האמת שאיני מתכנת. אך אחר הרבה נסיונות, רכשתי מיומנות מסויימת איזה פקודות אפשר למחוק מן ההקלטה, ואיזה פקודות חיוניות.

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

כל מילה בסלע!

אז אני באותה סירה כמוך, אם כי כנראה עדיין פחות מנוסה...
בכל מקרה תודה רבה!

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

תודה מראש

 

[אלחנן אריאל]

צריך לעשות מרווח בין השורות מדוייק. ולבטל בקרת שורות אלמנות ויתומות.

 

[Yisrael]

צריך לעשות מרווח בין השורות מדוייק. ולבטל בקרת שורות אלמנות ויתומות.

כנראה שלא הבנת למה אני מתכוון.
כוונתי היא ליישר את גובה תחילת ההערות בשני הטורים לגובה אחיד. ז"א, שגם בגוף המסמך וגם בטקסט יהיה שני טורים, אבל שההערות יתחלקו לגובה שווה בשני הטורים.

בתמונה המצורפת סימנתי לאיפה אני רוצה שישתנה גובה תחילת הערות.

 

[צורת הדף]

אי אפשר.

 

[אלחנן אריאל]

אכן לא הבנתי. והריני מצטרף לדברי ר' קרש.

 

[חיטובים]

בהמשלים לוורד יש אפשרות כזו.

 

[Yisrael]

אי אפשר.

אכן לא הבנתי. והריני מצטרף לדברי ר' קרש.

בהמשלים לוורד יש אפשרות כזו.

אם אכן ר' "משלים לוורד" עשה זאת בעצמו, כנראה שזה אפשרי, הלא כן?

 

[צורת הדף]

המשלים לוורד מנתק ההערות לקובץ אחר, ואח"כ ממקם אותם בתוך תיבות טקסט למטה מהעמוד.

 

[Yisrael]

המשלים לוורד מנתק ההערות לקובץ אחר, ואח"כ ממקם אותם בתוך תיבות טקסט למטה מהעמוד.

א. האם אפשרי לעצב את הטקסט בתוך תיבת טקסט כ-2 טורים?
ב. איך המשלים מצליח להכניס תיבות הטקסט שיהיו בדיוק בעמוד בו ההערה צריכה להיות ממוקמת?

 

[אריה123]

א. האם אפשרי לעצב את הטקסט בתוך תיבת טקסט כ-2 טורים?
ב. איך המשלים מצליח להכניס תיבות הטקסט שיהיו בדיוק בעמוד בו ההערה צריכה להיות ממוקמת?

יש דברים שבשביל כן צריכים לדעת תיכנות

פעם העלו כאן מאקרו לריבוע לבן מתחת למילה הראשונה בקטע, ואח"כ מישהוא אחר (אולי קרש ? ) העלה כאן מאקרו מתוכנת באופן מקצועי, וההבדל בלט לעיניים.

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

 

[Yisrael]

יש דברים שבשביל כן צריכים לדעת תיכנות

פעם העלו כאן מאקרו לריבוע לבן מתחת למילה הראשונה בקטע, ואח"כ מישהוא אחר (אולי קרש ? ) העלה כאן מאקרו מתוכנת באופן מקצועי, וההבדל בלט לעיניים.

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

לא הבנתי איך זה עונה על שאלתי...

 

[אריה123]

על שאלה א. - לא בדקתי, אולי אפשר ואולי לא.
על שאלה ב. - יש דברים שצריכים לדעת תיכנות, איך המשלים לוורד עושה דברים שמי שלא מתכנת לא יודע לעשות ? הוא כנראה יודע תיכנות ברמה יותר גבוהה מהקלטות מאקרו. - רמזתי כאן ש"קרש" יודע תיכנות טוב, ואם הוא ירצה הוא יוכל לעשות לך כזה דבר, אבל זה כבר תלוי ברצונו הטוב.