@אלף-שין אני שמח לשמוע, רק אם אתה עושה מזה מאקרו - אל תתדגיש את המספרים אלא תעשה עיצוב שאתה בטוח שאין לך בקובץ, או שתוסיף אח"כ שלב של מחיקת רווחים כפולים. כי עכשיו אם יש לך משהו מודגש כבר (שהוא לא מספר) החיפוש יתפוס אותו ויוסיף רווח (מיותר) אחריו.
הבעיה היא שלאחר העדכון של המספר הוא מוחק את הרווח שבינו לבין המילה הבאה משום מה,
אם רק זה הבעיה תחפש את כל המספרים - תשנה עיצוב ותוסיף רווח אחרי כן,
חפש: ^# (ספרה כל שהיא) שנה עיצוב, אחר כך תעשה לעיצוב הזה החלף בלי שינוי (^&) + רווח.
@יאיר-דניאל בנוגע לתיקון נקודה כפולה - כבר כתבתי למעלה שהרבה פעמים כותבים שלוש נקודות ...
ובצורה שאתה עשית זה יהפוך להיות רק שתיים.
לכן החיפוש צריך להיות "..[!]." להחליף ב "..." וכן למקרה שיצא 4 נקודות צריך לחפש: ".{4,}" החלף ב"..."
@pcinfogmach אין מילים להודות לך על התוכנה הנפלאה הזאת,
ממש שינה לי (ולעוד כמה שכבר התקנתי להם...) את כל הלימוד וההעריכה בוורד.
מתנצל שאין לי זמן כלל לעזור, אך בכל זאת מצאתי אצלי קובץ של ר"ת בפי.די.אף. (נראה לי מקורו מפרוג)
אולי מישהו יכול לחלץ לטקסט, כל הראשי תיבות.pdf
@ששמעון מצאתי אצלי איזה מאקרו ישן בשביל זה, לא יודע האם ואיך הוא עובד. לא לוקח אחריות - תגבה קודם את הקבצים.
Sub שילוב_הערות()
aaa = InputBox("?כמה הערות ישנן")
'ccc = InputBox("?מהו שם קובץ ראשי", , "1.doc")
'ddd = InputBox("?מהו שם קובץ הערות", , "2.doc")
'for office 2007
ccc = InputBox("?מהו שם קובץ ראשי", , "1 [מצב תאימות]")
ddd = InputBox("?מהו שם קובץ הערות", , "2 [מצב תאימות]")
Application.ScreenUpdating = False
Windows(ddd).Activate
With Selection
.EndKey Unit:=wdStory
.TypeParagraph
.TypeText Text:="&"
.HomeKey Unit:=wdStory
End With
Windows.Arrange
For i = 1 To aaa
StatusBar = i & " of " & aaa
Windows(ddd).Activate
With Selection
.StartIsActive = False
.Extend Character:="&"
.Extend Character:="&"
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
.Cut
End With
Windows(ccc).Activate
Selection.Find.ClearFormatting
With Selection.Find
.Text = "$"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = False
End With
Selection.Find.Execute
Selection.Delete
ActiveDocument.Footnotes.Add Range:=Selection.Range, Reference:=""
Selection.Paste
Selection.TypeBackspace
ActiveWindow.Panes(1).Activate
Selection.HomeKey Unit:=wdStory
Next
Application.ScreenUpdating = True
End Sub
@pcinfogmach
תודה רבה על ההדרכה הנפלאה, וההסברים המפורטים, החכמתי מכך רבות.
בחיפוש טקסט בתוך מירכאות כתבת קוד למציאת ראשי תיבות:
([א-ת])(")([א-ת])
הבעיה שהקוד לא עובד על טקסט מנוקד,
אולי כדאי להחליף בקוד הזה: ^$"^$ (בלי להפעיל תווים כלליים)
הקוד מוצא ראשי תיבות בכל טקסט מנוקד או לא מנוקד.
מכיוון ש: ^$ מייצג אות כל שהיא בין מנוקדת בין שאינה מנוקדת.
ואם כבר, אז אני מעתיק לכאן נוסחה שמוצאת את כל המילים עם הראשי תיבות, גם המנוקדים וגם הלא מנוקדים:
כך:
<[א-תְ-ׂ]@>"<[א-תְ-ׂ]@>
הסבר:
< תחילת מילה
[א-תְ-ׂ] טווח: כל האותיות וכל הניקוד
@ רצף של המופע הקודם
> סוף מילה (בוורד מילה עם ראשי תיבות נחשבת כשני מילים)
" הראשי תיבות עצמם
וחוזר שוב לאחר הראשי תיבות.
הערה: כאשר יש שימוש בקובץ בגרשיים (לסימון ציטוטים, או מה שקרוי "גרשיים כפולים" וכדומה) החיפוש ימצא גם מילה כזו: הכומר ה"קדוש". אין לכך פתרון גורף, אך אפשר להגביל את כמות התווים במקטע השני שלאחר הר"ת ל3 או ל4:
ככה:
<[א-תְ-ׂ]@>"<[א-תְ-ׂ]{1,4}>
למה 4? זו כמות התווים הכי גדולה שיש באות אחת: שי"ן. 1 האות עצמה, 2 הניקוד, 3 שׂ או שׁ, 4 ואולי גם שמו דגש... שּ
@MNM ייש"כ עצום!
פשוט מדהים!
כל כך ברור ונעים!
לדעתי כדאי לשנות את הכותרת מ'הוראות לעימוד' למשהו בסגנון 'באו לעמד יד ביד יחד עם מעמד מקצועי וסבלן'...
ודאי שמחכים להמשך!