אופיס 365 לבחור על הטקסט עם עיצוב דומה בעמוד מסוים

[שיקול דעת]

מה קורה ר' @Yisrael האם אתה כותב לי הקוד לפתיחת דו שיח?

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

Dialogs(wdDialogFormatFont).Show

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

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

 

[Yisrael]

מה קורה ר' @Yisrael האם אתה כותב לי הקוד לפתיחת דו שיח?

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

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

Sub Pgfont()
Dim myrange As Range, myDialog As Dialog
application.ScreenUpdating = False
Set myDialog = Dialogs(wdDialogFormatFont)
myDialog.Display
NmPg = Selection.Information(wdActiveEndPageNumber)
With Selection
StyleName = .Range.Style
Set myrange = .Range
.Find.ClearFormatting
.Find.Style = ActiveDocument.Styles(StyleName)
With .Find
.text = ""
.Wrap = wdFindStop ' = wdFindContinue
End With
Do While .Find.Execute = True
If NmPg = .Information(wdActiveEndPageNumber) Then
myDialog.Execute
Else
Exit Do
End If
Loop
.start = myrange.start: .End = myrange.End
End With
application.ScreenUpdating = True
End Sub


כדי שתוכל להשתמש בזה גם להגדרות פסקה או כל תיבת דו-שיח אחרת כדאי שתבין איך זה עובד, אז ככה:
החלק שצבוע בסגול מכריז על המשתנה mydialog
בצבע אדום אנחנו מגדירים את המשתנה להיות תיבת הדו-שיח גופן
בצבע כחול אנחנו פותחים את תיבת הדו-שיח שבמשתנה mydialog (-גופן במקרה הזה) - שים לב שאני פותח אותה עם הפקודה display ולא עם show מה שאומר שההגדרות שתבחר בתיבת הדו-שיח לא יופעלו על הבחירה במסמך אלא רק ישמרו בזיכרון
ובצבע ירוק - אחרי שנמצאה הפסקה עם הסגנון המבוקש אנחנו מחילים בפועל את ההגדרות שבחרת בתיבת הדו-שיח

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

מקווה שהובנתי ושיהיה לתועלת.
בהצלחה!

 

[שיקול דעת]

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

 

[Yisrael]

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

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

 

[שיקול דעת]

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

בטח זה עובד. אחרת הייתי מזמן מתלונן....

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

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

 

[Yisrael]

בטח זה עובד. אחרת הייתי מזמן מתלונן....

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

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

אני שמח לשמוע!

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

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

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

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

 

[שיקול דעת]

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

 

[שיקול דעת]

האם לא טעית? לכאו' כדי להזיז הסמן לתחילת השורה, לכאו' צריך cntr + up ולא homekey.

 

[Yisrael]

האם לא טעית? לכאו' כדי להזיז הסמן לתחילת השורה, לכאו' צריך cntr + up ולא homekey.

לא חושב שטעיתי, תנסה ותראה.

 

[שיקול דעת]

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

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