עזרה בוורד לבחור על הטקסט עם עיצוב דומה בעמוד מסוים

[שיקול דעת]

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

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

האם יש למישהו פתרון?

 

[שיקול דעת]

מקפיץ!
(אולי @Yisrael )

 

[Yisrael]

לא ידוע לי על אפשרות כזו עם VBA אבל יכול להיות שאם תגיד לשם מה אתה צריך את האפשרות הזו נוכל להגיע לתוצאה שאתה צריך בדרכים אחרות. בהצלחה.

 

[שיקול דעת]

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

 

[Yisrael]

בהנחה שאתה משתמש בסגנון ייעודי לכותרות (ואם לא אתה צריך...) תוכל להשתמש בקוד המצורף בשביל להוסיף רווח מוגדר לכל פסקה מסגנון מסוים בעמוד של הבחירה (צריך לעמוד בתחילת העמוד).
[במקום Style Name תכתוב את שם הסגנון שאתה רוצה לשנות]
אם אתה צריך הוספה של מספר נקודות מסוים בכל פעם שאתה מפעיל את המאקרו בלי תיבת דו שיח כמובן שזה אפשרי.
מקווה שזה עונה לצרכיך.

Sub Pg()
Dim MyRange As Range
application.ScreenUpdating = False
Spce = InputBox("ציין את המרווח הדרוש להוספה")
    If Spce = Empty Then
        MsgBox "לא הוזנו נתונים"
        Exit Sub
    End If
NmPg = Selection.Information(wdActiveEndPageNumber)
With Selection
    Set MyRange = .Range
    .Find.ClearFormatting
    .Find.Style = ActiveDocument.Styles("Style Name")
    With .Find
        .text = ""
        .Wrap = wdFindContinue
    End With
    Do While .Find.Execute = True
        If NmPg = .Information(wdActiveEndPageNumber) Then
         .ParagraphFormat.LineSpacing = .ParagraphFormat.LineSpacing + Spce
        Else
         Exit Do
        End If
    Loop
    .start = MyRange.start: .End = MyRange.End
End With
application.ScreenUpdating = True
End Sub

 

[שיקול דעת]

וואו!! איזה תותח!!

אין מילים על ההתאמצות והטירחה בשבילי!

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

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

 

[Yisrael]

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

 

[שיקול דעת]

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

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

 

[Yisrael]

את השורה הזו

.ParagraphFormat.LineSpacing = .ParagraphFormat.LineSpacing + Spce

תחליף בזו

.ParagraphFormat.SpaceBefore = .ParagraphFormat.SpaceBefore + Spce

 

[שיקול דעת]

פצצה! עובד מצוין!!

 

[שיקול דעת]

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

 

[Yisrael]

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

איזה מהאפשרויות אתה מעדיף?

 

[שיקול דעת]

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

 

[Yisrael]

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

Sub Pg1()
Dim MyRange As Range
application.ScreenUpdating = False
Spce = InputBox("הכנס את המרווח הרצוי להוספה")
    If Spce = Empty Then
        MsgBox "לא הוכנסו נתונים"
        Exit Sub
    End If
NmPg = Selection.Information(wdActiveEndPageNumber)
With Selection
StyleName = .Range.Style
    Set MyRange = .Range
    .Find.ClearFormatting
    .Find.Style = ActiveDocument.Styles(StyleName)
    With .Find
        .text = ""
        .Wrap = wdFindContinue
    End With
    Do While .Find.Execute = True
        If NmPg = .Information(wdActiveEndPageNumber) Then
         .ParagraphFormat.SpaceBefore = .ParagraphFormat.SpaceBefore + Spce
        Else
         Exit Do
        End If
    Loop
    .start = MyRange.start: .End = MyRange.End
End With
application.ScreenUpdating = True
End Sub

 

[שיקול דעת]

אלוף!!!

אין מלים!! עובד נפלא!!

 

[שיקול דעת]

הנה נא הואלתי לדבר... ואנכי עפר ואפר...

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

 

[Yisrael]

הנה נא הואלתי לדבר... ואנכי עפר ואפר...

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

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

 

[שיקול דעת]

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

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

נ.ב. אבל בכל אופן, מעניין אותי לדעת מה הקוד כדי לפתוח הדו שיח גופן\פסקה...

 

[Yisrael]

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

נ.ב. אבל בכל אופן, מעניין אותי לדעת מה הקוד כדי לפתוח הדו שיח גופן\פסקה...

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

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

לגבי הקוד לפתיחת תיבות דו-שיח זה קוד לדוגמה שפותח את תיבת הדו-שיח גופן

Dialogs(wdDialogFormatFont).Show

אפשר לכתוב בסוגריים איזו תיבה שרוצים מהרשימה

 

[שיקול דעת]

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

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

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

אני מודה מאד מאד על הקדשת זמן יקר בשבילי (ובשביל עוד יהודים שבודאי יעזור להם).

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