Share this Page URL
Help

UserForms > UserForms - Pg. 447

.InsertDateTime DateTimeFormat:="dddd, MMMM dd, yyyy", _ InsertAsField:=False, DateLanguage:=wdEnglishUS, _ CalendarType:=wdCalendarWestern, InsertAsFullWidth:=False .TypeParagraph .ParagraphFormat.Alignment = wdAlignParagraphLeft .TypeParagraph .TypeParagraph .TypeText Text:=Nz(lst.Column(3, intItem)) .TypeParagraph .TypeText Text:=Nz(lst.Column(1, intItem)) .TypeParagraph .TypeText Text:=Nz(lst.Column(2, intItem)) .TypeParagraph .TypeParagraph .TypeText "Dear Sir:" .TypeParagraph .TypeParagraph .TypeText strLetterText .TypeParagraph .TypeParagraph .TypeText "Yours sincerely" .TypeParagraph .TypeParagraph .TypeParagraph .TypeParagraph .TypeText Application.ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) End With End If Next intItem 'Windows.Arrange ErrorHandlerExit: Exit Sub ErrorHandler: MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description Resume ErrorHandlerExit End Sub Private Sub cmdCancel_Click( ) 'Written by Helen Feddema 1-15-2000 'Last modified 1-15-2000 On Error GoTo ErrorHandler Unload frmOutlookData ErrorHandlerExit: Exit Sub ErrorHandler: Working with VBA UserForms | 447