Word - seleccionar y Copiar intervalo páginas

Sub SelectARangeOfTexts()

  Dim ObjSelectText As Range

  Dim strText As String

  strText = InputBox("Enter Marking word(s) here:", "Select a range of texts")

  Set ObjSelectText = Selection.Range

  With Selection

    .HomeKey Unit:=wdStory

    With Selection.Find

      .ClearFormatting

      .Text = strText

      .MatchCase = True

      .MatchWildcards = False

      .Execute

    End With

    ObjSelectText.End = Selection.Range.End - Len(strText)

    ObjSelectText.Select

  End With

End Sub

Sub SelectTextBetweenBookmarks()

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

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

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

End Sub