Word表格单元格公式获取失败：VBA报错‘Expected Function or Variable’

你遇到的问题根源在于Word VBA的Cells集合不支持Excel那样的A1样式单元格引用（比如"C1"），Selection.Cells("C1")这种写法在Word里是不合法的，这才触发了"Expected Function or Variable"错误。下面给你两种修正方案，都是更可靠的写法：

方案一：先把表格赋值给变量，通过行/列索引访问单元格 #

这种方法避免了依赖Selection（Selection很容易因为用户操作或者代码执行而变化），代码可读性和稳定性都更好：

Dim myTable As Table
' 创建表格并赋值给变量
Set myTable = ActiveDocument.Tables.Add( _
    Range:=Selection.Range, _
    NumRows:=2, _
    NumColumns:=3, _
    DefaultTableBehavior:=wdWord9TableBehavior, _
    AutoFitBehavior:=wdAutoFitFixed _
)

' 给A1单元格（第1行第1列）输入内容
myTable.Cell(1, 1).Range.Text = "12"
' 给B1单元格（第1行第2列）输入内容，补上你之前遗漏的步骤
myTable.Cell(1, 2).Range.Text = "24"

' 给C1单元格（第1行第3列）插入公式
myTable.Cell(1, 3).Range.InsertFormula _
    Formula:="=MAX(A1:B1)", _
    NumberFormat:=""

' 获取并弹窗显示C1的公式
MsgBox myTable.Cell(1, 3).Range.Formula, vbOKOnly

方案二：如果一定要用Selection定位（不推荐） #

如果你坚持要基于当前Selection操作，需要先确认Selection所在的表格，再通过行/列索引访问：

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
    3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
    wdAutoFitFixed
Selection.TypeText Text:="12"
' 移动到B1单元格输入内容，否则MAX函数只有一个计算值
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="24"
Selection.MoveRight Unit:=wdCell
Selection.InsertFormula Formula:="=MAX(A1:B1)", NumberFormat:=""

' 获取当前表格对象，再访问第1行第3列的单元格
Dim currentTable As Table
Set currentTable = Selection.Tables(1)
MsgBox currentTable.Cell(1, 3).Range.Formula, vbOKOnly

关键知识点说明 #

• Word表格的Cell方法需要传入行号和列号（都是从1开始的整数），比如Cell(1,3)就是第1行第3列（对应你的C1）。
• 尽量不要依赖Selection来操作表格，把表格赋值给变量后直接操作变量，能避免很多意外问题（比如用户不小心点击了其他地方导致Selection变化）。
• 读取公式时，要用Range.Formula，因为Cell对象本身没有直接的Formula属性，需要访问它的Range子对象。

内容的提问来源于stack exchange，提问作者simplify