MS Word VBA编译错误：找不到方法或数据成员求助

问题描述 #

编写的VBA代码运行时弹出“Method or data member not found”编译错误，宏无法执行。已尝试更换Word版本、重命名注册表项HKEY_CURRENT_USER\Software\Microsoft\Office\Word\Data，文档名为ABCTrial，首次编写VBA代码，怀疑文档或宏名称等基础问题但调试未发现异常。代码如下：

Sub FormatDocument()
    ' 移除页码
    ActiveDocument.Sections(1).PageNumbers.RestartNumberingAtSection = False
    ActiveDocument.Sections(1).PageNumbers.NumberStyle = wdPageNumberStyleNone
   
    ' 移除页眉页脚
    Dim sec As Section
    For Each sec In ActiveDocument.Sections
        sec.Headers(wdHeaderFooterPrimary).Range.Text = ""
        sec.Headers(wdHeaderFooterFirstPage).Range.Text = ""
        sec.Headers(wdHeaderFooterEvenPages).Range.Text = ""
        sec.Footers(wdHeaderFooterPrimary).Range.Text = ""
        sec.Footers(wdHeaderFooterFirstPage).Range.Text = ""
        sec.Footers(wdHeaderFooterEvenPages).Range.Text = ""
    Next sec
   
    ' 设置横向布局与窄边距
    With ActiveDocument.PageSetup
        .Orientation = wdOrientLandscape
        .TopMargin = InchesToPoints(0.5)
        .BottomMargin = InchesToPoints(0.5)
        .LeftMargin = InchesToPoints(0.5)
        .RightMargin = InchesToPoints(0.5)
    End With
   
    ' 移除手动分页符
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Execute FindText:="^m", ReplaceWith:="", Replace:=wdReplaceAll
    End With
   
    ' 移除所有"please"实例
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = " please "
        .Replacement.Text = ""
        .Execute Replace:=wdReplaceAll
    End With
   
    ' 移除段落间多余空行
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Text = "^013{2,}"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
   
    ' 为所有编号内容应用"RFI Black left"样式
    Dim p As Paragraph
    For Each p In ActiveDocument.Paragraphs
        If p.Range.ListFormat.ListType <> wdListNoNumbering Then
            p.Style = ActiveDocument.Styles("RFI Black left")
        End If
    Next p
   
End Sub

排查与修复步骤 #

1. 检查Word对象库引用 #

• 打开VBA编辑器（快捷键Alt+F11），点击菜单栏工具→引用
• 确保勾选Microsoft Word xx.x Object Library（xx.x对应你的Word版本，如16.0对应Office 2016/365）
• 若找不到该选项，点击浏览，定位到Word安装目录（通常为C:\Program Files\Microsoft Office\root\Office16），选择WINWORD.EXE添加

2. 确认自定义样式存在 #

• 代码中使用了自定义样式"RFI Black left"，如果当前文档没有这个样式，会触发错误
• 打开ABCTrial文档，点击开始→样式面板，确认该样式存在；若不存在，要么在文档中创建该样式，要么将代码中的样式名替换为文档已有的样式（如"Heading 1"）

3. 替换ActiveDocument为明确的文档对象 #

• 避免依赖当前激活文档，改用ThisDocument（如果代码存储在ABCTrial文档的模块中），或者明确指定文档：

  Dim doc As Document
  Set doc = Documents("ABCTrial.docx") '需替换为实际文件扩展名，如.doc或.docm
  

  然后将代码中所有ActiveDocument替换为doc

4. 用数值替代枚举常量（可选） #

• 如果不想依赖Word对象库，可以直接使用枚举常量对应的数值，避免未定义错误：

  枚举常量	对应数值
  wdPageNumberStyleNone	0
  wdHeaderFooterPrimary	1
  wdHeaderFooterFirstPage	2
  wdHeaderFooterEvenPages	3
  wdOrientLandscape	1
  wdReplaceAll	2
  wdFindContinue	1
  wdListNoNumbering	0

  修改后的代码示例（部分）：

  ActiveDocument.Sections(1).PageNumbers.NumberStyle = 0 '替代wdPageNumberStyleNone
  sec.Headers(1).Range.Text = "" '替代wdHeaderFooterPrimary
  

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