עזרה בוורד הפניות למאפיינים נצרכים ב 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 מצויינת.
 

אולי מעניין אותך גם...

הפרק היומי

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


תהילים פרק קיט א'

א אַשְׁרֵי תְמִימֵי דָרֶךְ הַהֹלְכִים בְּתוֹרַת יְהוָה:ב אַשְׁרֵי נֹצְרֵי עֵדֹתָיו בְּכָל לֵב יִדְרְשׁוּהוּ:ג אַף לֹא פָעֲלוּ עַוְלָה בִּדְרָכָיו הָלָכוּ:ד אַתָּה צִוִּיתָה פִקֻּדֶיךָ לִשְׁמֹר מְאֹד:ה אַחֲלַי יִכֹּנוּ דְרָכָי לִשְׁמֹר חֻקֶּיךָ:ו אָז לֹא אֵבוֹשׁ בְּהַבִּיטִי אֶל כָּל מִצְוֹתֶיךָ:ז אוֹדְךָ בְּיֹשֶׁר לֵבָב בְּלָמְדִי מִשְׁפְּטֵי צִדְקֶךָ:ח אֶת חֻקֶּיךָ אֶשְׁמֹר אַל תַּעַזְבֵנִי עַד מְאֹד:
נקרא  30  פעמים

לוח מודעות

למעלה