Follow Method
Displays a cached document associated with the specified Hyperlink object, if it's already been downloaded. Otherwise, this method resolves the hyperlink, downloads the target document, and displays the document in the appropriate application.
Note If the hyperlink uses the file protocol, this method opens the document instead of downloading it.
expression.Follow(NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo)
expression Required. An expression that returns a Hyperlink object.
NewWindow Optional Variant. True to display the target document in a new window. The default value is False.
AddHistory Optional Variant. This argument is reserved for future use.
ExtraInfo Optional Variant. A string or byte array that specifies additional information for HTTP to use to resolve the hyperlink. For example, you can use ExtraInfo to specify the coordinates of an image map, the contents of a form, or a FAT file name. The string is either posted or appended, depending on the value of Method. Use the ExtraInfoRequired property to determine whether extra information is required.
Method Optional Variant. Specifies the way additional information for HTTP is handled. Can be any MsoExtraInfoMethod constant.
| Enumerated type can be one of these enumerated type constants. |
| msoMethodGet ExtraInfo is a string that's appended to the address. |
| msoMethodPost ExtraInfo is posted as a string or a byte array. |
HeaderInfo Optional Variant. A string that specifies header information for the HTTP request. The default value is an empty string. You can combine several header lines into a single string by using the following syntax: "string1" & vbCr & "string2". The specified string is automatically converted into ANSI characters. Note that the HeaderInfo argument may overwrite default HTTP header fields.
Example
This example follows the first hyperlink in Home.doc.
Documents("Home.doc").HyperLinks(1).FollowThis example inserts a hyperlink to www.msn.com and then follows the hyperlink.
Dim hypTemp As Hyperlink
With Selection
.Collapse Direction:=wdCollapseEnd
.InsertAfter "MSN "
.Previous
End With
Set hypTemp = ActiveDocument.Hyperlinks.Add( _
Address:="http://www.msn.com", _
Anchor:=Selection.Range)
hypTemp.Follow NewWindow:=False, AddHistory:=True