קוד VBA למחוק כל פסקה שני בוורד

[asf]

בס"ד

האם יש אפשרות לעשות מקרו שמוצא כל פסקה מסויים, ומוחק אותו?

בתודה רבה מראש.

 

[צמרא]

כזה: [במקום ה 1 מכניסים מספר הקטע שרוצים למחוק]

activedocument.paragraphs(1).range.delete

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

 

[asf]

כזה: [במקום ה 1 מכניסים מספר הקטע שרוצים למחוק]

activedocument.paragraphs(1).range.delete

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

תודה רבה

אבל זה מחפש רק הפסקה השני בקובץ, איך אני עושה שזה יחפש לי כל פסקה שניה או שלישי וכדו' (זה לא אמור להיתו משהו כ"כ מורכב)

בתודה מראש.

 

[Rרחמים]

Sub test()

    Dim i As Integer

    For i = ActiveDocument.Paragraphs.Count To 1 Step -1
        ' אם זו פיסקה אי זוגית מוחק אותה
        If i Mod 2 = 1 Then
            ActiveDocument.Paragraphs(i).Range.Delete
        End If
    Next

End Sub

 

[צמרא]

הנה:
[במקום ה 2 תכניס איזה מספר שאתה רוצה, דהיינו כל פיסקה שני' שלישי וכו'].

Dim para As Paragraph
Dim counter As Integer
For Each para In ActiveDocument.Paragraphs
counter = counter + 1
If counter Mod 2 = 0 Then para.Range.Delete
Next

בהצלחה!