这是一个 Excel 生成 WD 文档的小应用.

Rowen · 发表于 2003-7-18 18:27

在 XP 环境中通过, 未作出错处理, 需要的话自理. 可能需要你在 VBA 中工具>>引用 microsoft word 9.0/10.0 object library

Dq6KPfld.zip (49.66 KB, 下载次数: 986)

翼德 · 发表于 2003-7-19 18:03

好东东，可是我的工具>>引用内提示丢失 microsoft word 10.0 object library，请教如何安装才能再回复

Rowen · 发表于 2003-7-19 20:31

microsoft word 10.0 object library 是 OFFICE XP 的, 如果是 2000 版, 引用一下 microsoft word 9.0 object library

doyyi · 发表于 2003-7-28 12:00

好！

doyyi · 发表于 2003-7-28 21:26

工具>>引用 microsoft word 9.0/10.0 object library这个步骤能用VBA编程解决吗？

Rowen · 发表于 2003-7-29 15:20

' 我这儿没有 9.0, 哪位试运行看能否加载之 Sub LoadRef() Dim strRefName As String ' 待确定的引用对象名称 strRefName = "Word" ' 如果尚未引用, 则添加之 If Not HasBeenRefered(strRefName) Then On Error Resume Next Application.VBE.ActiveVBProject.References.AddFromFile (Application.Path & "\MSWORD.OLB")'本处以 WORD 为例 End If End Sub ' 是否有引用指定项目? Function HasBeenRefered(strRefName As String) As Boolean Dim oRef As Object, bRefYes As Boolean For Each oRef In Application.VBE.ActiveVBProject.References bRefYes = (oRef.Name = strRefName) Or bRefYes Next HasBeenRefered = bRefYes End Function

hxhgxy · 发表于 2003-7-30 14:25

以下是引用翼德在2003-7-19 18:03:00的发言： 好东东，可是我的工具>>引用内提示丢失 microsoft word 10.0 object library，请教如何安装才能再回复我这儿也遇到这个问题，怎么解决？

[此贴子已经被Kevin于2005-7-29 15:19:34编辑过]

Rowen · 发表于 2003-7-31 22:59

先移除, 参 References.remove

翼德 · 发表于 2003-8-3 06:53

引用 microsoft word 9.0 object library 将 Application.VBE.ActiveVBProject.References.AddFromFile (Application.Path & "\MSWORD.OLB")改为 Application.VBE.ActiveVBProject.References.AddFromFile (Application.Path & "\MSWORD9.OLB")即可

小奔 · 发表于 2003-9-30 10:59

我新手，问一个愚蠢的问题，我怎么将这个功能用在我的工作表中，难道只能将我要转的工作表复制到这个表里吗？

		自动登录	找回密码
密码			免费注册