Sub dddd() Set wd1 = CreateObject("Word.Document") Set wd2 = wd1.Application wd2.Selection.TypeText Range("A1").Value wd1.SaveAs "D:\1.docx", wdFormatXMLDocument wd2.Quit End Sub