EXCEL中VBA调用WORD文档两种方法的区别是什么？具体如何选择哪种方法如何确定？

hy760318

最近在学习EXCEL的VBA编程，调用WORD时经常头晕脑胀，现发现有两种方式可以调用WORD，如下：

方法一：
Dim wordApp As New Word.Application
With wordApp
       .Documents.Open(文件名)
       .Visible = True
…………调用WORD中的表格时
      .ActiveDocument.Tables(1).Cell( i , j ).Range = ……

方法二：
Dim wordApp As Object,  wd As Object, Tb As object
Set wd = wordApp.documents.Open(文件名)
Set Tb = wd.Table(1)

…………调用WORD中的表格时
      Tb.Cell( i , j ).Range.Text  = ……


请问老师们，这两种方式的主要区别是什么？在什么情况下选用哪一种方式更好些？
什么时候带对象？什么时候不用带对象？

ddmc

方法一 事先静态引用，绑定版本，目标与开发版本不一致存在差异，要在vba 重新引用。
  优势，代码有提示。

方法二，使用动态引用，未绑定版本。一般版本差异忽略不计，
代码没有提示。有些常量代码 需要声明或写成 实际数。

hy760318

ddmc 发表于 2022-11-15 19:05
方法一 事先静态引用，绑定版本，目标与开发版本不一致存在差异，要在vba 重新引用。
  优势，代码有提示 ...

ddmc老师真厉害！谢谢您一直以来的指导！

hy760318

ddmc 发表于 2022-11-15 19:05
方法一 事先静态引用，绑定版本，目标与开发版本不一致存在差异，要在vba 重新引用。
  优势，代码有提示 ...

dmc老师，我想问一下，如何知道WORD表格中的一个单元格内容是否为空？
不管它是空格还是回车，只要没有数据就认为是空！
我用 If Tb.Cell(i, j).Range.Text = ""来判断好象不能实现

ddmc

试一试 正则表达式
Function 可见字符检查(s As String)
'检测  S 是否为  可见字符，非空等 集合
Set reg = CreateObject("VBSCRIPT.REGEXP")
With reg
.Global = True
.IgnoreCase = True
.Pattern = "[\S]"  '
End With
可见字符检查 = reg.test(s)
End Function



Sub vbv()
Dim a$
a = "         " & Chr(10) & Chr(13)
Debug.Print 可见字符检查(a)
End Sub

jiangxiaoyun

一般用clean函数就可以判断单元格是否为空了。真那么多特殊字符，删也是删不完，要具体问题具体处理。