המושג "או" בחיפוש והחלפה..

[azriel]

האם אפשר בחיפוש והחלפה לחפש מילה "אברהם", או "יצחק" או "יעקב" ולמחוק אותם
יש אפשרות למושג "זה או זה"?
קרש..

 

[גרפיקנער]

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

 

[תג]

אגב, ב"תג" כדי לבצע חיפוש כזו עיין כאן

 

[צורת הדף]

לענ"ד בחיפוש בלי מאקרו אי אפשר...

 

[azriel]

OK
ואיך עם מאקרו??? שני חיפושים?

 

[צורת הדף]

כן, שני חיפושים...

With Selection.Find
    .Execute findText:="אברהם", Wrap:=wdFindContinue, replacewith:="", Replace:=wdReplaceAll
    .Execute findText:="יצחק", Wrap:=wdFindContinue, replacewith:="", Replace:=wdReplaceAll
    .Execute findText:="יעקב", Wrap:=wdFindContinue, replacewith:="", Replace:=wdReplaceAll
End With

אולי ללייזער יש פתרון יותר טוב?

 

[ענק]

ההצעה שלי

Wrd1 = (InputBox("הזן את המילה הראשונה", "חיפוש 1"))
Wrd2= (InputBox("הזן את המילה השניה", "חיפוש 2"))
Wrd3= (InputBox("הזן את המילה השלישית", "חיפוש 3"))
Selection.Find.Replacement.Highlight = True
With Selection.Find
    .Execute findText:=Wrd1, Wrap:=wdFindContinu, replacewith:="^&", Replace:=wdReplaceAll
    .Execute findText:=Wrd2, Wrap:=wdFindContinue, replacewith:="^&", Replace:=wdReplaceAll
    .Execute findText:=Wrd3, Wrap:=wdFindContinue, replacewith:="^&", Replace:=wdReplaceAll
End With