1
Doubletten in Word
Hallo, ich habe ein ein Script um in Word Doubletten zu entfernen.
Das funktioniert auch sehr gut. So gut, das es auch Wörter entfernt, die bleiben sollen.
Ich möchte z.B. folgenden Satz nicht gelöscht bekommen: ping -n 4 localhost >NUL
Wie kann ich das Script ändern um diesen Satz zu behalten.
Danke
Michael
Das funktioniert auch sehr gut. So gut, das es auch Wörter entfernt, die bleiben sollen.
Ich möchte z.B. folgenden Satz nicht gelöscht bekommen: ping -n 4 localhost >NUL
Wie kann ich das Script ändern um diesen Satz zu behalten.
Sub DoublettenEntfernen()
Dim Absatz As Paragraph
If ActiveDocument.Paragraphs.Count < 2 Then Exit Sub
Application.ScreenUpdating = False
ActiveDocument.Content.Sort FieldNumber:="Absätze"
Set Absatz = ActiveDocument.Paragraphs(1)
While Not Absatz.Next Is Nothing
If Absatz.Range.Text = Absatz.Next.Range.Text Then
Absatz.Range.Delete
Else
Set Absatz = Absatz.Next
End If
Wend
Application.ScreenUpdating = True
End SubDanke
Michael
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 97415
Url: https://administrator.de/contentid/97415
Printed on: April 25, 2024 at 05:04 o'clock
1 Comment
Hallo Stuhlgang!
Ungetestet etwa so:
Grüße
bastla
Ungetestet etwa so:
Sub DoublettenEntfernen()
Keep = LCase("ping -n 4 localhost >NUL")
Dim Absatz As Paragraph
If ActiveDocument.Paragraphs.Count < 2 Then Exit Sub
Application.ScreenUpdating = False
ActiveDocument.Content.Sort FieldNumber:="Absätze"
Set Absatz = ActiveDocument.Paragraphs(1)
While Not Absatz.Next Is Nothing
If Absatz.Range.Text = Absatz.Next.Range.Text Then
If LCase(Absatz.Range.Text) <> Keep Then
Absatz.Range.Delete
End If
Else
Set Absatz = Absatz.Next
End If
Wend
Application.ScreenUpdating = True
End Subbastla
