אופיס 365 האם ניתן לבצע מאקרו בוורד - ולשנות קבצים רבים?

[נירוש]

אני זקוק לבצע שני שינויים במסמך.
א. יצירת שורה ריקה לפני כל תחילה שורה הכתובה בפונט X. + הגדלת הפונט הזה ב-3 נקודות.
ב. חוץ מזה - הגדלת כל הפונטים בעמוד בצורה יחסית שווה - כמו שעושים עם קונטרול+[

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

 

[גרפיקנער]

יש בתוכנת 'המשלים לוורד' פקודה כזאת. 'הפעלת מאקרו על קבצים מרובים'.

 

[נירוש]

יש בתוכנת 'המשלים לוורד' פקודה כזאת. 'הפעלת מאקרו על קבצים מרובים'.

צריך לקנות את התוכנה בשביל הפעולה הזאת? אין אפשרות אחרת?

 

[Rרחמים]

יש לי תוסף הנקרא 'מריץ מאקרו'
עיין בקטלוג שבאתר שלי

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

 

[שמח לעזור]

תפרידו את השאלה לשתיים:
א. מאקרו לפעולה זו
ב. הרצת מאקרו על מסמכים מרובים

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

Sub MultiDocs()

    For i = 1 To Documents.Count
        Documents(i).Activate
        Macro1
    Next

End Sub

כל המסמכים של תיקיה מסויימת:

Sub MultiDocs()
    Dim fso As Object, doc As Document
    Dim o As Object, folder As String
    folder = "D:\Users\xxx\Desktop\úé÷éä çãùä\"
    Set fso = CreateObject("Scripting.FileSystemObject")
        For Each o In fso.GetFolder(pathToFolder).Files
                Set doc = Documents.Open(o.Path)
                Macro1
                doc.Close
            End If
        Next
    Set fso = Nothing
End Sub

 

[נירוש]

תפרידו את השאלה לשתיים:
א. מאקרו לפעולה זו
ב. הרצת מאקרו על מסמכים מרובים

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

Sub MultiDocs()

    For i = 1 To Documents.Count
        Documents(i).Activate
        Macro1
    Next

End Sub

כל המסמכים של תיקיה מסויימת:

Sub MultiDocs()
    Dim fso As Object, doc As Document
    Dim o As Object, folder As String
    folder = "D:\Users\xxx\Desktop\úé÷éä çãùä\"
    Set fso = CreateObject("Scripting.FileSystemObject")
        For Each o In fso.GetFolder(pathToFolder).Files
                Set doc = Documents.Open(o.Path)
                Macro1
                doc.Close
            End If
        Next
    Set fso = Nothing
End Sub

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

 

[HUBHCBH]

מאקרו להגדלת הגופן, העלו בעבר הרחוק,
אם לא תמצא אחפש.

 

[שמח לעזור]

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

זה מאקרו. הדבקה בחלל עורך הקוד של ה"מאקרואים".

ב. בנוגע למה שהגדרת "השאלה הראשונה" - אני מתנצל על ההטרחה - יש לך מאקרו שיידע לעשות זאת?

אנסה:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p@@"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Font.Name = "Arial"
    With Selection.Find
        .Text = "@@"
        .Replacement.Text = "^p@@"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "@@"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.WholeStory
    Selection.Font.Grow
End Sub

 

[נירוש]

זה מאקרו. הדבקה בחלל עורך הקוד של ה"מאקרואים".
אנסה:

תודה ויישר כח גדול! אנסה זאת ואדווח.

 

[נירוש]

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

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

 

[שמח לעזור]

ככה לא עובד?
Selection.Find.Font.Name = "Miriam"

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

 

[אין עוד מלבדו 1-1-1]

לכאורה הבעיה היא בשטרודלים כיון שהם לא (תמיד) מתחלפים לאריאל
כאן דיברו על זה

 

[שמח לעזור]

הגיוני. אם ככה צריך לשים במקום שטרודלים רצף אותיות בלתי אפשרי כמו ףףאףף.

 

[נירוש]

הגיוני. אם ככה צריך לשים במקום שטרודלים רצף אותיות בלתי אפשרי כמו ףףאףף.

האם כוונתך שבכל המקומות שיש שטרודלים לשים ףףף? ניסיתי וזה לא עוזר.
אני שולח לך מסמך באישי שתבדוק.
תודה!

 

[שמח לעזור]

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

 

[נירוש]

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

לשמח לעזור - תודה על המאמץ בכל אופן!
אני חשבתי - היות ומדובר בפסוק, והפסוק תמיד מתחיל בסוגר ימני [האות של סימן הפסוק לדוגמא (ג) ], ואין עוד כמעט סוגר ימני בכל הטקסט, אפשר לעשות דבר פשוט - שיחליף כל סוגר ימני של פונט מרים המתחיל בראש שורה - בסוגר זהה רק עם שורה רווח מלמעלה.
זה נראה לי פשוט לעשות, לא?