Hi all

I got the sollution :). Please let me know, if you have easy way.

Sub NewMacro()
Dim WdApp As Word.Application 'Word Application
Dim WdDoc As Word.Document 'Word Document
Dim rgePages As Word.Range
Dim StartPageNum As Double
Dim EndPageNum As Double

StartPageNum = 100
EndPageNum = 150

On Error Resume Next
Set WdApp = GetObject(, "Word.application")
If Err.Number < 0 Then
Set WdApp = CreateObject("Word.application")
End If
On Error GoTo 0

On Error Resume Next
Set WdDoc = WdApp.Documents("File Name") 'Please change your file name
If Err.Number < 0 Then
Set WdDoc = WdApp.Documents.Open("C:\File Name") 'Please change your
file name and path
End If

WdApp.Documents(WdDoc).Activate
WdApp.Visible = True

WdApp.Selection.Goto what:=wdGoToPage, which:=wdGoToAbsolute,
Count:=20
Set rgePages = WdApp.Selection.Range
WdApp.Selection.Goto what:=wdGoToPage, which:=wdGoToAbsolute,
Count:=40
rgePages.End = WdApp.Selection.Bookmarks("\Page").Range.End
rgePages.Select
End Sub