Есть ли способ удалить макросом все абзацы определенного типа?
Я создаю шаблон Word счета на основе Word Mail Merge. Я получаю необходимую информацию через файл .csv из веб-приложения и создаю таблицу на основе этой информации. Данные даются так:
Person1 - InvoicePos1 - InvoicePos2 - InvoicePos3 - InvoicePos4
Person2 - InvoicePos1 - InvoicePos2 - InvoicePos3 - InvoicePos4
Person3 - InvoicePos1 - InvoicePos2 - InvoicePos3 - InvoicePos4
.
.
.
.
Существует разное количество типов/позиций счетов-фактур, поэтому мне нужно создать динамическую таблицу, которая до сих пор прекрасно работает.
Моя проблема: Кажется, что Word автоматически вставляет абзац перед каждой таблицей, которая вставляется с помощью оператора {IF}. Почему я знаю, что это Word, который вставляет эти абзацы? Ну, весь документ в Calibri размера 12, но эти абзацы - Times New Roman 10.
IMGUR-Link с (надеюсь, полезными изображениями)
Мой вопрос: есть ли способ создать макрос, который работает над созданным документом, который отключает/скрывает каждый абзац Times New Roman?
Я уже пробовал разные настройки, чтобы попытаться предотвратить создание этих абзацев, но безрезультатно. Итак, теперь я пытаюсь скрыть эти абзацы после создания документа.
Sub HidePara()
If /FoundParagraphs/.Font.Name = "Times New Roman" Then
/FoundParagraphs/.Hidden = true
End If
End Sub
Я знаю, как изменить скрытый атрибут (что совсем не сложно ..) Но как мне искать либо все метки абзаца (мне пришлось бы использовать заданный оператор If), либо (что было бы лучше, имхо) фильтр для всех абзацев .Font.Name «Times New Roman». Я вообще не могу найти метки абзаца. Но, опять же, я довольно новичок в VBA и на самом деле понятия не имею, что я здесь делаю. Поскольку VBA действительно великолепен. фейспалм
Ответы 2
Вы можете просто удалить их:
Sub DelPara()
Dim oPara As Paragraph
For Each oPara In ActiveDocument.Paragraphs
If oPara.Range.Font.Name = "Times New Roman" Then oPara.Range.Delete
Next oPara
End Sub
Наконец-то у меня появилось время немного повозиться с другим ответом, и на самом деле, на мой взгляд, он более практичен, поскольку я могу искать больше разных переменных. Более полезно запустить другой ответ в макросе, где я могу вставить разные значения для Font.Name, .Text и т. д. Это все еще работало как шарм!
Еще быстрее работает простой поиск/замена:
Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Font.Name = "Times New Roman"
.Execute Replace:=wdReplaceAll
End With
End With
Application.ScreenUpdating = True
End Sub
Большое спасибо! Искал «Найти все абзацы» в Google, и единственное, что я нашел, это .Find ... почему не было опции «Как абзацы». Работает отлично!