2

Примечание: Первоначально я спрашивал, как выбрать текст с определенной точки вниз, но у меня есть решение для этого:

Dim f As Word.Field
For Each f In ActiveDocument.Fields
    If f.Type = wdFieldAddin And f.Data = "BeginBody" Then
        f.Select
        Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    End If
Next

Теперь мой вопрос: как выбрать текст между "BeginBody" и "EndBody"?

Спасибо

|источник

1 ответ1

3

Используйте две закладки. Назовите начальную закладку "начало" и конечную закладку "конец".
После этого следующий код выделит полный текст между этими двумя.

Sub SelectTextBetweenBookmarks()

    Set rngStart = ActiveDocument.Bookmarks("Start").Range
    Set rngEnd = ActiveDocument.Bookmarks("End").Range

    Range(rngStart.Start, rngEnd.End).Select

End Sub

|источник

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .