Выделить текст между двумя пустыми строками в документе ворд vb.net

Imports Word = Microsoft.Office.Interop.Word
Module Module1
 
    Sub Main()
        Dim wdApp As Word.Application = New Word.Application
        Try
            Dim wdDoc As Word.Document = wdApp.Documents.Open("")
            With wdDoc.Range.Find
                .Text = "^13.*^13"
                .MatchWildcards = True
                .Wrap = Word.WdFindWrap.wdFindContinue
                While .Execute
                    wdApp.Selection.MoveStart(Word.WdUnits.wdCharacter, 1)
                    wdApp.Selection.MoveEnd(Word.WdUnits.wdCharacter, -1)
                    'Теперь выделен только требуемый заголовок
                    'Делаем с ним всё, что угодно
                End While
            End With
        Catch ex As ArgumentException
 
        End Try
 
 
 
    End Sub
 
End Module

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:=.wdReplaceAll 'Для замены
        End With
wdDocument.Close()
        _wdApplication.Quit(True)
  End Sub
End Class

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

Imports Word = 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("C:\TEMP\Doc1.doc")
        With wdDocument.Content.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Replacement.Font.Bold = True
                .Text = "^13([!^13a-zа-яё]@^13[!^13a-zа-яё]@*^13)^13"
                .Replacement.Text = "^13" & "\1" & "^13" ' Возвращаем тот же текст
                .Forward = True
                .Wrap = Word.WdFindWrap.wdFindContinue
                .Format = False
                .MatchCase = True
                .MatchWholeWord = False
                .MatchWildcards = True
                .Execute Replace:=Word.WdReplace.wdReplaceAll 'Для замены
        End With
        wdDocument.Close()
        wdApplication.Quit (True)
    End Sub
End Class