Insert one address from contacts in document

[frank]

How do I insert one contact into a document under my own
address format:
Company Name
Full Name
Business Address
Business Phone
Business Fax

Knowledge base 212345 provides info on this subject;
however, it does not seem to work for me.

Could someone guide me step by step??
Thanks
Frank

 

[Jezebel]

' Look up a name and address and insert it into the current document at the
' current insertion point
'
Public Sub InsertNameFromList()

Const STYLE_A as string = "Normal NoLead" 'Lines other than
last: 0 before, 0 after
Const STYLE_B as string = "Normal" 'Last line:
0 before, 6 after

Dim pText As String
Dim pLayout As String
Dim pData() As String
Dim pIndex As Long

'Define the required format
pLayout = "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & _
"<PR_COMPANY_NAME>" & vbCr & _
"<PR_STREET_ADDRESS>" & vbCr & _
"<PR_LOCALITY>" & " " & "<PR_STATE_OR_PROVINCE>" & " " &
"<PR_POSTAL_CODE>"

'Fetch the address in the required format
pText = Application.GetAddress(AddressProperties:=pLayout)

'Insert into document unless not found or cancelled
If Len(pText) > 0 Then

'Split into lines
pData = Split(pText, vbCr)

'Insert the name: style A
Selection.Style = ActiveDocument.Styles(STYLE_A)
Selection.TypeText Text:=pData(0)
Selection.TypeParagraph

'Loop through the remaining lines
For pIndex = 1 To UBound(pData)

'Last line: Style_B, no trailing paragraph
If pIndex = UBound(pData) Then
Selection.Style = ActiveDocument.Styles(STYLE_B)
Selection.TypeText Text:=pData(pIndex)

'Not last line: Style_A inherited from previous line, add
trailing paragraph
Else
Selection.TypeText Text:=pData(pIndex)
Selection.TypeParagraph
End If

Next

End If

End Sub

 

[frank]

Thanks for the quick response!
However I have no idea what to do with the information
you gave me.
If you could please tell me what to do with this info.
Thanks Frank

-----Original Message-----

' Look up a name and address and insert it into the current document at the
' current insertion point
'
Public Sub InsertNameFromList()

Const STYLE_A as string = "Normal

NoLead" 'Lines other than

last: 0 before, 0 after
Const STYLE_B as string

= "Normal" 'Last line:

 

[Suzanne S. Barnhill]

See http://www.gmayor.com/installing_macro.htm

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.mvps.org/word
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Graham Mayor]

See also http://www.gmayor.com/Macrobutton.htm in which this particular
subject is discussed as an example.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>
Graham Mayor - Word MVP
E-mail (e-mail address removed)
Web site www.gmayor.com
Word MVP web site www.mvps.org/word
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>