运行时错误'509'：此命令不可用 - Word 2013的WordBasic

Question

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

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

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

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

Answer 1

WordBasic 返回一个Automation对象（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。