var
temp, newtemp, index: olevariant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,encoding,visible,
WritePasswordDocument, WritePasswordTemplate, Format: olevariant;
begin
temp := '';
newtemp := false;
wordapplication1.disconnect;
wordapplication1.Connect;
wordapplication1.visible := true; FileName := extractfilepath(paramstr(0)) + 'field.doc'; ConfirmConversions := False;
ReadOnly := False; AddToRecentFiles := False; PasswordDocument := '';
PasswordTemplate := ''; Revert := False; WritePasswordDocument := '';
WritePasswordTemplate := ''; Format := 0;
encoding:=false; visible:=true;
//wordapplication1.Documents.Open(
wordapplication1.Documents.Open(FileName, ConfirmConversions, ReadOnly,
AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format, encoding, visible); index := 1;
//worddocument1.connectto(wordapplication1.Documents.Item(index) as _document);
end;
temp, newtemp, index: olevariant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,encoding,visible,
WritePasswordDocument, WritePasswordTemplate, Format: olevariant;
begin
temp := '';
newtemp := false;
wordapplication1.disconnect;
wordapplication1.Connect;
wordapplication1.visible := true; FileName := extractfilepath(paramstr(0)) + 'field.doc'; ConfirmConversions := False;
ReadOnly := False; AddToRecentFiles := False; PasswordDocument := '';
PasswordTemplate := ''; Revert := False; WritePasswordDocument := '';
WritePasswordTemplate := ''; Format := 0;
encoding:=false; visible:=true;
//wordapplication1.Documents.Open(
wordapplication1.Documents.Open(FileName, ConfirmConversions, ReadOnly,
AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format, encoding, visible); index := 1;
//worddocument1.connectto(wordapplication1.Documents.Item(index) as _document);
end;
解决方案 »
- 提前预祝Starluck节日快乐!
- 如何把추가这样的代码转换成韩文?
- 限制Text框只能输入1~9的数字怎样做?也可以提示错误。谢谢。
- 如何将数据库中只有年月的记录输出成年月日的格式?
- 超菜鸟问题
- 高分求一算法《关于优先的问题》在线 等 待
- xp中报表打印的问题,再线等待!!
- 我用createfile建的文本文件怎么就不能向里写东西?Createfile调用如下:
- 我单位想用Delphi做一个MIS平台,如何做得更好,请用Delphi有心得者参与。
- 怎样实现从RGB颜色值转换到HSL颜色值?
- 如何让树(TreeView)不要自动选择第一个TreeNode?
- 用delphi+mssqlserver搞三层的高手来讲讲,你们都是怎么做三层的?
ReadOnly:=false;
AddToRecentFiles:=false;
PasswordDocument:='';
PasswordTemplate:='';
Revert:=false;
WritePasswordDocument:='';
WritePasswordTemplate:='';
Format:=wdOpenFormatDocument;
WordApplication.Documents.Openold(FileName, ConfirmConversions, ReadOnly,
AddToRecentFiles,PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument,WritePasswordTemplate, Format);
如果最后一个参数是LCID,那么用0代替!!!