Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming,microsoft.public.word.vba.general
|
|||
|
|||
Excel Range In Word
I wish to paste a named range from Excel into a Word Document using VBA.
From Excel I have created a Word document as an object, but cannot understand how to use any of the Word VBA code I have recorded. In Excel I can easily reference the named range I require to insert, but how I utilise this to paste it into the Word document I have created has me scratcjing my head. Recording the paste operation in Word gives: Selection.PasteExcelTable False, False, False All I am trying to to is paste a number of Excel ranges into a Word document, does anyone have any code whioch might help me. PWS |
#2
Posted to microsoft.public.excel.programming,microsoft.public.word.vba.general
|
|||
|
|||
Excel Range In Word
So, if you take your recorded code and qualify it with te Word object ...
(YourWordObject).Selection.etc what happens? -- Enjoy, Tony "Paul W Smith" wrote in message ... I wish to paste a named range from Excel into a Word Document using VBA. From Excel I have created a Word document as an object, but cannot understand how to use any of the Word VBA code I have recorded. In Excel I can easily reference the named range I require to insert, but how I utilise this to paste it into the Word document I have created has me scratcjing my head. Recording the paste operation in Word gives: Selection.PasteExcelTable False, False, False All I am trying to to is paste a number of Excel ranges into a Word document, does anyone have any code whioch might help me. PWS |
#3
Posted to microsoft.public.excel.programming, microsoft.public.word.vba.general
|
|||
|
|||
Excel Range In Word
Paul,
Try this: Sub CopyToWord() 'must have a reference to the word object library Dim wdApp As Word.Application Dim ws As Worksheet Dim wdDoc As Word.Document Set wdApp = CreateObject("Word.application") Set wdDoc = wdApp.Documents.Add For i = 1 To Names.Count ActiveSheet.Range(Names(i)).Copy wdDoc.Paragraphs(wdDoc.Paragraphs.Count) _ .Range.InsertParagraphAfter wdDoc.Paragraphs(wdDoc.Paragraphs.Count) _ .Range.Paste Next i wdApp.ActiveDocument.Save wdDoc.Close Set wdDoc = Nothing wdApp.Quit Set wdApp = Nothing End Sub -- Dan On Dec 17, 2:23 pm, "Paul W Smith" wrote: I wish to paste a named range from Excel into a Word Document using VBA. From Excel I have created a Word document as an object, but cannot understand how to use any of the Word VBA code I have recorded. In Excel I can easily reference the named range I require to insert, but how I utilise this to paste it into the Word document I have created has me scratcjing my head. Recording the paste operation in Word gives: Selection.PasteExcelTable False, False, False All I am trying to to is paste a number of Excel ranges into a Word document, does anyone have any code whioch might help me. PWS |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
pasting excel range into a Word doc | Excel Programming | |||
How can I save a Range in Excel to a Word File? | Excel Programming | |||
Can't Dim Range when Controlling Word from Excel | Excel Programming | |||
Inserting Excel Range into Word | Excel Programming | |||
Getting a range from Excel into a Word document | Excel Programming |