הוספת פוטרחדש בלי "לדרוס" פוטר קיים

[Giglipuff]

הוספת פוטרחדש בלי "לדרוס" פוטר קיים

שלום,
באופיס 2016, אני מנסה להקליט מקרו שיוסיף footer עם שם המסמך.
הבעיה היא במסמכים שכבר יש בהם כותרת תחתונה - בעיקר ניירות פירמה. כשמוסיפים את הפוטר החדש, הוא מוחק את הכותרת התחתונה של נייר הפירמה. יש דרך להגדיר שהפוטר החדש יתווסף בלי לדרוס את הקיים? תודה מראש!

 

[ziv98]

הוספת טקסט לפוטר

מה זה אופיס ? אקסל ? וורד ?
מצ"ב דוגמה לתוספת טקסט לטקסט (!) בפוטר מרכזי באקסל:

Sub Macro1()

x = ActiveSheet.PageSetup.CenterFooter & " " & "TEST"
    With ActiveSheet.PageSetup
        .CenterFooter = x
    End With
   
End Sub

 

[Giglipuff]

עוד אינפורמציה

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

 

[ziv98]

משהו כזה

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Selection.InsertAfter "Stam"

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