Share this Page URL

The Document Object > The Document Object - Pg. 430

InsertAsField:=False, DateLanguage:=wdEnglishUS, _ CalendarType:=wdCalendarWestern, InsertAsFullWidth:=False .TypeParagraph .ParagraphFormat.Alignment = wdAlignParagraphLeft .TypeParagraph .TypeParagraph .TypeText Text:=strFullName .TypeParagraph .TypeText Text:=strAddress .TypeParagraph .TypeParagraph .TypeText Text:=strSalutation .TypeParagraph .TypeParagraph End With ErrorHandlerExit: Exit Sub ErrorHandler: If Err.Number = 91 Then MsgBox "No contact item open in Outlook; canceling merge" Application.ActiveDocument.Close Exit Sub Else MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description Resume ErrorHandlerExit End If