delphi 读取Word

procedure TfrmMain.getWordCellStr;
var
  WordApp: TWordApplication;
  WordDoc: TWordDocument;
  DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
  PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat: OleVariant;
  i,j,m,n,iRow,iCol,iHide,iMaxCol,iCurWidth,iStandardWith:integer;
  myCell:Cell;
  myRow:Row;

  StandardWidthArr: array of Integer; //动态数组定义时不与维数
  RowWidthArr: array of Integer; //动态数组定义时不与维数
  RowContentArr: array of String; //动态数组定义时不与维数
begin
  memLog.Lines.Clear ;
  // ===== 创建对象 =====
  if not Assigned(WordApp) then
  begin
    WordApp:= TWordApplication.Create(nil);
    WordApp.Visible := false;
  end;
  if not Assigned(WordDoc) then
    WordDoc:= TWordDocument.Create(nil);

  try
    DocInx:=1;
    oFileName := 'E:\MySoftXE\Sunsi\Doc\测试文档.docx';
    oReadOnly:=true;
    CfCversions := EmptyParam;
    AddToRctFiles:= EmptyParam;