| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open One Word File from Excel
Thanks, that did the trick.
-----Original Message----- Use GetObject. This will return an existing Word application. If it returns Nothing, then use CreateObject to create a new instance of Word. E.g., Dim WordObj As Object Set WordObj = GetObject(, "Word.Application") 'note leading comma If WordObj Is Nothing Then Set WordObj = CreateObject("Word.Application") End If -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Stratuser" wrote in message ... Thanks, but that doesn't work either, because I don't want to create a new instance of Word each time I run this subroutine. If I use CreateObject("word.application") I get a new instance every time I call the procedure. -----Original Message----- Stratuser, you can try this. Sub copyexceltoword() Set wd = CreateObject("word.application") wd.Application.Visible = True wd.Application.Documents.Open "c:\matt.doc" ' Open your word document Application.Visible = True For a = 1 To 5 Application.Range("a" & a).Copy 'copy data from excel wd.Selection.Paste 'Paste data into word Next a Set wd = Nothing 'Clear the memory. Very important. End Sub let me know if you need further help. --- Message posted from http://www.ExcelForum.com/ . . |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to open Excel/Word/PP file in office 2003 by default? | Excel Discussion (Misc queries) | |||
| Word and Excel crash when I try to open a folder to get to a file | Excel Discussion (Misc queries) | |||
| Trying to open Excel/Word files error message "Unable to read file | Excel Discussion (Misc queries) | |||
| open word file? | Excel Programming | |||
| Graph Excel Selection, Open Word File, Embed Graph Into Word | Excel Programming | |||
Hybrid Mode
