乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 71|回复: 4

[求助]关于VBA和Word的问题,请指教

[复制链接]

6

主题

9

帖子

2

银币

初来乍到

Rank: 1

铜币
33
发表于 2007-1-11 16:20:00 | 显示全部楼层 |阅读模式
Private Sub CommandButton1_Click()
Option Explicit
Dim wrdapp As word.Application
Set wrdapp = New word.Application
With wrdapp
.Visible = ture
.Documents.Add
.ActiveDocument.content.Text = "Hi"
.ActiveDocument.content.Text = "This is a test example"
End With
End Sub
以上代码我输到了VBA的CommandButton控件中了,
可是不管用啊,提示有错误,无效编译过程
是不是跟VB调用Word不同啊
应该怎么写那
还有用word编写计算书时,要想在word中的特定位置放置特定的文本,需要有一个bookmark标记,就是要建立一个模板,不知道这个模板应该怎么样建啊,有没有现关的电子,发一个,学习学习。谢谢
回复

使用道具 举报

13

主题

396

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
448
发表于 2007-1-12 09:08:00 | 显示全部楼层
首先要引用word类型库
回复

使用道具 举报

6

主题

9

帖子

2

银币

初来乍到

Rank: 1

铜币
33
发表于 2007-1-26 18:31:00 | 显示全部楼层
首先要引用word类型库?是什么意思啊?能不能说得详细一点,最好给个生成word文件中有一两行文字的例子,
word模板文件倒是知道怎么建,根据自己的需要把一些VBA中不能输入的字符先输入进去就行了,我是这个意思。就是不知道怎么用VBA引用WORD模板文件。
回复

使用道具 举报

3

主题

12

帖子

2

银币

初来乍到

Rank: 1

铜币
24
发表于 2007-1-27 12:36:00 | 显示全部楼层
不需要前期引用word类型库的方法
Dim wd As Object
Dim doc As Object
Dim rng As Object
Set wd = CreateObject("word.Application")
'Set wd = New word.application
Set doc = wd.Documents.Add
Set rng = doc.Content

'Clipboard.SetText Text1.Text
'
'rng.Paste
doc.range.Insertafter "小把戏" & Chr(13)
doc.range.Insertafter "nknklklmlkm小人物" & Chr(13)
doc.SaveAs App.Path & "\aaa.doc"
doc.Close
Set wd = Nothing
Set doc = Nothing
End Sub
回复

使用道具 举报

6

主题

9

帖子

2

银币

初来乍到

Rank: 1

铜币
33
发表于 2007-1-29 11:23:00 | 显示全部楼层
doc.SaveAs App.Path & "\aaa.doc"
这句提示错误,要求对象
什么意思?楼上的语句达到一个什么样的效果?
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 09:19 , Processed in 1.730957 second(s), 63 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表