rendered paste bodySet objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.Font.Name = "Arial"
objSelection.ParagraphFormat.Alignment=1
objSelection.Font.Underline= true
objSelection.Font.Size = "12"
objSelection.TypeText "Equipment Cost"
objSelection.Font.Underline= false
objSelection.TypeParagraph()
objSelection.ParagraphFormat.Alignment=0
for i = 1 to 5
objSelection.TypeText"Equipment name: " & equip(i)
objSelection.TypeParagraph()
objSelection.TypeText"Quantity: " & qty(i)
objSelection.TypeParagraph()
objSelection.TypeText"Cost: "& cost(i)
objSelection.TypeParagraph()
objSelection.TypeText"Total: "& total(i)
objSelection.TypeParagraph()
next
objDoc.SaveAs("C:\Scripts\lab4_q2.docx")
objWord.Quit