Word - iniciar macro pide codificacion de texto

saludos al iiniciar un documento word docm que hace combinar correspondencia al inicio me pide siempre seleccionar la codificacion de archivo uso word 2019 gracias


este es el codigo de macro

Sub AutoOpen()

'
'cambiar la ruta del archivo
ActiveDocument.MailMerge.OpenDataSource Name:="C:\Users\pc\Desktop\acuerdo.mer", Format:=wdOpenFormatAuto, ConfirmConversions:=False, ReadOnly:= _
True, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
"", Revert:=False, Connection:="", SQLStatement _
:="", SQLStatement1:="", SubType:=wdMergeSubTypeOther
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord

With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With


With Documents("Acuerdo.docm").MailMerge.DataSource
.ActiveRecord = wdFirstRecord
cedula = .DataFields("cedula_puntos").Value

End With


ChangeFileOpenDirectory "C:\acuerdo\"

ActiveDocument.SaveAs2 FileName:= _
"C:\acuerdo\" & cedula & ".docx"
Dim archivo As Document
For Each archivo In Documents
imprimir = MsgBox("se va imprimir " & archivo.Name, vbOKCancel)
If imprimir = 1 Then
archivo.PrintOut
ActiveDocument.Close savechanges
Windows("acuerdo.docm").Activate
ActiveDocument.Close savechanges
End If
Next archivo

archivo.PrintOut

End Sub