Visual Basic - MailMerge y acentos

Life is soft - evento anual de software empresarial
 
Vista:

MailMerge y acentos

Publicado por anafer (1 intervención) el 06/10/2004 11:21:03
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 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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder