שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.

Sub סימון_אותיות_עיון_ההלכה()
'
' סימון_אותיות_עיון_ההלכה Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .BoldBI = True
        .Underline = wdUnderlineSingle
    End With
    With Selection.Find
        .Text = "^p^$:"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

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

שלמה11

@יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

אגב, איך אני מוסיף לו הוראה להחליף את זה לפונט אחר?

.Replacement.Font.Name = "Arial"

menajemmendel

@שלמה11 כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

@יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

אגב, איך אני מוסיף לו הוראה להחליף את זה לפונט אחר?
.Replacement.Font.Name = "Arial" 

זה לפונט באנגלית, לפונט בעברית צריך

.Replacement.Font.NameBi = "Arial"

יאיר דניאל

@pcinfogmach לא עבד לי

.BoldBI = True

שלמה11

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

טוב, אז מהיום הכל בלחיצת כפתור!!
ההורדה משם