VBA 在 Word 2016 中编译，但不是 Word 2010

Question

自 Word 2010 以来，MS 为 MS Word 引入的新功能之一是 LayoutColumns FootnoteOptions。

所以下面的代码行在 Word 2016 中编译:ActiveDocument.Range.FootnoteOptions.LayoutColumns 但在 Word 2010 中没有(我没有在 Word 2013 中测试过) .

条件编译器语句似乎无济于事...除了包含 Word 2010 的 VBA7 之外，应用程序版本没有任何内容。

https://msdn.microsoft.com/VBA/Language-Reference-VBA/articles/compiler-constants

所以这不会在 Word 2010 中编译:

Sub testWd10()
#If Win64 And VBA7 Then
    ActiveDocument.Range.FootnoteOptions.LayoutColumns
#End If
End Sub

Answer 1

编译器指令对您没有帮助。您需要确定版本，并对旧版 Word 中没有的成员调用使用后期绑定(bind)。

Sub testWd10()
  If Application.Version > 15 Then 'e.g. 15 is Word 2013, change as necessary
      Dim myRange As Object 'As Range
      Set myRange = ActiveDocument.Range
      myRange.FootnoteOptions.LayoutColumns 'Late-bound call
  End If
End Sub