בקשת מידע | מאקרו להכנסת מילים מסוימים לפני ואחרי סוגריים
-
איך אוכל להגדיר במאקרו שיחפש לי כל הסוגריים ויכניס לי קוד לפני ואחרי במצב שסוגריים בתוך סוגריים לא יקבלו את הקוד רק הפותח והסוגר (הראשון והאחרון) ואם אפשר גם מצב שישאל אותי לבחירה איזה מילים אני רוצה להשחיל דהיינו שאני אכניס מראש כמה סוגי קודים ובאמצעות דו שיח אני אבחר באיזה שאני רוצה עכ"פ השלב הראשון די דחוף לי , בתודה.
דובר על נושא כזה פה בפרוג אבל זה רק במצב של החלפת הסיגנון והגודל וכו' אני צריך רק השתלת קוד וכנ"ל. -
פוסט זה נמחק!
-
@מלאכת-מחשבת
הקוד הוא:Sub הוספת_קודים() Application.ScreenUpdating = False again: If Selection.Find.Execute(findText:="\(*\)", MatchWildcards:=True, Wrap:=wdFindStop) = True Then strt = 2: lent = Len(Selection.Text) re: For i = strt To lent If Mid(Selection.Text, i, 1) = Chr(40) Then Selection.Extend Character:=Chr(41) strt = i + 1: lent = Len(Selection.Text) GoTo re End If Next With Selection .InsertBefore "@00": .InsertAfter "@01" .Collapse (wdCollapseEnd) End With GoTo again End If Application.ScreenUpdating = True End Sub
ויש להתאימו לפי הצורך. אשמח לשמוע על שיפורים או אם יהיו באגים...
-
מ מגדלים העביר נושא זה מ-עזרה הדדית - תוכנות ב-