超出范围输入字段在Word页脚VBA

Question

我previously asked a question哪些未得到答复。我想在这里重振一下，或许更简单一点，希望我能回答这个问题。

我需要更改超过500个文档页脚的格式，并且不想手动完成。 我在一个空白文档中记录了一个宏，对其进行了修改以清理它并且不使用选择属性：它工作得很好。一旦我将该代码块复制/粘贴到我现有的代码中，并且我在需要更改的文档上尝试了该代码块，则根本无法再插入这些字段，并且收到“4608值超出范围”错误。如果我将我的ran1变量标注为Range，则在范围的定义中出现类型不匹配。 我想获得一些帮助，让字段实际插入页脚。

下面是我目前使用的代码：

Sub EnterFieldInFooter() 

Dim wor As Object 
Dim fso As Object 
Dim fol As Object 
Dim fil As Object 
Dim doc As Object 

Set fso = CreateObject("Scripting.FileSystemObject") 
Set fol = fso.GetFolder("M:\test") 

Dim ran1 As Object 

i = 3 

Set wor = CreateObject("word.application") 

For Each fil In fol.Files 

    If Right(fil.Name, 4) = ".doc" Or Right(fil.Name, 5) = ".docx" And Left(fil.Name, 2) <> "~$" Then 
     ' open the document 
     Set doc = wor.documents.Open(Filename:=fil.Path) 

     Set ran1= doc.sections.first.footers(1).Range 'footer range 

     ' Set qualifying statement 
     ran1.Text = "This is an uncontrolled document when printed or saved. " & _ 
        "See online database for most recent version." 
     ' Enter the last saved date 
     ran1.InsertAfter (vbCrLf & "Save Date: ") 
     ran1.Collapse Direction:=wdCollapseEnd 
     Set ran1 = doc.sections.first.footers(1).Range 
     ran1.Fields.Add Range:=ran1, Type:=wdFieldEmpty, Text:="SAVEDATE \@ ""yyyy/MM/dd""", PreserveFormatting:=True 
     ' Enter the last printed date 
     Set ran1 = doc.sections.first.footers(1).Range 
     ran1.InsertAfter (vbTab & "Print Date: ") 
     ran1.Collapse Direction:=wdCollapseEnd 
     ran1.Fields.Add Range:=ran1, Type:=wdFieldEmpty, Text:="PRINTDATE \@ ""yyyy/MM/dd""", PreserveFormatting:=True 

     ' Save updated file 
     pat = "M:\test1" & "\" & fil.name 
     doc.saveas pat 

    End If 

Next 

End Sub 

Answer 1

，因为你需要提供节号看到的错误可能发生。试试这个：

Set ran1 = doc.Sections(1).Footers(wdHeaderFooterPrimary).Range 
ran1.Text = "This is an uncontrolled document when printed or saved. " & _ 
       "See online database for most recent version." 
ran1.InsertAfter (vbCrLf & "Save Date: ") 
ran1.Collapse Direction:=wdCollapseEnd 
ran1.fields.Add Range:=ran1, Type:=wdFieldEmpty, Text:="SAVEDATE \@ ""yyyy/MM/dd""", PreserveFormatting:=True 
Set ran1 = doc.Sections(1).Footers(wdHeaderFooterPrimary).Range 
ran1.InsertAfter (vbTab & "Print Date: ") 
ran1.Collapse Direction:=wdCollapseEnd 
ran1.fields.Add Range:=ran1, Type:=wdFieldEmpty, Text:="PRINTDATE \@ ""yyyy/MM/dd""", PreserveFormatting:=True 

根据您的文档结构，您可能需要使用＃章节（＃）乱动，并用wdHeaderFooterPrimary与wdHeaderFooterPrimary。

希望帮助