Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Ветеран


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

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


1а. «2 первые строки» у Вас выглядят совсем не так, как Вы думаете. Включите отображение непечатных символов (в том числе — скрытого текста) и увидите:
Скрытый текст

1б. Правильнее говорить не «строка», а «абзац».

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

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


gifv не поддерживается, потому просто ссылка на анимацию: https://i.imgur.com/27Reecw.gifv


3.
Цитата 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
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:28, 15-05-2019 | #2