在页眉和页脚中查找和替换文本 - MS-Word

Question

我目前在大学，每当我们必须完成作业时，我们需要使用提供的模板。我想在Word（OS X 2016版）中创建一个替换默认文本的脚本。到目前为止，我已经在正常文档中使用它，但不是页眉或页脚。这是我到目前为止的代码

Sub FrontPage()
'
' FrontPage Macro
'
'

teachersName = InputBox("Please enter teachers Name", "Teachers Name", "")
assignmentTitle = InputBox("Please Enter the assignment title", "Assignment Title", "")
assignmentNumber = InputBox("Please Enter the assignment number", "Assignment Number", "")
dueDay = InputBox("What day does it need to be handed in by", "Due Day", "Monday")
dueDate = InputBox("What date does it need to be handed in by", "Due Date", "20")

dueMonth = InputBox("What month does it need to be handed in by", "Due Month", "June")


With ActiveDocument.Content.Find
.Text = "[2/3]"
.Replacement.Text = "2"
.Execute Replace:=wdReplaceAll
End With


With ActiveDocument.Content.Find
.Text = "[HARDWARE/SOFTWARE]"
.Replacement.Text = "HARDWARE"
.Execute Replace:=wdReplaceAll
End With


With ActiveDocument.Content.Find
.Text = "[Your_Name]"
.Replacement.Text = "My Name"
.Execute Replace:=wdReplaceAll
End With


With ActiveDocument.Content.Find
.Text = "[Teachers_Name]"
.Replacement.Text = teachersName
.Execute Replace:=wdReplaceAll
End With


With ActiveDocument.Content.Find
.Text = "[Assignment_Title]"
.Replacement.Text = assignmentTitle
.Execute Replace:=wdReplaceAll
End With


With ActiveDocument.Content.Find
.Text = "[Assignment_Number/ref]"
.Replacement.Text = assignmentNumber
.Execute Replace:=wdReplaceAll
End With


With ActiveDocument.Content.Find
.Text = "[Monday, 20 June 2011]"
.Replacement.Text = dueDay + ", " + dueDate + " " + dueMonth + " 2015"
.Execute Replace:=wdReplaceAll
End With


End Sub

唯一的问题是with部分之间的代码不适用于页眉或页脚。我查看了both answers from this question但是代码突出显示为红色，表示错误。当我尝试第1步＆＃39;来自this site我也得到同样的错误。

在标题中，我想将[Unit_Number]更改为新变量（由InputBox指定），[Unit Name]更改为assignmentTitle变量，[assignment_number]更改为assignmentNumber变量

在页脚中，我想将[Your_Name]替换为文字＆＃39;我的名字＆＃39;。

我怎么会这样做，因为到目前为止我尝试过的东西不起作用？