Copy data - Multiple Word Pages to Excel
 

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

Copy data - Multiple Word Pages to Excel
 

What is preventing you from doing that?


Gord

On Fri, 30 Dec 2011 18:48:28 -0800 (PST), Raghu
wrote:

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

Copy data - Multiple Word Pages to Excel
 

Gord Dibben wrote:

On Fri, 30 Dec 2011 18:48:28 -0800 (PST), Raghu
wrote:

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

What is preventing you from doing that?

In other words, Raghu: can you be more specific with the description of your
problem?

--
You were never paranoid... until they started coming after you.

Copy data - Multiple Word Pages to Excel
 

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).

Copy data - Multiple Word Pages to Excel
 

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