,
//Obtener datos del archivo de Word
Procedimiento getWordStr;
var WordApp: aplicación TWord;
WordDoc: TWordDocument;
DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
PswTemplate,oRevertir,wpswDocument,WPswTemplate,oFormato: OleVariant;
i,iRow,iCol:entero;
miCelda:Celda;
miFila:Fila;
comenzar
memo1.Lines.Clear;
// ===== Crear objeto =====
si no está asignado (WordApp), entonces
comenzar
WordApp:= TWordApplication.Create(nulo);
WordApp.Visible := falso;
fin;
si no está asignado (WordDoc), entonces
WordDoc:= TWordDocument.Create(nulo);
intentar
DocInx:=1;
oNombreDeArchivo := 'd:/test.doc';
oSolo lectura:=verdadero;
CfCversiones := VacíoParam;
AddToRctFiles:= VacíoParam;
PswDocument:= VacíoParam;
PswTemplate:= VacíoParam;
oRevertir:= VacíoParam;
WPswDocument:= Parámetro vacío;
WPswTemplate:= Parámetro vacío;
oFormato:= Parámetro Vacío;
// ===== Abrir archivo =====
WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,
PswDocument,PswTemplate,oRevertir,WPswDocument,WPswTemplate,oFormat);
// ===== Archivos asociados =====
WordDoc.ConnectTo(WordApp.Documents.Item(DocInx));
//Método (1): obtiene el contenido de caracteres de todo el texto, incluidas las tablas
s := WordDoc.Rango.texto;
//Método (2): toma de 1 a 4 caracteres, incluidas las tablas
miRango:=WordDoc.Range;
miRango.Inicio:=0;
miRango.End_ :=4;
finalmente
si está asignado (WordDoc) entonces // ===== Cerrar el archivo =====
comenzar
WordDoc.Cerrar;
WordDoc.Desconectar;
WordDoc.Destruir;
WordDoc: = nulo;
fin;
si está asignado (WordApp) entonces // ===== Cerrar palabra =====
comenzar
WordApp.Salir;
WordApp.Desconectar;
WordApp.Destruir;
WordApp := nulo;
fin;
fin;
fin;