Something

Set 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