אופיס 365 לולאה במאקרו מוקלט

[avram]

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

 

[שמח לעזור]

תחביר לולאה:

While תנאי עצירה
....פה כל הקוד שאתה רוצה.
End While

בדרך שעשית יכלת ע"י קריאה רקורסיבית: במקום לכתוב loop בסוף אפשר לכתוב את שם המתודה...

 

[moishy]

ע"מ לספק לך תשובה שתועיל לך, צריך יותר פרטים, מה אתה מנסה לעשות, ו/או את המאקרו שהקלטת.
אגב, (כמעט) תמיד מאקרו מוקלט הוא לא יעיל.

 

[avram]

תחביר לולאה:

While תנאי עצירה
....פה כל הקוד שאתה רוצה.
End While

בדרך שעשית יכלת ע"י קריאה רקורסיבית: במקום לכתוב loop בסוף אפשר לכתוב את שם המתודה...

זה כמעט סינית בשבילי...
מה זה תנאי עצירה?
ומה זה שם המתודה?

 

[avram]

אגב, (כמעט) תמיד מאקרו מוקלט הוא לא יעיל.

הקביעה הזו מתמיהה אותי, אני עושה עשרות פעולות יעילות ומקצר הרבה מאד תהליכים עם מאקרו מוקלט

 

[avram]

ע"מ לספק לך תשובה שתועיל לך, צריך יותר פרטים, מה אתה מנסה לעשות, ו/או את המאקרו שהקלטת.

לדוגמא, ייצאתי מתג קובץ עם הערות שוליים, וכדי לחבר אותם חזרה בוורד, העתקתי את ההערות לסוף המסמך של הטקסט הראשי, והפרדתי ביניהם עם %,
ובהקלטת המאקרו חיפשתי %, (כדי להגיע לאזור של ההערות) אח''כ חיפשתי את הקוד של הפניה להערות שוליים \<\*[0-9]{1,3}\> ומחקתי אותו, בחרתי את כל הפסקה, עליתי לראש המסמך (עם המקש Home) חיפשתי שוב את הקוד להפניה ומחקתי אותו, ושם הכנסתי את ההפניה להערת שוליים והדבקתי את הפסקה שנמצאת בזכרון.
(ידוע לי שיש לזה מאקרו כתוב, מסיבות מסויימות היה עדיף לי לעשות את זה ידנית)
עכשיו כדי שימשיך עד סוף המסמך, אני צריך ללחוץ על מקש הקיצור לחיצה ארוכה עד שיסיים.
הנה הקוד:

Sub Macro2()
'
' Macro2 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "%"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "\<\*[0-9]{1,3}\>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdExtend
Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "\<\*[0-9]{1,3}\>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
With Selection
With .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
End With
.Footnotes.Add Range:=Selection.Range, Reference:=""
End With
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.HomeKey Unit:=wdStory
End Sub

מה אני צריך להוסיף כדי שיעשה את זה אוטומטי עד שלא ימצא יותר את הקוד להפניה?

 

[moishy]

הקביעה הזו מתמיהה אותי, אני עושה עשרות פעולות יעילות ומקצר הרבה מאד תהליכים עם מאקרו מוקלט

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

 

[שמח לעזור]

...

 

[moishy]

תבדוק מאקרו זה:

Sub Macro2()

    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "%"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = False
        .Execute
    End With

    Do While Selection.Find.Execute = True
        Selection.HomeKey Unit:=wdStory
        Selection.Find.Execute
        If Selection.Find.Found Then

            With Selection.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Text = "%"
                .Replacement.Text = ""
                .Forward = True
                .Wrap = wdFindContinue
                .MatchWildcards = False
                .Execute
            End With

            With Selection.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Text = "\<\*[0-9]{1,3}\>"
                .Replacement.Text = ""
                .Forward = True
                .Wrap = wdFindContinue
                .MatchWildcards = True
                .Execute
            End With

            Selection.Delete Unit:=wdCharacter, Count:=1
            Selection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdExtend
            Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
            Selection.Cut
            Selection.HomeKey Unit:=wdStory

            With Selection.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Text = "\<\*[0-9]{1,3}\>"
                .Replacement.Text = ""
                .Forward = True
                .Wrap = wdFindContinue
                .MatchWildcards = True
                .Execute
            End With

            With Selection
                .Delete Unit:=wdCharacter, Count:=1
                With .FootnoteOptions
                    .Location = wdBottomOfPage
                    .NumberingRule = wdRestartContinuous
                    .StartingNumber = 1
                    .NumberStyle = wdNoteNumberStyleArabic
                End With
                .Footnotes.Add Range:=Selection.Range, Reference:=""
                .PasteAndFormat (wdFormatOriginalFormatting)
                .HomeKey Unit:=wdStory
            End With

        End If
    Loop

End Sub

 

[avram]

תבדוק מאקרו זה:
[/CODE]

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

הבנתי שזה התהליך:
זה תנאי העצירה, שאם הוא ימצא % הוא ימשיך: (החלפתי את זה מ% ל "\<\*[0-9]{1,3}\>" כי זה תנאי העצירה שהייתי זקוק לו)
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "%"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = False
.Execute
End With

אח''כ פקודת While להתנות שאם תנאי העצירה יתקיים יש להמשיך את המאקרו:

Do While Selection.Find.Execute = True
Selection.HomeKey Unit:=wdStory
Selection.Find.Execute
If Selection.Find.Found Then

ובסוף כתבת
End If
Loop
להפסיק את ההתניה ולחזור על הפעולה בלולאה. ע''כ מה שהבנתי.

השאלה היא למה היית צריך 2 פקודות התניה, גם Whlie וגם If?
ועוד שאלה, שמח לעזור כתב שצריך לסגור את ה While, ובקוד שלך אני לא רואה שסגרת אותו, סגרת רק את ה If?

ושוב תודה על ההשקעה והעזרה!

 

[moishy]

הבנת טוב.
הif מיועד ללולאה האחרונה ששם לא תמצא התוצאה.
והdo whileאכן נסגר, זהו הloop.

 

[avram]

עדיין לא תפסתי למה נצרכת הפקודה IF, מחקתי אותה ואת הסגירה שלה, והמאקרו עדיין עבד מצויין עד שגמר את הקובץ ועצר?

 

[שמח לעזור]

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

 

[avram]

הקוד הזה חסך לי הרבה כאב ראש, תודה לכולם!