在VBA中设置Word文档的页眉字体和大小，你可以使用`Selection`对象的`Font`属性。以下是一个示例代码，它将设置当前页眉的字体为“Arial”，字体大小为12。
```vba
Sub SetHeaderFontAndSize()
With ActiveDocument.Header
.Range.Font.Name = "Arial"
.Range.Font.Size = 12
End With
End Sub
```
这段代码首先通过`ActiveDocument.Header`访问当前活动文档的页眉，然后设置页眉中所有文本的字体名称为“Arial”，字体大小为12。
如果你想要设置特定页眉（例如第一页的页眉）的字体和大小，你可以使用`WdHeaderFooterType`常量来指定页眉的类型：
```vba
Sub SetFirstPageHeaderFontAndSize()
With ActiveDocument.Sections(1).Headers(WdHeaderFooterType.wdHeaderFooterFirst)
.Range.Font.Name = "Arial"
.Range.Font.Size = 12
End With
End Sub
```
这段代码将设置第一页页眉的字体为“Arial”，字体大小为12。`WdHeaderFooterType.wdHeaderFooterFirst`是一个Word的常量，用于指定第一页的页眉。类似地，`WdHeaderFooterType.wdHeaderFooterPrimary`用于设置奇数页的页眉，`WdHeaderFooterType.wdHeaderFooterEven`用于设置偶数页的页眉。
