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

Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] Как удалить все строки в Word 2010 по результатам работы "Поиск" и "Заменить"?

Ответить
Настройки темы
2010 - [решено] Как удалить все строки в Word 2010 по результатам работы "Поиск" и "Заменить"?

Аватара для flev45

Старожил


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


Конфигурация

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


Изменения
Автор: flev45
Дата: 27-05-2019
Как удалить все строки в Word 2010 по результатам работы "Поиск" и "Заменить"?
Есть текст, часть которого прилагаю. 2 первые строки получил вручную.
Остальные строки текста (20-30 страниц), желательно получить используя функции "Поиск" и "Заменить".
Например, как удалить все строки с "жирным" текстом, в начале которого стоит "точка"?
Или отыскал все строки с "Laden der Transaktionsdetails". Как их все удалить, не вручную?
Спасибо.

Отправлено: 10:55, 15-05-2019

 

Ветеран


Contributor


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

Профиль | Отправить 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



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


(*.*)


Administrator


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

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


flev45,
Количество ваших тем, у которых ноги растут из одной задачи, зашкаливает. Это не запрещено правилами, но конкретная задача при этом толком не озвучена. А если она в том, чтобы экспортировать список транзакций PayPal в удобный для дальнейшего анализа вид, то есть экспорт в CSV.

Код: Выделить весь код
Date,"Time","TimeZone","Name","Type","Status","Currency","Amount","Receipt ID","Balance"

-------
Канал Windows 10, etc | Чат @winsiders

Это сообщение посчитали полезным следующие участники:

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


Ветеран


Contributor


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

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


Vadikan, видимо, проблема была ещё и в том, что среди отвечающих должен был найтись человек, который пользуется PayPal.

Отправлено: 19:38, 15-05-2019 | #4


Аватара для flev45

Старожил


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

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


Цитата 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" как были, так и остались.

Последний раз редактировалось flev45, 27-05-2019 в 16:32.


Отправлено: 12:01, 16-05-2019 | #5


Ветеран


Contributor


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

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


flev45, покажите, куда Вы его записали. Меня интересует обрезанная левая часть:
Скрытый текст


Цитата flev45:
Уважаемый, ваш макрос ничего не меняет. »
У меня — удаляет искомые абзацы. Я имею привычку проверять выкладываемый код. Если я его не проверяю — я так и указываю: «(не проверялось)».

Отправлено: 12:15, 16-05-2019 | #6


Аватара для flev45

Старожил


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

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


Как эту левую часть вызвать? У меня её нет...

Последний раз редактировалось flev45, 27-05-2019 в 16:32.


Отправлено: 12:28, 16-05-2019 | #7


Аватара для flev45

Старожил


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

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


Нажал "Отладка", появилась 1-я строка макроса на выполнение... это пошаговый режим?

Последний раз редактировалось flev45, 27-05-2019 в 16:32.


Отправлено: 12:33, 16-05-2019 | #8


(*.*)


Administrator


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

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


Ctrl+R
Это сообщение посчитали полезным следующие участники:

Отправлено: 12:33, 16-05-2019 | #9


Аватара для flev45

Старожил


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

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


Сделал

Последний раз редактировалось flev45, 27-05-2019 в 16:32.


Отправлено: 12:36, 16-05-2019 | #10



Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] Как удалить все строки в Word 2010 по результатам работы "Поиск" и "Заменить"?

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - [решено] Как удалить папку "Моя музыка","Мои Картинки", "Мое видео"? verdix Microsoft Windows 2000/XP 3 03-10-2009 23:46
Не получается найти все выпуски "Хакер"+"спец"+"железо" verdix Хочу все знать 5 29-11-2008 15:19
[решено] Как удалить два "неудаляемых" вируса, их "назначение", и принцип работы Drongo Хочу все знать 20 11-05-2008 01:14
Запретить/удалить пункт "Programs" ("Программы") из меню кнопки "Start" ("Пуск") submaster Microsoft Windows NT/2000/2003 5 13-09-2006 12:29




 
Переход