山
山泉
Unregistered / Unconfirmed
GUEST, unregistred user!
这段代码在一些机器上能够打开word
并在标签位置填上文字
虽然在一些机器上测试通过,但是一些机器上确 出现‘您没有安装Word 软件’错误。请教问题在哪里,如何修改?
(这些机器都安装了word)
function getCurPath: string;
begin
Result := ExtractFilePath(Application.ExeName);
end;
procedure TfrmMain.SpeedButton5Click(Sender: TObject);
var
myWord, myDoc: variant;
begin
try
myWord := CreateOleObject('word.application');
myWord.Visible := True;
myDoc := myWord.Documents.Open(getCurPath+'wenjian.doc');
myDoc.BookMarks.Item('文件编号').Select;
myWord.Selection.Text := '测试';
myDoc.BookMarks.Item('内容').Select;
myWord.Selection.Text := '测试文件';
myWord.Activate;
myDoc.SaveAs(getCurPath + '1.doc');
except
MessageDlg('对不起,您没有安装Word 软件!', mtInformation,
[mbOk], 0);
abort;
end;
end;
并在标签位置填上文字
虽然在一些机器上测试通过,但是一些机器上确 出现‘您没有安装Word 软件’错误。请教问题在哪里,如何修改?
(这些机器都安装了word)
function getCurPath: string;
begin
Result := ExtractFilePath(Application.ExeName);
end;
procedure TfrmMain.SpeedButton5Click(Sender: TObject);
var
myWord, myDoc: variant;
begin
try
myWord := CreateOleObject('word.application');
myWord.Visible := True;
myDoc := myWord.Documents.Open(getCurPath+'wenjian.doc');
myDoc.BookMarks.Item('文件编号').Select;
myWord.Selection.Text := '测试';
myDoc.BookMarks.Item('内容').Select;
myWord.Selection.Text := '测试文件';
myWord.Activate;
myDoc.SaveAs(getCurPath + '1.doc');
except
MessageDlg('对不起,您没有安装Word 软件!', mtInformation,
[mbOk], 0);
abort;
end;
end;