hola nuevamente
utilizo delphi 7, word 2000
intento generar contratos desde delphi
a word pero los datos no se me muestran en word, ahi el codigo
Cita:
procedure TForm1.BitBtn4Click(Sender: TObject);
const
Fichero = 'Contrato';
// DirectorioContratos: 'C:\word\contratorenta.doc';
var
MiWord: OleVariant;
procedure SustituirMarcador(Marcador, Contenido: string);
begin
if MiWord.ActiveDocument.Bookmarks.Exists(Marcador) then
MiWord.ActiveDocument.Bookmarks.Item(Marcador).Range.InsertBefore(Contenido);
end;
begin
// Intento abrir Word...
MiWord:= CreateOleObject('Word.Application');
if VarIsEmpty(MiWord) then
raise exception.create('No puedo abrir Word, puede que no este instalado!');
// Abre el documento de Word
MiWord.Documents.Open('C:\WORD\CONTRATORENTA.doc');
// Selecciono los marcadores del documento y los reemplazo
// con los valores de los campos del formulario.
// Los marcadores se crearon previamente en word
SustituirMarcador('ELARRENDADOR', table1nombre.asstring);
SustituirMarcador('AVAL',table1aval.asstring);
// etc
// maximizo la ventana de Word
MiWord.WindowState:=wdWindowStateMaximize;
MiWord.ActiveWindow.WindowState:=wdWindowStateMaximize;
// visualizo la ventana de Word
MiWord.Visible:=True;
end;
|
se abre el word y me muestra los marcadores pero no sustituye nada
saben porque ???
saludos
