Delphi y Word (3) Obtención de datos de archivos de Word

,

//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;