【结贴】[问题]如何将word 转换为 txt文件**

rzport_jqf

如题。

lixy

另存成txt文件

rzport_jqf

能给些代码参照下？

lixy

ChangeFileOpenDirectory "C:\Documents and Settings\*****\桌面\"
    ActiveDocument.SaveAs FileName:="****.txt", FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, Encoding:=936, InsertLineBreaks:=False, AllowSubstitutions:=False, _
         LineEnding:=wdCRLF
这个是我录制的宏

rzport_jqf

测试代码，在saveas的时候报错！

procedure TMainForm.Button1Click(Sender: TObject);
var
//Test:Variant;
o:   Object;
app, docs, doc: DispatchHelper;
begin

     o   :=   ComObj.CreateOleObject('Word.Application');
     app := DispatchHelper.Create(o);
     app.PropertyPut('Visible', [False]);

     docs := DispatchHelper.create(app.PropertyGet('Documents',[]));
     docs.InvokeMethod('Open',['C:\RzportTempory\F54A8C6329614820BD33A292882ED216.doc']);
     doc :=  DispatchHelper.create(app.PropertyGet('ActiveDocument',[]));
     doc.InvokeMethod('SaveAs',['C:\RzportTempory\1.txt',2,False,'',True,'',False,False,False,False,False,936,False,False,'\n']);

     (o as System.IDisposable).Dispose;
end;

rzport_jqf

如果用 doc.InvokeMethod('SaveAs',['C:\RzportTempory\1.txt']); 运行是可以的。但因为没设置格式，所以保存的txt是乱码

lixy

平台好像没有办法直接执行saveas，可以用用其他开发工具写一些函数，用平台调用（导入第三方组件方式）。
这个是delphi的
procedure TForm1.Button1Click(Sender: TObject);
var
  FWord :Variant;
begin
  if OpenDialog1.Execute then
  begin
    FWord := CreateOleObject('Word.Application');
    FWord.Visible:=true;
    FWord.Documents.Open( OpenDialog1.FileName);
     FWord.ActiveDocument.SaveAs('c:\x3.txt', 2);
    fword.quit;
    end;
end;

rzport_jqf

saveas，只有一个参数的时候也行。 只是加全了就报错了。

rzport_jqf

会不会参数写的有问题?

zfang

请楼主按７楼的方法来实现吧。