将excel中的页码添加到单词VBA中

Question

我有以下代码，有人帮助我获得：

'sidnummer
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="PAGE  ", PreserveFormatting:=True

唯一的问题是它出现了一个错误：

＆＃34;参数数量错误或属性分配无效＆＃34;

我该如何解决这个问题？

Answer 1

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ 
    Text:="PAGE  ", PreserveFormatting:=True

当您从Excel运行此操作时，第一个Selection指的是当前在Excel中选择的任何内容 。如果要向Word文档添加新的Field，则首先需要对Word应用程序的引用，然后引用其ActiveDocument。

那么你可能会：

yourWordAppRef.ActiveDocument.Fields.Add ..

还需要修改Selection.Range以便它引用一个Word范围 - 它当前引用一个Excel范围。

您还需要在Word对象库中引用（在Excel中），否则Excel无法识别术语wdFieldEmpty。