Microsoft word x.0 object Library 后期绑定的问题

ffarseer

我知道不引用(即后期绑定)时不能Dim Word对象 As New Word.Application

要：
Dim Word对象 As Object
Set Word对象 = CreateObject("Word.Application")

但如果这样的话，如何处理如下程序中已有的语句：
Dim a as word.range
Dim a as word.document
Dim a as word.table
上述在Dim Word对象 As New Word.Application时好用，改成后期绑定后就不好用了。求赐教。

182197315

不好用是什么意思

huang1314wei

这有啥好赐教的，改成后期绑定不能用，那你就用前期绑定就行了

fyure

改成object咯

siliconxu

Dim Word as Object
Dim a as Object, b as Object, c as Object
Set Word = CreateObject("Word.Application")
Set a = Word.Range
Set b = Word.Document
Set c = Word.Table

这样子的话，你只需要修改定义的部分，其它部分就不用修改了。如果你有很多相同的定义的话（比如很多地方都有 Dim a as word.range），那么只需要使用查找替换掉这一部分的语句就可以了。

ffarseer

siliconxu 发表于 2018-3-21 09:24
Dim Word as Object
Dim a as Object, b as Object, c as Object
Set Word = CreateObject("Word.Applica ...

谢谢您的回复，但似乎不支持这么做。当运行到譬如set a = Word.document时收到报错： Run-time error '438': Object doesn't support this property or method.

ffarseer

huang1314wei 发表于 2018-3-21 08:50
这有啥好赐教的，改成后期绑定不能用，那你就用前期绑定就行了

谢谢版主大人回复。我这是个工程项目，有好几个国家的人用，不同的语言环境，操作系统及office版本..如果用前期，经常出现Microsoft word x.0 object Library的版本missing的问题，我理解需要手动在VBA-Tools-reference中修改 Microsoft word x.0 object Library的版本。而代码又是加密的，挺麻烦。据说用后期能解决这个问题。

ffarseer

182197315 发表于 2018-3-21 08:11
不好用是什么意思

运行到dim a as word.document时报错：Compile error: User-defined type not defined

ffarseer

fyure 发表于 2018-3-21 08:52
改成object咯

请教如何改

Zamyi

Set w = CreateObject("Word.Application")
w.Visible = True
Set d = w.Documents.Open("D:\AA.docx")
Set b = d.Range
Set c = d.Tables(1)