| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 500 人关注过本帖
标题:VB程序内嵌 word 示例代码
只看楼主 加入收藏
hmj0745
Rank: 2
等 级:论坛游民
帖 子:52
专家分:83
注 册:2021-11-6
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:3 
VB程序内嵌 word 示例代码
刚回复做了一个示例, 干脆发个贴子吧。
做VB程序如果需要用到打印,也许能给需要的朋友一个参考。
大神略过啊,我只是一个初学者而已。

程序内嵌word演示.rar (61.93 KB)


工程引用
图片附件: 游客没有浏览图片的权限,请 登录注册
收到的鲜花
搜索更多相关主题的帖子: 示例 word 代码 引用 VB 
2022-06-02 21:15
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:28
帖 子:1490
专家分:2317
注 册:2009-12-22
收藏
得分:10 
需要电脑安装 安装版本的office才能正常运行,我的绿色版Office软件表示用不了。

心生万象,万象皆程序!
2022-06-03 13:06
chen3523
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:29
帖 子:218
专家分:1153
注 册:2013-2-12
收藏
得分:10 
在一楼的基础上,增加
Private Sub Com_print_Click()
Dim Wdapp As Word.Application
Dim Wddoc As Word.Document
  Set Wdapp = CreateObject("word.Application")    '创建word程序,打开word
  Set Wddoc = Wdapp.Documents.Add                '在word中添加一个新文档
  With Wdapp
       .Visible = True
       .Activate
       Wddoc.Range.InsertAfter Text1.Text
  End With
  Set Wdapp = Nothing        '清除word对象
  Set Wddoc = Nothing
End Sub

调试失败3次后,关机睡觉,当醒来时多有收获
2022-06-04 20:27
sssooosss
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:434
专家分:927
注 册:2019-8-27
收藏
得分:0 
共同学习
2022-06-07 08:55
快速回复:VB程序内嵌 word 示例代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048586 second(s), 10 queries.
Copyright©2004-2022, BCCN.NET, All Rights Reserved