Excel macro referring to Word doc

[scotawful]

This one's a tuffy (I think). I've got a macro (from a previous post) that creates a word doc. and then allows me to copy/paste from excel to the newly-created word doc. I'm trying to modify this so that instead of the macro creating a new word doc. from scratch, the user will define an already-open word document in which the stuff from excel is to be pasted. I've gotten as far as settin the variable that represents the user-defined word doc. The problem I'm having is when I try to define that variable so that it can be used in the statements that paste into word. The code looks something like this:

Sub excel_to_word()

Dim FName As Variant
FName = Application.GetOpenFilename("Word Documents (*.doc), *.doc")

Dim wdDoc As Object

Set wdDoc = FName ****here is where the problem starts*****

Range("d9").Select
Selection.Copy
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.InsertParagraphAfter
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.Paste

end sub

Does anyone have any suggestions or similar code that I might be able to scratch a solution out of???

 

[scotawful]

Help?! Someone??? Please??!

 

[Richie(UK)]

Hi,

Is this what you mean?

Sub excel_to_word()
Dim FName As Variant
Dim appWD As Word.Application
Dim wdDoc As Word.Document

FName = Application.GetOpenFilename("Word Documents (*.doc), *.doc")
Set appWD = CreateObject("Word.Application")
Set wdDoc = appWD.Documents.Open(FName)

Range("d9").Copy
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.InsertParagraphAfter
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.Paste

End Sub

HTH

 

[scotawful]

Whew! This works, for the most part. How would you define the word document without having to use the open command: I'm trying to get this code to work with the word document already open.

Thanks so much for the help so far though!!

PS. I wasn't able to get the:

dim wdApp as word.application
dim wdDoc as word.document

to work properly, so I simply defined them as objects since I kept getting an undefined variable type error.

 

[Richie(UK)]

Hi,

Sorry, forgot to explain about the reference needed - see code below:

Sub excel_to_word()
Const FName As String = "C:\My Documents\Letters\TERMINATION PAYMENTS.doc"
Dim appWD As Word.Application
Dim wdDoc As Word.Document
'need to set a reference (Tools menu) to the Microsoft Word Object Library
'otherwise, define as Objects

Set appWD = CreateObject("Word.Application")
Set wdDoc = appWD.Documents.Open(FName)

Range("d9").Copy
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.InsertParagraphAfter
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.Paste

End Sub

HTH

 

[scotawful]

I ended up reworking the code you gave earlier to this:

Dim FName As Variant
Dim wdApp As Object
Dim wdDoc As Object

FName = Application.GetOpenFilename("Word Documents (*.doc), *.doc")
Set wdApp = GetObject(, "Word.Application")
Set wdDoc = wdApp.Documents(FName)

This let me set FName as variable to an already-open word doc. From there I had to use the GetObject command instead of CreateObject because I am assuming that Word will already be a running application.
Now the problem I'm running into is when I want to run a small piece to make sure an instance of word is already up. Does anyone know the correction I need to make to the following code to check for Word instead of Excel like this one does:

Dim chk As Long
chk = FindWindow("xlMAIN", 0)

Richie, Thanks for all the help so far. Much appreciated.