Dim objWord As Object Dim appWord As Word.Application On Error Resume Next Set appWord = GetObject(, "Word.Application") If Err Then Err.Clear Set appWord = CreateObject("Word.Application") If Err Then MsgBox "Can't start Word!" Exit Sub End If appWord.Visible = True End If With appWord.Documents.Add(Template:="WCSQuoteTemplate") 'move to each bookmark, and insert correct text .SaveAs FileName:=myfilename, FileFormat:=wdFormatDocumentDefault .Close .Application.Quit End With Set objWord = Nothing
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE