Plantillas word desde Delphi 7
 

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.