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 页眉页脚教程: 添加不同的首页页眉和页脚