Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата flev45:
для любых следующих документов? »
Так:
Цитата Iska:
Либо поменяйте в коде объект «ThisDocument» на «ActiveDocument» и сделайте перед выполнением кода искомый документ активным. »
Цитата flev45:
и проследить, чтобы он был в «ActiveDocument»? »
Нет. В коде поменять объект «ThisDocument» на «ActiveDocument»:
Код: Выделить весь код
Option Explicit

Sub Sample()
    Dim objParagraph As Paragraph
    
    For Each objParagraph In ActiveDocument.Content.Paragraphs
        If InStr(1, objParagraph.Range.Text, "Laden der Transaktionsdetails", vbTextCompare) > 0 Then
            objParagraph.Range.Delete
        End If
    Next objParagraph
End Sub
и оставить макрос в шаблоне Normal.dotm.
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:03, 16-05-2019 | #14