דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • בהיר
  • Brite
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • כהה
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ
מתמחים טופ
  1. דף הבית
  2. תוכנות
  3. יישומי אופיס
  4. וורד
  5. VBA - word
  6. עזרה הדדית - VBA word
  7. מדריך | מדריך איך למנוע מסך לבן מפקודות מאקרו ארוכות: VBA

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

מתוזמן נעוץ נעול הועבר עזרה הדדית - VBA word
2 פוסטים 1 כותבים 220 צפיות 1 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • menajemmendelM מנותק
    menajemmendelM מנותק
    menajemmendel
    כתב ב נערך לאחרונה על ידי menajemmendel
    #1

    הנה כידוע הרבה במקרואים ארוכים, יוצא מסך לבן, ווורד לא מגיב, עד שהמקרו נגמר,
    אז יש פתרון קל איך לפתור את הבעיה:
    בתוך הלולאה של הקוד יש להוסיף את המשפט 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
    
    menajemmendelM תגובה 1 תגובה אחרונה
    7
    • menajemmendelM 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
      
      menajemmendelM מנותק
      menajemmendelM מנותק
      menajemmendel
      כתב ב נערך לאחרונה על ידי
      #2
      פוסט זה נמחק!
      תגובה 1 תגובה אחרונה
      0
      • menajemmendelM menajemmendel התייחס לנושא זה ב

      שלום! נראה שהשיחה הזו מעניינת אותך, אבל עדיין אין לך חשבון.

      נמאס לכם לגלול בין אותם הפוסטים בכל ביקור? כשנרשמים לחשבון, תמיד תחזרו בדיוק למקום שבו הייתם קודם, ותוכלו לבחור לקבל התראות על תגובות חדשות (בין אם במייל, ובין אם בהתראת פוש). תוכלו גם לשמור סימניות ולפרגן ב-upvote לפוסטים כדי להביע הערכה לחברי קהילה אחרים.

      בעזרת התרומה שלך, הפוסט הזה יכול להיות אפילו טוב יותר 💗

      הרשמה התחברות

      • התחברות

      • אין לך חשבון עדיין? הרשמה

      • התחברו או הירשמו כדי לחפש.
      • פוסט ראשון
        פוסט אחרון
      0
      • חוקי הפורום
      • פופולרי
      • לא נפתר
      • משתמשים
      • חיפוש גוגל בפורום
      • צור קשר