• דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

עזרה בבנית מאקרא לוורד, מחיקת קטעים שאין בהם סימוני 'עקוב אחר שינוים'

מתוזמן נעוץ נעול הועבר תכנות
4 פוסטים 2 כותבים 320 צפיות
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • א מנותק
    א מנותק
    אהרן
    כתב ב נערך לאחרונה על ידי
    #1

    למעשה פה יש כבר מאקרא שמכניס תווים לסימון תחילת וסוף השינוים
    אז אחר השימוש במאקרא הזה השאלה הופכת לאיך מוחקים קטעים שאין בהם תווים מסוימים

    המוון תודה!

    תגובה 1 תגובה אחרונה
    0
  • א מנותק
    א מנותק
    אהרן
    כתב ב נערך לאחרונה על ידי
    #2

    בנתיים אני מנסה להתקדם בדרך עקיפה
    כל קטע שיש בו שינוי, ייושר לשמאל
    אבל יש שגיאה בקוד
    מהו?

    Sub ReviseAlign()
        For i = 1 To ActiveDocument.Revisions.Count
            .Revisions(i).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
        Next
    End Sub
    
    
    yossizY תגובה 1 תגובה אחרונה
    0
  • yossizY מנותק
    yossizY מנותק
    yossiz
    השיב לאהרן ב נערך לאחרונה על ידי
    #3

    @אהרן האם הסתדרת?
    תיקנתי בשבילך

    Sub ReviseAlign()
        For i = 1 To ActiveDocument.Revisions.Count
            ActiveDocument.Revisions(i).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
        Next
    End Sub
    

    אבל יש פה בעיה, שאם "עקוב אחר שינויים" עדיין מופעל, זה יוסיף עוד שינויים, לכן לכאורה כדאי להוסיף

    Sub ReviseAlign()
        Dim track_changes As Boolean
        track_changes = False
        If ActiveDocument.TrackRevisions Then
            track_changes = True
            ActiveDocument.TrackRevisions = False
        End If
        For i = 1 To ActiveDocument.Revisions.Count
            ActiveDocument.Revisions(i).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
        Next
        If track_changes Then ActiveDocument.TrackRevisions = True
    End Sub
    

    לגבי השאלה איך מוחקים קטעים שאין בהם תווים מסויימים, אפשר ע"י חיפוש פשוט של

    ^13[!\@#\!%^13]@^13
    

    ולהחליף ב:

    ^p
    

    זה ימצא קטעים שאין בהם התווים @#!% [חוץ מהקטע הראשון במסמך, חבל שוורד לא תומך לגמרי ב-regexp, ולכן אין דרך לחפש תחילת קטע]

    📧 יוסי@מייל.קום | 🌎 בלוג | ☕ קפה

    תגובה 1 תגובה אחרונה
    2
  • א מנותק
    א מנותק
    אהרן
    כתב ב נערך לאחרונה על ידי
    #4

    @yossiz
    עזרו לי, אבל עדיין ההודעה שלך תעזור לי, אלמד אותך מחר בעז"ה

    אבל לפני הכל: כיף לראות אותך כאן!👍

    תגובה 1 תגובה אחרונה
    2

  • התחברות

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

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

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

  • התחברו או הירשמו כדי לחפש.