מדריך | מדריך איך למנוע מסך לבן מפקודות מאקרו ארוכות: VBA

[menajemmendel]

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

SUB ONE_LINE_SEARCHER
'מחפש פסקאות בעלות שורה א
SIGNON = Selection.Paragraphs.Style
Selection.HomeKey Unit:=wdStory
TOTAL = ActiveDocument.Paragraphs.Count

For COUNTER = 1 To TOTAL
    Set para = ActiveDocument.Paragraphs(COUNTER).Range
    If para.Style = SIGNON And para.ComputeStatistics(wdStatisticLines) = 1 Then
        para.HighlightColorIndex = wdYellow
    End If
    DoEvents
Next COUNTER
End Sub

[menajemmendel]

פוסט זה נמחק!