וורד - חיפוש והחלפה

[אלחנן אריאל]

השלום והברכה!

ברצוני למצוא בחיפוש של וורד, את מספר הדף, כפי שנראה בתמונה שצירפתי.
יש לי אפשרות למוצאו ע"י חיפוש כזה:

^p^$:^p

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

למי פתרונים?

 

[אלחנן אריאל]

איני רגיל להקפיץ, אך זה דחוף!!!

 

[Yisrael]

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

האפשרות היחידה היא להשתמש ב-VBA...

 

[אלחנן אריאל]

יישר כחך ר' ישראל הצדיק!

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

ויתכן שאני מדמיין.

ושוב תודה

 

[Yisrael]

כאן (הודעה מס' 6) שאלתי את 'רבינו' קרש שיחי' את אותה שאלה אם אני מבין נכון, והרי תשובתו...

 

[אלחנן אריאל]

תודה רבה ר' ישראל,
אעשה זאת ידנית.

 

[חיטובים]

אפשר ע"י חיפוש GREP, ופעם היה כאן אשכול של ר' קרש עם מאקרו לחיפוש גרפ בוורד (בקישור שישראל הביא).


חפש (תעתיק מפה ותדביק):

^[א-ת]+[\.\:]$

והחלף בעיצוב.

 

[אלחנן אריאל]

יש כאן איזה טעות בתחביר

 

[eliezer]

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

דרך אגב: לחיפוש סוף שורה בעת שתווים כלליים מסומנים,
חפש, ^013.

 

[eliezer]

אפשר ע"י חיפוש GREP, ופעם היה כאן אשכול של ר' קרש עם מאקרו לחיפוש גרפ בוורד (בקישור שישראל הביא).


חפש (תעתיק מפה ותדביק):

^[א-ת]+[\.\:]$

והחלף בעיצוב.

זה נכון לאינדזיין.

 

[tkh]

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

 

[tkh]

-כפילות-

 

[Yisrael]

יש כאן איזה טעות בתחביר

אצלי זה עובד מצוין. תבדוק אם הספריה הרלוונטית ב-VBA פעילה אצלך.

זה נכון לאינדזיין.

נכון מאוד גם לוורד.

 

[eliezer]

אצלי זה עובד מצוין. תבדוק אם הספריה הרלוונטית ב-VBA פעילה אצלך.


נכון מאוד גם לוורד.

אשמח מאד להבין, איך בודקים זאת?

ומהיכן לקחת את הקודים האלו?

 

[Yisrael]

עיין כאן ותמצא נחת...

 

[eliezer]

עיין כאן ותמצא נחת...

כנראה לי הבנתי דברה"ק,
כי לצערי לא מצאתי,לא נחת,ולא חידוש.

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

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

אשמח ללמוד דברים חדשים. ובמה טעיתי.

 

[אלחנן אריאל]

ר' אליעזר, נראה לי שכוונת ר' ישראל לזהhttp://www.prog.co.il/showpost.php?p=199730&postcount=4

 

[eliezer]

ר' אליעזר, נראה לי שכוונת ר' ישראל לזהhttp://www.prog.co.il/showpost.php?p=199730&postcount=4

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

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

 

[Yisrael]

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

Sub GREP_in_Word()
On Error Resume Next
Application.VBE.ActiveVBProject.References.AddFromFile "C:\WINDOWS\system32\vbscript.dll\3"
    
Set re = New RegExp
With re
.Pattern = "^[א-ת]+[\.\:]$"
.MultiLine = True
.Global = True
.IgnoreCase = False
End With

Set oMatches = re.Execute(ActiveDocument.Range)
If oMatches.Count <> 0 Then
ActiveDocument.Range(Start:=oMatches.Item(0).FirstIndex, End:=oMatches.Item(0).FirstIndex + oMatches.Item(0).Length).Select
Else
MsgBox "No Matches."
End If
End Sub

 

[eliezer]

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

תודה רבה!