אופיס 365 עזרה VBA - משתנה לטווח כותרת עליונה, והשמת ערך סגנון במשתנה

[Yisrael]

משתנה מסוג range משמש לערכי טווח מסוימים. לדוגמא: בשביל להכניס הטקסט המופיע בפסקה 1 במסמך לתוך הערת שוליים מס. 1 אכתוב את הקוד הבא:

Sub A()
Dim amyRenge As Range, myRenge As Range
Set amyRenge = ActiveDocument.Paragraphs(1).Range
Set myRenge = ActiveDocument.Footnotes(1).Range
myRenge = amyRenge
End Sub

וכאן הבן שואל:
א. האיך ניתן להגדיר שהכותרת העליונה או התחתונה תהווה את ערך המשתנה range או משתנה מסוג אחר.

ב. בנוסף, איך אוכל להגדיר למשתנה במקום: Paragraphs(1) - Paragraphs בסגנון X
כלומר, שהמשתנה יכיל את הפסקה במסמך שיש בה סגנון X (לא את הסגנון עצמו אלא את התוכן של הפסקה שבסגנון זה)
(האנגלית קצת משבשת את הסדר, אבל אני מקווה שהובנתי...)

נ.ב. אני יודע שאפשר לעשות את ב. ע"י חיפוש והעתקה -

Sub m5()
    With selection.Find
        .Style = ActiveDocument.Styles("מאמר")
        .Execute
    End With
        selection.Copy
End Sub

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


תודה מראש!

 

[לייזער]

הבא לקמן הוא לפי הנראה בהשקפה ראשונה, וייתכנו בו טעויות, ובטח תעמידני עליהם:
א] כל קובץ ווארד מכיל "אוספים" (Collections) של אובייקטים, כמו: מקטעים, פיסקאות, סגנונות וכו' וכו' – כאשר בכל האובייקטים יש היררכי' מובנית.
ולדוגמא, בענין ששאלת בדבר הכותרות העליונות או התחתונות:
אובייקטי הכותרות – בהיררכי' של וואָרד – נלווים הם לאובייקטי המקטעים. וזאת מפני שלכל מקטע ניתן להגדיר כותרות נפרדות. וזה אומר, שבכדי להגיע לאובייקטי הכותרות, אתה צריך "לעבור" את אובייקט המקטעים.
ולדוגמא, בכדי להקצות משתנה "טווח" לכותרת-עילית-קבועה – (כי הרי גם לכותרות עצמם יש "אוסף", והיינו, שישנם כמה סוגי כותרות: לעמוד ראשון, לעמוד זוגי, ברירת-מחדלית) – של מקטע 1 שבקובץ, רושמים:
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
ועד"ז כשרוצים להקצות משתנה "טווח" לכותרת של המקטע הנוכחי של הבחירה:
Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range
ועד"ז לשאר סוגי הכותרות, כמו גם הכותרות התחתיות.
ב] ומזה לענין הקצאת משתנה "טווח" לפיסקאות בעלות סגנון מסויים:
כיון שאובייקטי הפיסקאות ואובייקטי הסגנונות נמצאים בב' "אוספים" שונים, הנה לפום ריהטא לא נראה דרך להקצות טווח בצורה ישירה לפיסקאות בעלת סגנון מסויים – אם לא ע"י חיפוש (על דרך כפי שתיארת); או ע"י העברה (iteration) על ה"אוסף" של הפיסקאות (ע"י For each וכו'), ובדיקת מהו שם "סגנון הפיסקא" שלו, ולעצור על ידו באם זהה הוא לשם הסגנון אותו אתה מגדיר.

 

[Yisrael]

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

בנוגע ל-א] ישנם ג' אפשרויות: א. (wdHeaderFooterPrimary) - מתייחס לכותרת הראשית של המסמך. ב. (wdHeaderFooterFirstPage) - מתייחס לכותרת בעמוד ראשון. ג. (wdHeaderFooterEvenPages) - שלא הבנתי למה מתייחס.

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

 

[לייזער]

א] wdHeaderFooterEvenPages = הכוונה לכותרות לעמוד זוגי ("פעיל" כאשר מגדירים שיהיו כותרות שונות לעמוד זוגי\לא זוגי).
ב] אכן, גם חיפוש יכול להועיל, וכפי שציינתי בתגובה הקודמת. ולענ"ד אינו "עילג" כלל (אם כי תלוי כמובן בפרטים אחרים).
ולענין הדוגמא לאופן השני - הנה בדוגמא דלהלן המאַקראָ בודקת כל פיסקא מתחילת הקובץ (מה שכמובן ניתן להגדיר בצורה אחרת, שתבדוק למשל רק מעמידת הסמן ואילך), ובאם שם הסגנון שלה זהה לסגנון "x" – הוא בוחרו, ועוצר את פעולת המאַקראָ:

Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
    If UCase(p.Style) = UCase("x") Then
        p.Range.Select
        End
    End If
Next p

 

[Yisrael]

ומדוע זה קיים אך לכותרות עמודים זוגיים?

 

[לייזער]

בפשטות - מפני שעמוד לא זוגי כבר כלול ב-primary header. ולא הוסיפו עלי' אלא הנחשב כחריג (ע"י הגדרות המשתמש): 1) עמוד ראשון של מקטע; 2) עמוד זוגי.

 

[Yisrael]

בפשטות - מפני שעמוד לא זוגי כבר כלול ב-primary header. ולא הוסיפו עלי' אלא הנחשב כחריג (ע"י הגדרות המשתמש): 1) עמוד ראשון של מקטע; 2) עמוד זוגי.

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

Dim a As Range
Set a = ActiveDocument.Sections(3).Range
a.Select

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

 

[לייזער]

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

a.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select

או לחילופין (באופן ישיר):

ActiveDocument.Sections(3).Headers(wdHeaderFooterPrimary).Range.Select

או שמא כוונתך לזה:

Dim mySec As Section
Set mySec = ActiveDocument.Sections(3)
mySec.Headers(wdHeaderFooterPrimary).Range.Select

וראה מה שנכתב לעיל בענין מיקומו של הכותרות בהיררכי' של וואָרד.

 

[Yisrael]

שאלתי היתה בעצם, מדוע כשם ש:

set a = ActiveDocument.Sections(3).Range
a.select

בוחר את מקטע 3,

set a = ActiveDocument.Sections(3).Headers(wdHeaderFooterPrimary).Range
a.select

לא בוחר את כותרת מקטע 3

אבל עם הקוד שנתת הסתדרתי. תודה שוב.