Sub nanann(
Dim WrdApp As Word.Applicatio
Dim WrdDoc As Word.Documen

Set WrdApp = CreateObject("Word.Application"
Set WrdDoc = WrdApp.Documents.Add("YourTemplate"
'other operation
WrdDoc.Close SaveChanges:=Fals
WrdApp.Quit
Set WrdDoc = Nothin
Set WrdApp = Nothin
End Su