Excel VBA设置页脚字体异常：添加空格才生效的原因咨询

问题场景 #

在Excel VBA的Worksheet_BeforePrint事件中，给CenterFooter设置Calibri 8号字体时显示正常，但给RightFooter添加完全相同的格式代码后，页脚显示异常；只有在格式代码与Range("A7")的文本之间添加一个空格后，格式才恢复正常。

当前正常代码 #

Private Sub Worksheet_BeforePrint()
     With ActiveSheet.PageSetup
        .CenterFooter = """Calibri""&8" & "Page &P" & ": " & Range("practicename").Text
        .RightFooter = Range("A7").Text
     End With
End Sub

添加格式代码后的异常代码 #

.RightFooter = """Calibri""&8" & Range("A7").Text

添加空格后恢复正常的代码 #

.RightFooter = """Calibri""&8" & " " & Range("A7").Text

原因分析 #

这是因为Excel对页脚的格式指令有严格的解析规则：

• 页脚的格式代码（如字体、字号设置）需要和后续显示的文本明确分隔，否则Excel会把文本开头的字符误判为格式指令的一部分。
• 格式代码"""Calibri""&8"的结尾是&8（代表字号8），如果Range("A7")的文本开头是数字、符号这类能和&组合成格式指令的字符，拼接后会形成错误的格式指令。比如A7文本是"123"，拼接后会变成"""Calibri""&8123"，Excel会把&81当成非法格式指令，直接导致整个字体设置失效。
• CenterFooter能正常工作，是因为后续拼接的文本是"Page &P"，开头是字母"P"，不会和&8组合成错误的格式指令，Excel可以正确区分格式代码和显示文本。

添加空格后，格式代码和显示文本被明确拆分，Excel能正确识别"""Calibri""&8"是字体格式设置，后面的内容是需要显示的文本，不会再出现解析错误。

内容的提问来源于stack exchange，提问作者Kimber B.