运行时错误“509”：此命令不可用 - WordBasic for Word 2013

Question

我有一个宏代码，其中包含以下 Wordbasic 调用行：

 WordBasic.FormatFont Font:='Courier New', Points:=8

我已经运行了代码，它在 word 2013 的这个命令中给出了运行时错误 509。 虽然我在 word 2013 中为 wordbasic.Formatfont 编写了单独的宏，但它运行得非常好。我不知道它背后的问题是什么。

我在 google 中找不到任何纠正方法。有没有其他方法可以解决 Microsoft Word 2013 中的 wordBasic 调用？

Answer 1

WordBasic 返回一个自动化对象 (Word.Basic)，其中包括 Word 6.0 版中可用的方法。它已经过时了。改用 Visual Basic 对象和方法。

WordBasic：

WordBasic.FormatFont Font:='Courier New', Points:=8

在 VBA 中是

With Selection.Font 
    .Name = "Courier New"
    .Size = 8
End With

这个答案并不完全是您所要求的，而是一种解决方法。但恕我直言，这是最好的方法 - 我建议不要使用 WordBasic，使用 VBA。请参阅 msdn.com 上的Converting WordBasic Macros to Visual Basic。