自Word 2010以来,微软推出了一项新功能,即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