Buenas amigos:
He estado buscando por todos los sitios como acceder a los campos de una plantilla creada en Word pero lo que he visto no me ha solucionado el problema.
He visto codigo en el que se utiliza para acceder a los campos codigo como este, pero yo por mucho que lo intento, Variables no lo veo definido en el tipo TwordApplication.
Código:
If FileExists (Fich) Then
begin
documento:=Word.Documents.Open(Fich);
for I := 1 to Documento.Variables.Count do
begin
NomVar:=Documento.Variables.Item(I).Name;
Case NomVar[1] of
'N': documento.Variables.Item(I).Value:= DM.ADODataSet4Nombre.AsString+
' '+ DM.ADODataSet4Apellido1.AsString+' '+
DM.ADODataSet4Apellido2.AsString;
'D': documento.Variables.Item(I).Value:= DM.ADODataSet4Direccion.AsString;
'L': documento.Variables.Item(I).Value:= DM.ADODataSet4Localidad.AsString;
'P': documento.Variables.Item(I).Value:= DM.ADODataSet4Provincia.AsString;
'T': documento.Variables.Item(I).Value:= DM.ADODataSet4Telefono.AsString+' '+
DM.ADODataSet4Movil.AsString;
end; // Case
end; // For
end
Y otros códigos fuentes que he utilizado, pero no funcionan.
He mirado en el foro, pero no localizo un hilo que me resuelva el problema
Alguien sabe como acceder a los campos de una plantilla de Word desde delphi 7
Un saludo y muchas gracias.