Цитата Iska:
Цитата flev45:
Или отыскал все строки с "Laden der Transaktionsdetails". Как их все удалить, не вручную? »
Например, так:
Option Explicit
Sub Sample()
Dim objParagraph As Paragraph
For Each objParagraph In ThisDocument.Content.Paragraphs
If InStr(1, objParagraph.Range.Text, "Laden der Transaktionsdetails", vbTextCompare) > 0 Then
objParagraph.Range.Delete
End If
Next objParagraph
End Sub »
|
Уважаемый, ваш макрос ничего не меняет.
Установил все разрешения, записал макрос, запустил по "выплнить", никаких сообщений.
Посмотрел по "Изменить" - Ваш макрос на месте...
Но 2 строки с "Laden der Transaktionsdetails" как были, так и остались.