如何使用Excel VBA宏为页脚中的特定文本设置加粗格式

Excel的页眉页脚支持通过内置格式代码设置样式，其中&B是加粗的开关标记——在需要加粗的文本前添加&B开启加粗，在文本后添加&B关闭加粗。以下是两种常见场景的实现代码：

1. 直接设置含加粗文本的页脚 #

如果需要直接生成带有加粗文本的页脚，可使用以下代码（以居中页脚为例，可按需改为左/右页脚）：

Sub SetBoldFooter()
    With ActiveSheet.PageSetup
        ' 示例：将"第 &P 页"部分加粗，完整页脚为「第 1 页 共 5 页」（&P是当前页码，&N是总页数）
        .CenterFooter = "&B第 &P 页&B 共 &N 页"
        ' 若要设置左/右页脚，替换为.LeftFooter/.RightFooter即可
    End With
End Sub

2. 为现有页脚中的特定文本添加加粗 #

如果已有页脚内容，需要将其中某段特定文本改为加粗，可使用替换逻辑实现：

Sub BoldSpecificTextInFooter()
    Dim ws As Worksheet
    Dim targetText As String
    Dim originalFooter As String
    Dim updatedFooter As String
    
    targetText = "V1.0" ' 替换为你需要加粗的目标文本
    
    ' 遍历当前工作簿所有工作表（可改为指定单个工作表：Set ws = ThisWorkbook.Worksheets("Sheet1")）
    For Each ws In ThisWorkbook.Worksheets
        originalFooter = ws.PageSetup.CenterFooter ' 假设目标文本在居中页脚，按需修改
        
        ' 将目标文本替换为带加粗格式的版本
        updatedFooter = Replace(originalFooter, targetText, "&B" & targetText & "&B")
        
        ' 应用修改后的页脚
        ws.PageSetup.CenterFooter = updatedFooter
    Next ws
End Sub

注意事项 #

• 若目标文本在页脚中多次出现，Replace函数会一次性替换所有匹配内容
• 如果页脚原本包含其他格式代码（如&I斜体、&U下划线），需注意格式开关的嵌套逻辑，避免样式冲突
• 也可以先手动设置好带格式的页脚，通过「录制宏」功能生成代码，辅助理解格式代码的用法

内容的提问来源于stack exchange，提问作者CM Choong