怎样独处word文档？

Question

谁能帮我完成这个函数呢？给出doc文件名，返回doc的内容。
function ReadFromDoc(DocName:string):string;
begin
...
end;

Answer 1

var
  ole_c1: TOleContainer;
begin
  ole_c1.CreateObjectFromFile('1.doc',false);
  ole_c1.DoVerb(ovPrimary);
end;

Answer 2

function OpenWordDocument(const AFileName: String;
  AControl: TCustomMemo): Boolean;
var
  NewDoc: Variant;
  V: OleVariant;
begin
  try
    try
      V := CreateOleObject('Word.Application');//建立自动化对象
      NewDoc :=V.Documents.Open(AFileName); //打开指定文件
      NewDoc.Content.Copy; //拷贝到剪贴板
      AControl.Lines.Clear;
      AControl.PasteFromClipboard; //粘贴
      NewDoc.Close; //关闭Word文件
    finally
      V.Quit; //释放自动化对象
    end;
    Result := True;
  except
    Result := False;
  end;
end;

Answer 3

delphi好像自带有这样的控件~~~~~~~~~

Answer 4

你好，最近我也要处理Word文档，如果感兴趣，我想跟你交流。我的邮箱：[email protected]

Answer 5

WordApp: TWordApplication;
WordDoc: TWordDocument;
DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
    PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat: OleVariant;WordApp:= TWordApplication.Create(nil);
WordApp.Visible := false;
WordDoc:= TWordDocument.Create(nil);
DocInx:=1;
    oFileName := InFile;
    oReadOnly:=true;
    CfCversions := EmptyParam;
    AddToRctFiles:= EmptyParam;
    PswDocument:= EmptyParam;
    PswTemplate:= EmptyParam;
    oRevert:= EmptyParam;
    WPswDocument:= EmptyParam;
    WPswTemplate:= EmptyParam;
    oFormat:= EmptyParam;
    WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,
                           PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);    WordDoc.ConnectTo(WordApp.Documents.Item(DocInx));  result:=WordDoc.Range(0 ,4)  //1-4的字符串    if Assigned(WordDoc) then
    begin
      WordDoc.Close;
      WordDoc.Disconnect;
      WordDoc.Destroy;
      WordDoc := nil;
    end;
    if Assigned(WordApp) then
    begin
      WordApp.Quit;
      WordApp.Disconnect;
      WordApp.Destroy;
      WordApp := nil;
    end;