Word VBA:转换页脚/页眉中的上标

Posted

技术标签:

【中文标题】Word VBA:转换页脚/页眉中的上标【英文标题】:Word VBA: Convert Superscripts in Footers/Headers 【发布时间】:2017-08-01 09:40:57 【问题描述】:

我正在使用这样的代码将每个部分的所有页眉/页脚输出到文本文件: Word VBA - getting text file output to look right

我已经能够使用 Replace() 毫无问题地转换 sHeader/sFooter 字符串变量中的所有特殊字符。

例如:sFooter = Replace(sFooter, ChrW(8804), "^R'\ \uc2\u8804 <='")

在我尝试替换上标之前,一切都很好。 Alt+x 只给了我字母本身的值。我试过查找十六进制值(甚至可能不是一件事)但没有成功。我什至尝试过不同的拉丁字符值。

我录制了一个宏,看看 Word 将如何替换它并得到:

    Selection.Find.ClearFormatting
With Selection.Find.Font
    .Superscript = True
    .Subscript = False
End With

Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "A"
    .Replacement.Text = "^supera"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

问题是我不知道如何一起使用它们。 我尝试使用oSec.Footers(wdHeaderFooterFirstPage).Range.Find... 而不是Selection.Find...,但这会产生一个空字符串。

我可以从 sHeader/sFooter 以某种方式创建一个 String 对象,以便我可以使用记录的宏代码吗?我尝试谷歌搜索,将字符串转换为对象,但没有得到任何帮助。有更好的方法吗?

提前致谢。

【问题讨论】:

【参考方案1】:

我知道这并不能完全回答您的问题,但问题是无论是否上标,字符都是相同的,即上标是格式化的,就像粗体或斜体一样。

例如,粗体 A、普通 A 和上标 A 的代码均为 65。

如果您要保存到文本文件,您将无法保存格式,因此您需要发明自己的上标字符表示。

查找/替换代码的表示形式,即“^supera”是 Word 用来允许您对具有特定格式的文本进行查找/替换的方法。

注意:有一些特殊字符,例如 ²,与 2 有一个单独的字符代码,因此它们会有不同的代码。

【讨论】:

【参考方案2】:

感谢 M1chael 的意见。

通过将选择设置为当前页眉/页脚部分,我能够让上面录制的宏工作。

例子:

oSec.Footers(wdHeaderFooterPrimary).Range.Select
Selection = ActiveDocument.ActiveWindow.Selection

谢谢

【讨论】:

以上是关于Word VBA:转换页脚/页眉中的上标的主要内容,如果未能解决你的问题,请参考以下文章

Word控件Spire.Doc 页眉页脚教程: 添加不同的首页页眉和页脚

word文档怎么重新设置页码

为啥word里的页眉页脚设置好了,关闭页眉页脚对话框,页面上不显示页眉页脚?

java实现插入word页眉页脚以及生成目录及页码

怎样在EXCEL中添加页眉/页脚?

从 Excel VBA 在 Word 中添加页脚