1 запускаю программу (в delphi)
2 открывается файл word
3 он сохраняется под другим названием и открывается
4 закрываете word
5 закрываю программу 

uses
  UFile_Action, ComObj, IBX.IBCustomDataSet, ShellAPI,
  Activex, Vcl.DBGrids;

implementation

function CreateWord: boolean;
//create word application
begin
  CreateWord := true;
  try
    Words_Templs := CreateOleObject('Word.Application');
  except
    begin
//      showmessage('Пакет Microsoft Office не найден');
  //    Application.MessageBox('', 'Warning', MB_OK+MB_ICONEXCLAMATION);
      CreateWord := false;
    end;
  end;
End;

function Open_Doc_Template(APath_file: string): boolean;
//open template file
var
  LDoc: variant;
begin
  CoInitialize(Nil);
CreateWord;
  Open_Doc_Template := true;
  try
    LDoc := Words_Templs.Documents;
    LDoc.Open(APath_file);
  except
    Open_Doc_Template := false;
  end;
  CoUninitialize;
End;

exports
  Open_Doc_Template;

Words_Templs := Unassigned;

function CreateWord: boolean;
//create word application
begin
  CoInitialize(Nil);
  CreateWord := true;
  try
    Words_Templs := CreateOleObject('Word.Application');
  except
    begin
      showmessage('Пакет Microsoft Office не найден');
      CreateWord := false;
    end;
  end;
End;

function SaveDocAs(ANamePath, ANameFile: string; AOpenDoc: integer):boolean; export;
//save created doc
{
LOpenDoc
  0 - not open created doc
  1 - open created doc
}
var
  LPath: string;
begin
  SaveDocAs := true;
  try
    begin
      Words_Templs.ActiveDocument.SaveAs(ANamePath+'result_doc.rtf');
      CloseDoc;
      Close_Document(0);
      if AOpenDoc = 1 then
        OPEN_MAKE_DOC(ANamePath, 'result_doc.rtf', '', 0, LPath);
      Words_Templs := Unassigned;
      CoUninitialize;
    end;
  except
    SaveDocAs := false;
  end;
end;