[Vadikan]

flev45, теперь сравните с картинкой в посте 2 под последним спойлером.

[Iska]

flev45, удалите модуль NewMacros из шаблона Normal.dotm, скопируйте вышеуказанный код в буфер обмена и затем вставьте его в модуль ThisDocument документа «Apr 28 2019 eBay.docx». Либо поменяйте в коде объект «ThisDocument» на «ActiveDocument» и сделайте перед выполнением кода искомый документ активным.

[flev45]

flev45, теперь сравните с картинкой в посте 2 под последним спойлером. »

Убираю "Normal", макрос пропадает...
Что ж я не так сделал?

...

flev45, удалите модуль NewMacros из шаблона Normal.dotm, скопируйте вышеуказанный код в буфер обмена и затем вставьте его в модуль ThisDocument документа «Apr 28 2019 eBay.docx». Либо поменяйте в коде объект «ThisDocument» на «ActiveDocument» и сделайте перед выполнением кода искомый документ активным. »

Дайте мне "удочку"... удалил, скопировал, вставил в модуль ThisDocument.
Макрос в списке для запуска отсутствовал. Запустил по кнопке, всё сработало
Что не так я сделал, чтобы запускать макрос по кнопке "выполнить", причём для любых следующих документов?
Как я понял, это способ "заплатки" на то, что я навоял... создать новый макрос и проследить, чтобы он был в «ActiveDocument»? Спасибо.

[Iska]

для любых следующих документов? »

Так:

Либо поменяйте в коде объект «ThisDocument» на «ActiveDocument» и сделайте перед выполнением кода искомый документ активным. »

и проследить, чтобы он был в «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.

[flev45]

как удалить все строки с "жирным" текстом, в начале которого стоит "точка"? »

И последнее: как удалить/убрать из документа все эти строки?

[Iska]

И последнее: как удалить/убрать из документа все эти строки? »

Сообщение #2, п. 2б. Или Вы хотите именно удалить данные строки абзацы?

[flev45]

1б. Правильнее говорить не «строка», а «абзац». 2а. В начале абзаца не «стоит "точка"», а находится метка многоуровневого списка: Скрытый текст 2б. Ничего «удалять» не нужно. В Вашем случае досточно тупо скопировать формат с любой отличной строки и протянуть его на весь текст: »

Я пробовал так делать. Появляется символ "метла"... что с ним делать, чтобы всё это удалить?

Сообщение #2, п. 2б. Или Вы хотите именно удалить данные строки абзацы? »

Да, удалить. Мне эти абзацы не нужны

[Iska]

что с ним делать, чтобы всё это удалить? »

Протянуть от начала документа до конца. Тем самым Вы скопируете формат выделенного абзаца все те, поверх которых протянете эту «метлу». Проще всего делать эту протяжку слева от текста, вдоль полей: https://i.imgur.com/27Reecw.gifv.

А, не нужны… Не дочитал. Ну, давайте попробуем удалить все абзацы, оформленные списком. Делать?

P.S. Вы зря не хотите использовать это. Экспортировали, открыли в Excel/Word/Access, отформатировали по своему желанию — и готово. Быстро и просто.

[flev45]

А, не нужны… Не дочитал. Ну, давайте попробуем удалить все абзацы, оформленные списком. Делать? P.S. Вы зря не хотите использовать это. Экспортировали, открыли в Excel/Word/Access, отформатировали по своему желанию — и готово. Быстро и просто. »

Конечно делать!
ПС: там есть своя специфика. ПайПал в этих файлах даёт подробнейшую инфу, включая свои внутренние заморочки, которая мне не нужна. Я выделил весь текст с HTML и перенёс его в word... а там всё тоже быстро, с Вашей помощью

[Iska]

ПайПал в этих файлах даёт подробнейшую инфу, включая свои внутренние заморочки, которая мне не нужна. »

Ничто не мешает исключить эту информацию при импорте данных из .csv. Так Вы сделаете это один раз — и навсегда.

Попробуйте посмотреть: Microsoft Excel Получение внешних данных - Поиск в Google, может, понравится?!