从excel中添加页码到VBA

我有以下代码，有足够的帮助我获得：

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

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

“错误的参数数量或无效的属性分配”

我该如何解决这个问题？

Answer 1

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

当你从Excel中运行这个时，第一个Selection是指在Excel中当前select的任何选项。 如果要将新Field添加到Word文档，则首先需要对Word应用程序的引用，然后到其ActiveDocument 。

那么你可能会有：

 yourWordAppRef.ActiveDocument.Fields.Add .. 

Selection.Range也需要被修改，以便引用一个字范围 – 它当前引用一个Excel范围。

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