Hola:

Tengo un documento de Word con campos de combinación y lo relleno con
los datos de un fichero de texto usando MailMerge. Pero cuando tengo
acentos entre los datos en Word me aparecen símbolos en su lugar,
cuadrados y cosas semejantes. Sé que me ocurre porque no me reconoce
el idioma y basta con indicarle que se utilice el juego de caracteres
de Europa Occidental ISO-8859-1. Mi problema es que no sé mediante qué
parámetro del MailMerge lo debo indicar. He buscado en la ayuda y no
me explica los parámetros y posibles valores.

Este es mi código simplificado

Dim GenDoc As Document

' informe contiene el nombre del fichero de Word con los campos
combinados.
Set GenDoc = m_WordAp.Documents.Open(App.Path & "\Informes\" &
informe & ".dat", , True, False, , , , , , , , True)

' En dirTemp tengo el directorio temporal del sistema, que es donde
genero mi fichero con los datos. Fichero es el nombre del fichero de
texto que contiene mis datos.

GenDoc.MailMerge.OpenDataSource Name:=dirTemp & "\" & fichero, _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"DSN=dBASE Files;DBQ=" & dirTemp &
";DefaultDir=e:\;DriverId=533;MaxBufferSize=2048;PageTimeout=5;" _
, SQLStatement:="select * from " & fichero, SQLStatement1:=""

With GenDoc.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With

¿Alguien me puede ayudar?

Muchas gracias.