將Excel中的頁碼添加到Word，VBA

Question

我有以下代碼，有人可以幫助我獲得：

'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中當前選擇的任何內容。 如果要向Word文檔添加新的Field ，則首先需要引用Word應用程序，然后再引用其ActiveDocument 。

因此，您可能會有：

yourWordAppRef.ActiveDocument.Fields.Add ..

還需要修改Selection.Range ，以便它引用一個Word范圍-當前它引用一個Excel Range。

您還需要對Word對象庫的引用（在Excel中），否則Excel將無法識別術語wdFieldEmpty 。