☰

如何在Office 2010中插入非英文参考编号？

tag-icon • tag-icon microsoft-word keyboard microsoft-office language cross-reference
如何在Office 2010中插入非英文参考编号？

我在 Windows 7 机器上使用 Word 2010（专业增强版）。我正在用藏文输入文档，我希望参考编号（脚注和尾注编号）也使用藏文，但事实并非如此，它们只使用英文（阿拉伯文）字符。我在页码方面也遇到了类似的问题，如果可以修复就太好了，但参考编号才是更紧迫的问题。

我使用的是藏文 Unicode 字体和第三方输入系统。我在 Office 中安装了藏文作为附加语言，在 Windows 中也安装了藏文作为语言和键盘，但我没有使用 Windows 藏文键盘。但是，我尝试在使用 Win7 藏文键盘时插入参考资料，它仍然会插入阿拉伯字符。

我的计算机和 Office 的默认语言都是美国英语。

我在网上根本找不到任何帮助，大多数关于 Office 中非英语字符的问题都没有答复。任何帮助都将不胜感激。谢谢。

答案1

另一种方法是使用 VBA 将所有脚注引用替换为使用藏文字形的引用序列。我认为下面的方法可以对脚注执行此操作，假设您希望每个脚注都以这种方式编号，并且编号在整个文档中是连续的。但是，如果您想始终看到正确的编号，则每次插入、删除或重新排序脚注时都必须运行此宏。

Sub replaceFootnoteRefsbyTibetanSequence()
Dim fsource As Word.Footnote
Dim ftarget As Word.Footnote
Dim lng As Long
Dim rsource As Word.Range
Dim rtarget As Word.Range
With ActiveDocument
  For lng = 1 To .Footnotes.Count
    Set rtarget = .Footnotes(lng).Reference.Duplicate
    rtarget.Collapse Direction:=wdCollapseEnd
    Set ftarget = rtarget.Footnotes.Add(rtarget, strTibetan(lng))
    rtarget.Style = ActiveDocument.Styles(Word.WdBuiltinStyle.wdStyleFootnoteReference).NameLocal
    ftarget.Range.FormattedText = .Footnotes(lng).Range.FormattedText
    .Footnotes(lng).Delete
    Set ftarget = Nothing
    Set rtarget = Nothing
  Next
End With

End Sub

Function strTibetan(theNumber As Long) As String
Dim i As Integer
Dim s As String
s = ""
For i = 1 To Len(CStr(theNumber))
  s = s & ChrW(AscW(Mid(CStr(theNumber), i, 1)) - AscW("0") + &HF20)
Next
strTibetan = s
End Function

尾注无疑也有可能实现类似的效果。如果每页或每节都有编号，情况可能会更困难。

相关内容