@אברהם-0 כתב בבקשת מידע | חיפוש והחלפה:
@ע-amp-amp-amp-quot-ה-דכו-amp-amamp-quot-ע בלי גרשייים.
בעיקרון זה אמור למצוא 2 תוים, אבל יש כנראה מגבלה כלשהיא בוורד בעת שימוש בשלילת תוים (ניסיתי גם בבחירת טווח ולא הלך) אז אפשר לעשות את הבדיקה בפעמיים אני אכתוב כאן את המאקרו המעודכן שים לב להכניס את השם של הסגנון בשורה 3 (באותה צורה אפשר לעשות גם אם יש לך 3 אותיות):
Sub ApplyHeadingBetweenParas()
Dim stl as String
stl = "הכנס כאן את שם הסגנון"
' מנקה הגדרות חיפוש קודמות
Selection.Find.ClearFormatting ' מנקה עיצוב מהחיפוש הקודם
With Selection.Find
.Text = "^13([!^13]){1,2}^13" ' מחפש סימן פסקה (ANSI ^013), אחריו 1–2 תווים כלשהם, וסימן פסקה נוסף
.MatchWildcards = True ' מאפשר שימוש בתווים כלליים (Wildcards) בחיפוש
End With
' לולאה על כל מופעי ההתאמה במסמך
While Selection.Find.Execute
Selection.MoveStart Unit:=wdCharacter, Count:=1 ' מזיז את תחילת הבחירה תו אחד קדימה (כדי להחריג את סימן הפסקה הראשון)
Selection.Style = ActiveDocument.Styles(stl) ' מיישם את סגנון "כותרת 1" על ההבחנה
Selection.Collapse wdCollapseEnd ' מצמצם את הבחירה לסופה כדי לחפש את ההופעה הבאה
Wend
' מנקה הגדרות חיפוש קודמות
Selection.Find.ClearFormatting ' מנקה עיצוב מהחיפוש הקודם
With Selection.Find
.Text = "^13([!^13])([!^13])^13" ' מחפש סימן פסקה (ANSI ^013), אחריו 1–2 תווים כלשהם, וסימן פסקה נוסף
.MatchWildcards = True ' מאפשר שימוש בתווים כלליים (Wildcards) בחיפוש
End With
' לולאה על כל מופעי ההתאמה במסמך
While Selection.Find.Execute
Selection.MoveStart Unit:=wdCharacter, Count:=1 ' מזיז את תחילת הבחירה תו אחד קדימה (כדי להחריג את סימן הפסקה הראשון)
Selection.Style = ActiveDocument.Styles(stl) ' מיישם את סגנון "כותרת 1" על ההבחנה
Selection.Collapse wdCollapseEnd ' מצמצם את הבחירה לסופה כדי לחפש את ההופעה הבאה
Wend
End Sub