אופיס 365 האם יש קוד לתחילת שורה בוורד?

[leonhar]

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

איך עושים זאת?

האם יש קוד לתחילת שורה (לא פסקה) ואז אפשר להחליף כל תחילת שורה עם ( ולשתול טאב.

תודה על העזרה

 

[לייזער]

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

להלן 2 סוגי מקרו לענין זה: אופן א' - שהמקרו עובר רק על תחילת שורות שהם בסגנון מסויים (תו או פיסק&#1492, אותו ניתן להגדיר במקרו (ולדוגמא בעלמא הכנסתי כאן סגנון "טקסט", ואפשר להחליפו לכל סגנון אחר אופן ב' - שלא לפי איזה חיפוש ספציפי, אלאעל כל תחילת שורה שבמסמך (שגם לוקח יותר זמ&#1503.

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


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

אופן הא':

[LEFT]Sub a()

   Dim myRange As Range
   Selection.HomeKey unit:=wdStory
   With Selection.Find
       .ClearFormatting: .Text = "": .Style = "טעקסט": .Format = True: .Forward = True: .Wrap = wdFindStop
       Do While .Execute
           With Selection
               If .Characters(1).Information(wdFirstCharacterColumnNumber) = 1 Then
                   .Collapse wdCollapseStart
               ElseIf .Characters(1).Information(wdFirstCharacterLineNumber) <> _
                   .Characters.Last.Information(wdFirstCharacterLineNumber) Then
                   .Collapse wdCollapseStart: .GoTo What:=wdGoToLine, Which:=wdGoToNext
               Else: GoTo sNext: End If
               Set myRange = .Range
               While .InRange(myRange)
                   If .Characters(1) = "(" Then .Characters(1) = Chr(9) & "("
                   If .Information(wdFirstCharacterLineNumber) <> _
                       ActiveDocument.Characters.Last.Information(wdFirstCharacterLineNumber) Then _
                       .GoTo What:=wdGoToLine, Which:=wdGoToNext Else Exit Sub
               Wend
           End With
sNext:
       Loop
   End With[/LEFT]

End Sub

אופן הב':

[LEFT]Sub b()
[LEFT]   Selection.HomeKey unit:=wdStory
   Do: With Selection
           If .Characters(1) = "(" Then .Characters(1) = Chr(9) & "("
           If .Information(wdFirstCharacterLineNumber) <> _
               ActiveDocument.Characters.Last.Information(wdFirstCharacterLineNumber) Then _
               .GoTo What:=wdGoToLine, Which:=wdGoToNext Else Exit Sub
       End With
   Loop

End Sub[/LEFT]

[/LEFT]

 

[leonhar]

ניסיתי וזה עובד מצויין !!!

אין מילים !!!

חסכת לי המון שעות עבודה

תבורך בכל מילי דמיטב !!!