Add Hyperlink to Word Document through Excel VBA

[dhancy]

My Excel VBA creates a Word Document.

I want to add a hyperlink to some of the text in this document.

Here is a snippet of the code:

    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document

    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add(Template:=folder & "\DD3.dotx")
...

   With wrdApp.Selection

       .TypeParagraph
       .TypeText sometext

       .Hyperlinks.Add Anchor:=Selection.Range, Address:=file & ".pdf", _
                        SubAddress:="", ScreenTip:="", TextToDisplay:=file

...

end with

The ".hyperlinks" line I obtained from recording a macro in Word.


When I attempt to run this, I get the error:

--
Run-time error '450':
Wrong number of arguments or invalid property assignment
---


In my debugging efforts, I noticed this: When I type out ".hyperlinks.add ", I see the pop up list of help tips to complete the command. There are six properties shown: Anchor, Address, SubAddress, ScreenType, TextToDispay AND Target.

I am guessing the error means there is another argurment I need to pass - Target. What is that? What value to I use for it? And how come that doesn't show up when I recorded the Word macro?


Thanks,
Dennis

 

[dhancy]

This always happens.

Once I ask a question, I stumble across the answer.

Thought I'd share what I found out in case anyone else has this problem.


The problem isn't with the TARGET parameter. The problem is that I needed to add "wrdApp." in front of "selection.range" on the Anchor parameter. I am guessing that the code thought it was an Excel selection and not a Word selection.

The correct code is

Hyperlinks.Add Anchor:=wrdApp.,Selection.Range, Address:=file & ".pdf", _
                        SubAddress:="", ScreenTip:="", TextToDisplay:=file

Now if I could just figure out how to select the text to which I want to add the hyperlink.

That will be my next task.


Dennis