I have a huge problem... I open a Word File and then when I Print it
the merged links break...
But when I do this operations without the Macro It works fine. What am
I doing wrong?

Sub wordchage()

Dim WordApp As Object
Dim Doc As Object

Set WordApp = CreateObject("Word.Application")

fpath = ThisWorkbook.Path

Doc1 = fpath & "\" & ("Base booklet.doc")
fname = Range("A3")
fnamedoc = fname & ".doc"

Set Doc = WordApp.Documents.Open(Doc1)

Application.DisplayAlerts = False
WordApp.Activedocument.SaveAs Filename:=fpath & "\" & fnamedoc
'WordApp.NormalTemplate.Saved = True
Sleep (1)

Set WordApp = Nothing
Set Doc = Nothing

End Sub


thanks a lot in advance