אופיס 365 הפניות למאפיינים נצרכים ב VBA וורד

[מתמצא]

שלום וברכה
אני צריך להפעיל מספר פקודות על מסמך ענק בוורד
1. להפוך את כל המספרי עמודים ממספר לאות (ישנם 100 מקטעים)
2. להוסיף בכל מקטע כותרת עליונה את מה שכתוב בכותרת 2 של המקטע הזה

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

תודה מראש

 

[מתמצא]

טוב,
אז אם מישהו בעתיד יצטרך, זה התוצאות

קוד מאקרו להפיכת כל מספורי העמודים ממספרים לאותיות

Sub NumbersToLetters()
Dim sec As Section
For Each sec In ActiveDocument.Sections
sec.Footers(wdHeaderFooterPrimary).PageNumbers.NumberStyle = wdPageNumberStyleHebrewLetter1
Next
End Sub

הגדרת כותרת עליונה לפי הטקסט שמופיע בכותרת 2
ניתן להגדרה בלי קוד - הוספה \ חלקים מהירים \ שדה \ styleRef

 

[Yisrael]

שלום וברכה
אני צריך להפעיל מספר פקודות על מסמך ענק בוורד
1. להפוך את כל המספרי עמודים ממספר לאות (ישנם 100 מקטעים)
2. להוסיף בכל מקטע כותרת עליונה את מה שכתוב בכותרת 2 של המקטע הזה

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

תודה מראש

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