VBA Найти и заменить

Question

Я использую Excel VBA для создания текстовых документов из электронной таблицы.Я хочу найти и заменить все двойные абзацы отдельными абзацами как часть последнего шага.

Базовый код:

Dim objWord
Dim objDoc
Dim objSelection

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
Set objSelection = objWord.Selection

objSelection.TypeText "Test"
objSelection.TypeText (vbCr)
objSelection.TypeText (vbCr)
objWord.Visible = True

Поиск и замена основных текстовых произведений:

With objWord.ActiveDocument
    Set myRange = .Content
    With myRange.Find
        .Execute FindText:="test", ReplaceWith:="apple", Replace:=2
    End With
End With

Поиск и замена абзацев НЕ работает:

With objWord.ActiveDocument
    Set myRange = .Content
    With myRange.Find
        .Execute FindText:="^^p", ReplaceWith:="^p", Replace:=2
    End With
End With

Answer 1

Изменить

.Execute FindText:="^^p", ReplaceWith:="^p", Replace:=2

на

.Execute FindText:="^p^p", ReplaceWith:="^p", Replace:=2