Combinar TWordDocument con Variant

[Casimiro Notevi]

A ver si algún compañero puede ayudarte, no conozco bien este tema.

De todas formas, quería felicitarte, qué digo, darte una medalla, por lo menos, por haber elegido un foro adecuado, poner un título descriptivo, explicar bien el problema, poner los 'tags' al código fuente, haberte leído la guía de estilo, etc.

Casi se me saltan las lágrimas de la emoción, ¡¡¡no voy a poder reñirte por nada!!!

Mientras llegas a los 10 mensajes mínimos, puedes poner enlaces "haciendo trampa", ejemplos:
ww.loquesea.com/algo.php
ttp.ww. algunsitio.es/noseque.html

Y algún moderador lo editará.

[EagleKingson]

Jajajaja ok ok, ya entendí el sarcasmo. Esa también fue una buena pedradada jaja..

Está bien, espero haya alguien por aquí que me puedar dar una mano. Te agradezco.

[Casimiro Notevi]

Empezado por EagleKingson

Jajajaja ok ok, ya entendí el sarcasmo. Esa también fue una buena pedradada jaja..

No, realmente es en serio, son pocos los que se molestan en hacer las cosas medianamente bien, o ni siquiera lo intentan.
¡¡¡Gracias y bienvenido a clubdelphi!!!

[cloayza]

Empezado por Casimiro Notevi

Mientras llegas a los 10 mensajes mínimos, puedes poner enlaces "haciendo trampa"...

Pense que jamás sería testigo de las enseñanza de malas prácticas...

MODERADOOOOOOOOOOOOOOR

Atienda al señor Casimiro Notevi

[EagleKingson]

Hola de nuevo, con respecto a la pregunta original. Estoy tratando de agregar mi Variant al objeto TWordDocument asi:

Código Delphi [-]
WordDocument1 := TWordDocument.Create(Application);
WordDocument1.ConnectTo(IDispatch(Word) as _Document);

pero me manda el error "Interface no soportada", me imagino que es por la versión de word que tengo. Guardé mi plantilla .dot en modo de compatibilidad 97-2003 pero el error me sigue saliendo. Tal vez alguien tenga una idea de resolverlo, gracias.

[EagleKingson]

¡He regresado! Y esta vez con la noticia de que resolví el problema. Estoy seguro que a alguien le servirá así que les comparto mi solución.

En lugar de agregar la variante word al TDocumentWord se tiene que agregar el documento (variante document), es decir, estaba cometiendo el terrible error de intentar modificar una aplicación y no un documento. Y posteriormente trabajaremos con ese TDocumentWord. Por lo que quedaría así:

Código Delphi [-]
procedure TFmWord.Button1Click(Sender: TObject);
var
Word: Variant;
Documento: Variant;
sRutaPlantilla, sDocumento : OleVariant;
begin
   sRutaPlantilla := ExtractFilePath(Application.ExeName)+'Plantilla\Plantilla.dotx';
   sDocumento     := ExtractFilePath(Application.ExeName)+'Documento\Documento.doc';
   if not CampoCapturado(Edit1.Text) or
      not CampoCapturado(Memo1.Text) or
      not CampoCapturado(Edit3.Text) or
      not CampoCapturado(Edit4.Text) or
      not CampoCapturado(Edit5.Text) or
      not CampoCapturado(Edit6.Text) or
      not CampoCapturado(Edit7.Text) then
       exit;
   try
      Word := CreateOleObject('Word.Application');
      Word.Documents.Add(sRutaPlantilla);
      Documento := Word.Documents.Item(1);

      WordDocument1 := TWordDocument.Create(Application);
      WordDocument1.ConnectTo(IDispatch(Documento) as _Document);
      WordDocument1.Variables.Add('Nombre',     Edit1.Text);
      WordDocument1.Variables.Add('Direccion',  Memo1.Text);
      WordDocument1.Variables.Add('Folio',      Edit3.Text);
      WordDocument1.Variables.Add('Cantidad',   Edit4.Text);
      WordDocument1.Variables.Add('Empaque',    Edit5.Text);
      WordDocument1.Variables.Add('Volumen',    Edit6.Text);
      WordDocument1.Variables.Add('Peso',       Edit7.Text);
      WordDocument1.Fields.Update;
      InsertarTabla(DSFind, WordDocument1); //Con eto se llena la tabla usando el TWordDocument
      WordDocument1.ActiveWindow.View.ShowFieldCodes := False; //Forza a mostrar los valores y no las variables
      WordDocument1.SaveAs(sDocumento); //Guarda documento con nombre asignado

      //Cerramos el documento y la aplicación
      WordDocument1.Close;
      Word.Quit;
      Word:= Unassigned;
   except
      MessageDlg('Ocurrió un error al ejecutar',mtError,[mbOk],0);
   end;
end;

Con esto el problema queda resuelto.

¡Saludos!

[Casimiro Notevi]

Empezado por EagleKingson

¡He regresado! Y esta vez con la noticia de que resolví el problema. Estoy seguro que a alguien le servirá así que les comparto mi solución.
En lugar de agregar la variante word al TDocumentWord se tiene que agregar el documento (variante document), es decir, estaba cometiendo el terrible error de intentar modificar una aplicación y no un documento. Y posteriormente trabajaremos con ese TDocumentWord. Por lo que quedaría así:
Con esto el problema queda resuelto.
¡Saludos!

[ecfisa]

Empezado por EagleKingson

¡He regresado! Y esta vez con la noticia de que resolví el problema. Estoy seguro que a alguien le servirá así que les comparto mi solución.

Muchas gracias por publicar la solución

Saludos

[Casimiro Notevi]

Empezado por cloayza

Pense que jamás sería testigo de las enseñanza de malas prácticas...

Realmente ese truco se lo decimos a todos los nuevos, sirve para que un moderador pueda verificar que el enlace es correcto y lo edite, dejándole bien