כללי עזרה בחיפוש והחלפה

[צח מלול]

כיצד ניתן לחפש במסמך את כל השורות האי זוגיות/זוגיות?

 

[binder]

פרט יותר את שאלתך.

 

[חגי פאהן]

בוורד אפשר להכניס בתחילת שורה זוגית # ואי זוגית $ לדוגמה, ע"י מאקרו, ואח"כ לחפש $ עד סוף פסקה וכיו"ב.

 

[צח מלול]

חגי תבורך.
אם תוכל לפרט לי איך לבנות מאקרו, כי ידי מעט לי בוורד.

 

[יידישע קאפ]

כיצד ניתן לחפש במסמך את כל השורות האי זוגיות/זוגיות?

אם ברצונך להחיל סגנון תו - יש דרך מאוד פשוט:

מגדירים nested line style עם סגנון תו מסויים לשורה א׳.
מוסיפים עוד אחד לשורה ב׳.
אח״כ אומרים שיחזור על שתי סגנונות הנ״ל:

רק שים לב שמתחיל מחדש בכל פסקה...

 

[צח מלול]

האמת, שאני צריך את זה לשליפת נתונים מתוך רשימה...

 

[חגי פאהן]

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

Sub Macro3()
'
' Macro3 Macro
'
'
Dim qqq As Integer
Dim www As Integer
qqq = 5 ' כאן תכתוב מספר הפעמים שיופעל
www = 1
While www < qqq
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.ColorIndex = wdRed
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.ColorIndex = wdBlue
www = www + 1
Wend
End Sub