Red de conocimiento informático - Espacio del host - Quiero llamar directamente a un documento de Word y usar funciones de Word en un programa Delphi. ¿Cómo debo programar este programa? ¿Qué controles debo usar?

Quiero llamar directamente a un documento de Word y usar funciones de Word en un programa Delphi. ¿Cómo debo programar este programa? ¿Qué controles debo usar?

Método 1:

1) Importar la biblioteca de tipos de WORD desde WORD.EXE

2) var wd: _Application

wdt: Tabla;

punto1, Nombre de archivo: OleVariant

comenzar

punto1:= 'c:\abc.dot'; := coApplication_.Create;

wd.Documents.Add(dot1, VacíoParam);

wdt:= wd.ActiveDocument.Tables.Item(1); p> wdt.Cell(1, 3).Range.Text:= '¡Hola!';

// Lo siguiente es guardar y cerrar el documento y Word. Las dos rutinas siguientes omite este paso.

//EmptyParam se utiliza para reemplazar los parámetros no utilizados.

Nombre de archivo := 'c:\test.doc';

wd.ActiveDocument.SaveAs(Nombre de archivo, Param vacío, Param vacío,

Param vacío,

VacíoParam, VacíoParam, VacíoParam, VacíoParam, VacíoParam,

VacíoParam,

VacíoParam

wd.ActiveDocument.Close(EmptyParam, VacíoParam,); VacíoParam);

wd.Quit(EmptyParam, VacíoParam,

fin

Método dos:

var p>

Ole: Variante

NewDoc: Variante

DocTable: Variante

comenzar

// Método 2 Los parámetros pueden utilizar directamente tipos de datos Delphi. Otros métodos solo pueden usar el tipo OleVariant

Ole: = CreateOleObject('Word.Application');

Ole.Application.Visible: = true; > NewDoc:= Ole.Documents.Add('C:\abc.dot');

DocTable:= NewDoc.Tables.Item(1);

DocTable.Cell(); 1, 3).Range.Text:= '¡Hola!';

//Establezca el objeto Variante en Sin asignar para liberar la referencia al objeto.

NewDoc: = Sin asignar

DocTable: = Sin asignar

Ole: = Sin asignar

fin; p> Método 3: use el control TWordApplication en la página del Servidor. De la misma manera, puede usar todos los controles que contiene. Ole es el nombre del control TWordApplication.

var

NewDoc: Variante

DocTable: Variante

o: OleVariant

comenzar

o := 'c:\abc.dot';

NewDoc := Ole.Documents.Add(o, EmptyParam);

DocTable := NewDoc); .Tables.Item(1);

DocTable.Cell(1, 3).Range.Text:= '¡Hola!';

NewDoc:= Sin asignar

;

DocTable := UnAssigned;

End;

Se recomienda utilizar el método uno y el método tres. Porque el método dos no proporciona verificación de parámetros de tipo y porque la eficiencia de llamada a la interfaz del método dos es baja. Puede encontrar información sobre las propiedades y métodos utilizados en el programa en la Ayuda de Office VBA. Si lo necesita, elija instalar la ayuda de programación VBA al instalar Office.