Share this Page URL
Help

UserForms > UserForms - Pg. 444

.TypeText Text:=Nz(lst.Column(4, intItem)) & " " & _ Nz(lst.Column(2, intItem)) & " " & Nz(lst.Column(1, intItem)) .TypeParagraph .TypeText Text:=Nz(lst.Column(3, intItem)) .TypeParagraph .TypeText Text:="Northwind Traders" .TypeParagraph .TypeText Text:=Nz(lst.Column(7, intItem)) .TypeParagraph .TypeText Text:=Nz(lst.Column(8, intItem)) & ", " & _ Nz(lst.Column(9, intItem)) & " " & Nz(lst.Column(10, intItem)) .TypeParagraph .TypeText Text:=Nz(lst.Column(11, intItem)) .TypeParagraph .TypeParagraph .TypeText Text:="Dear " & Nz(lst.Column(2, intItem)) & ":" .TypeParagraph .TypeParagraph .TypeText Text:=strLetterText .TypeParagraph .TypeParagraph .TypeText Text:="Yours sincerely" .TypeParagraph .TypeParagraph .TypeParagraph .TypeParagraph .TypeText Application.ActiveDocument. BuiltInDocumentProperties(wdPropertyAuthor) End With