Выделить текст между двумя пустыми строками в документе ворд vb.net - Visual Basic .NET - Ответ 4317948

Imports Word = Microsoft.Office.Interop.Word
Imports Microsoft.Office.Interop.Word
 
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
Dim _wdApplication As New Microsoft.Office.Interop.Word.Application 'Приложение Word
        Dim _wdDocument As Document = _wdApplication.Documents.Open("")
   With _wdApplication.Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "^13[!^13a-zа-яё]@^13[!^13a-zа-яё]@*^13^13"
            .Replacement.Text = "" ' просто для поиска
            ' для замены :
            '.Replacement.Text = "^13" & " замещающий текст 1-я строка" & "^13" & " 2-я строка" & "^13" & " 3-я строка" & "^13^13"
            .Forward = True
            .Wrap = Word.WdFindWrap.wdFindStop
            .Format = False
            .MatchCase = True
            .MatchWholeWord = False
            .MatchWildcards = True
            .Execute    ' Просто для поиска
            '.Execute Replace:=Word.WdReplace.wdReplaceAll 'Для замены
        End With
_wdDocument.Close()
        _wdApplication.Quit(True)
  End Sub
End Class