Address Property

Article
07/11/2006

Address property as it applies to the Envelope object.

Returns the envelope delivery address as a Range object. Read-only.

expression.Address

expression Required. An expression that returns one of the above objects.

Note An error occurs if you use this property when there hasn't been an envelope added to the specified document.

Address property as it applies to the Hyperlink object.

Returns or sets the address (for example, a file name or URL) of the specified hyperlink. Read/write String.

expression.Address

expression Required. An expression that returns one of the above objects.

Example

As it applies to the Envelope object.

This example displays the delivery address if an envelope has been added to the document; otherwise, it displays a message.

On Error GoTo errhandler
addr = ActiveDocument.Envelope.Address.Text
MsgBox Prompt:=addr, Title:="Delivery Address"
errhandler:
If Err = 5852 Then MsgBox "Insert an envelope into the document"

As it applies to the Hyperlink object.

This example adds a hyperlink to the selection in the active document, sets the address, and then displays the address in a message box.

Set aHLink = ActiveDocument.Hyperlinks.Add( _
    Anchor:=Selection.Range, _
    Address:="http://forms")
MsgBox "The hyperlink goes to " & aHLink.Address

If the active document includes hyperlinks, this example inserts a list of the hyperlink destinations at the end of the document.

Set myRange = ActiveDocument _
    .Range(Start:=ActiveDocument.Content.End - 1)
Count = 0
For Each aHyperlink In ActiveDocument.Hyperlinks
    Count = Count + 1
    With myRange
        .InsertAfter "Hyperlink #" & Count & vbTab
        .InsertAfter aHyperlink.Address
        .InsertParagraphAfter
    End With
Next aHyperlink

Applies to | Envelope Object | Hyperlink Object

Share via