程序中怎样用word来编辑文本

thinking_man 2000-01-10 01:04:00
假定有一表中一字段为text类型,怎样在程序中启动word来编辑某个记录的这一字段,并在关闭时自动存入表中?
刚来到这里,请大家多多关照。
...全文
898 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
WATTER 2001-05-04
  • 打赏
  • 举报
回复
给我媚一个好吗:waterman@sina.com
ccc 2000-03-30
  • 打赏
  • 举报
回复
也能发给我一份吗?sendmeamessage@163.net
zyb 2000-02-15
  • 打赏
  • 举报
回复
我也想要一份,我的伊妹儿:wxlzyb@263.net
firewing 2000-02-14
  • 打赏
  • 举报
回复
我也要一份
firewing@163.net
bbsboyy 2000-02-14
  • 打赏
  • 举报
回复
能发一份给我吗?
likeliu@263.net
thinking_man 2000-02-14
  • 打赏
  • 举报
回复
我的email:wenguang@yang.com.cn,把程序打包发给我好吗?
weson 2000-01-31
  • 打赏
  • 举报
回复
Delphi安装的时候有这样的例程,不妨先看看例程。
Michael 2000-01-31
  • 打赏
  • 举报
回复
调用OLE控件吧。
jll 2000-01-30
  • 打赏
  • 举报
回复
我用Delphi 5 写了一个简单控制Word、Powerpoint的小程序。如有兴趣,写信给我。
thinking_man 2000-01-10
  • 打赏
  • 举报
回复
kxy 2000-01-10
  • 打赏
  • 举报
回复
procedure TForm1.CopyTextToWord;
var
Range : Variant;
i : integer;
begin
WordApp := CreateOleObject('Word.Application');
wordApp.Visible := True;
wordApp.Documents.Add;
Range := WordApp.Documents.item(1).Range;
Range.Text := Table.FieldByName....;
.........
end;
zdg 2000-01-10
  • 打赏
  • 举报
回复
1).h文件中申明
private:
Documents m_doc;
2).cpp文件中调用
if (m_doc.CreateDispatch("Word.Document.8"))
{
CWnd *pwordWnd = CWnd::FindWindow("opusapp", NULL);
if (pwordWnd != NULL)
{
pwordWnd->ShowWindow(SW_SHOWNORMAL);
pwordWnd->UpdateWindow();
pwordWnd->BringWindowToTop();
}
}

LPDISPATCH p_word_doc;

p_word_doc = m_doc.GetApplication();
m_app.AttachDispatch(p_word_doc);

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧