Copy data - Multiple Word Pages to Excel

R

Raghu

I want copy data in word document (multiple pages copy like pages 3 to
10) and paste it to excel.
 
R

Raghu

Sorry for the confusion...

Here is the problem - I have word document which is having data for
more 200 pages. I need a macro in excel which should copy data from
pages 100 - 150 from word file and paste it in Excel (Sheet1).
 
R

Raghu

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top