清除word痕迹

program RemoveDocTag;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ComObj,
  Variants,
  activeX;

var
    MSWord, wrdDoc: olevariant;
    DocFileName: String ;

begin

    if (ParamCount > 0 ) then
    begin
        DocFileName:= paramstr(1) ;
        //MessageBox(handle, Pchar(DocFileName), Pchar('信息提示!'), MB_OK+MB_ICONINFORMATION) ;
        try
            CoInitialize(Nil);
            try
                MSWord := CreateOLEObject('Word.Application');
                wrdDoc:= MSWord.Documents.Open (FileName:=DocFileName, ReadOnly:=False); //e:\newword.doc为已存在的word文件
                wrdDoc.AcceptAllRevisions ;
                wrdDoc.Save ;
            except
                //on e: exception do
                //    e.Message ;
            end;
        finally
            MSWord.Quit ;
            CoUninitialize;
        end;
    end;
end.

你可能感兴趣的:(清除word痕迹)