Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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). |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy/Paste Multiple cells from Excel to Word | Excel Programming | |||
using excel data to create multiple web pages | Excel Programming | |||
How do I import a word doc, multiple pages, into Excel cell? | Excel Discussion (Misc queries) | |||
How do I import a word doc, multiple pages, into Excel cell? | Excel Discussion (Misc queries) | |||
Copy Excel to Word - Multiple Pages | New Users to Excel |