delphi 7입니다.

open하는 방법
procedure TForm1.Button1Click(Sender: TObject);
var
  aFileName, aConfirmConversions, aReadOnly, aAddToRecentFiles, aPasswordDocument,
  aPasswordTemplate, aRevert, aWritePasswordDocument, aWritePasswordTemplate,
  aFormat, aEncoding, aVisible: OleVariant;

begin
  WordApplication1.Visible := true;
  WordApplication1.Connect;

  aFileName := ExtractFilePath(Application.ExeName)+'실험문서.doc';
  aConfirmConversions := true;
  aReadOnly := false;
  aAddToRecentFiles := true;
  aRevert := true;
  aFormat := wdOpenFormatAuto;
  aPasswordDocument      := '';
  aPasswordTemplate      := '';
  aWritePasswordDocument := '';
  aWritePasswordTemplate := '';
  aEncoding := false;
  aVisible := true;

  WordDocument1.ConnectTo(
    WordApplication1.Documents.Open(aFileName,
                                    aConfirmConversions,
                                    aReadOnly,
                                    aAddToRecentFiles,
                                    aPasswordDocument,
                                    aPasswordTemplate,
                                    aRevert,
                                    aWritePasswordDocument,
                                    aWritePasswordTemplate,
                                    aFormat,
                                    aEncoding,
                                    aVisible));
end;

close하는 방법

procedure TForm1.Button2Click(Sender: TObject);
var
  aSaveChanges, aOriginalFormat, aRouteDocument : OleVariant;

begin
  aSaveChanges    := False;
  aOriginalFormat := EmptyParam;
  aRouteDocument  := EmptyParam;
  WordApplication1.ActiveDocument.Close(aSaveChanges,
                                        aOriginalFormat,
                                        aRouteDocument);

  WordApplication1.Disconnect;
  WordApplication1.Quit;
end;