Vba Word宏更改页脚字体大小并将其设置为不同于文档中的不同页眉和正文?

Vba Word宏更改页脚字体大小并将其设置为不同于文档中的不同页眉和正文?,vba,ms-word,Vba,Ms Word,我正在尝试为文档中的页脚设置与正文其他部分不同的字体大小。此外,在不知道标题大小的情况下,如何更改文档中某些标题的字体大小?任何帮助都将不胜感激!我正在发布我迄今为止尝试过的内容。谢谢大家! Sub MyMacro() Selection.ParagraphFormat.LineSpacing = LinesToPoints(1.5) Set myRange =ActiveDocument.Sections.First.Headers(wdHeaderF

我正在尝试为文档中的页脚设置与正文其他部分不同的字体大小。此外,在不知道标题大小的情况下,如何更改文档中某些标题的字体大小?任何帮助都将不胜感激!我正在发布我迄今为止尝试过的内容。谢谢大家!

Sub MyMacro()
 

    Selection.ParagraphFormat.LineSpacing = LinesToPoints(1.5)
    
    
    Set myRange =ActiveDocument.Sections.First.Headers(wdHeaderFooterPrimary).Range
    With myRange.Font
        .Name = "Palatino Linotype"
        .Size = 8
    End With

 
End Sub


您对文档重新格式化的做法很糟糕,很容易导致文档损坏。您应该修改文档中使用的样式。例如:

With ActiveDocument.Styles("Normal").Font
  .Name = "Palatino Linotype"
  .Size = 11
End With
ActiveDocument.Sections.First.Headers(wdHeaderFooterPrimary).Range.Style = "My Style"
对于页眉/页脚内容,要在其中实现所需的结果,可能需要使用与文档正文中不同的样式

特别是使用样式,但即使使用当前的方法,也不需要选择任何内容或切换视图。例如:

With ActiveDocument.Styles("Normal").Font
  .Name = "Palatino Linotype"
  .Size = 11
End With
ActiveDocument.Sections.First.Headers(wdHeaderFooterPrimary).Range.Style = "My Style"

我完全同意。Word具有默认情况下在页脚中使用的样式。巧合的是,样式的名称是“页脚”。有一个对应的页眉样式。@macropod我不知道如何操作样式。什么是普通款式?我试着使用普通和其他一些方法来处理页脚和正文的字体大小,就像在我的问题中更新的那样。然而,即使Charles建议在样式中使用footer,他们也不会进行必要的更改。我发布的代码已经展示了如何修改/应用单词样式。风格的使用是单词的基础。不使用(或滥用)文体就不可能使用单词。你应该学习Word如何工作的基础知识…嗨,谢谢你的评论,我得到了更多探索风格的机会,并取得了一些进展!我真的很感谢你的帮助。我希望我不是很烦人,但你也能看看我的问题: