请问如何用VBA实现将一word文档中的所有脚注简体文字全部转换为繁体？

irischenxi

请问如何用VBA实现将一word文档中的所有脚注简体文字全部转换为繁体？

plxmm

WordXP、2003有繁简转换命令。录制一个宏试试。

irischenxi

我用了一下一段代码：

myRange.TCSCConverter WdTCSCConverterDirection:= _
wdTCSCConverterDirectionSCTC, CommonTerms:=True, UseVariants:=True

我知道myRange可以通过以下方法取到整个正文内容：

Set myRange = m_wrdDoc.Content

但不知myRange怎么取到Footnote，请各位指教！

konggs

Sub 孤独()
Dim a As Section
For Each a In ActiveDocument.Sections
a.Headers(wdHeaderFooterPrimary).Range.TCSCConverter WdTCSCConverterDirection:= _
wdTCSCConverterDirectionSCTC, CommonTerms:=True, UseVariants:=True
a.Footers(wdHeaderFooterPrimary).Range.TCSCConverter WdTCSCConverterDirection:= _
wdTCSCConverterDirectionSCTC, CommonTerms:=True, UseVariants:=True
Next
End Sub

irischenxi

谢谢！但我想要转换的是脚注（footnote），试了试，用Section好像取不到。

konggs

Sub 孤独()
Dim a%
For a = 1 To ActiveDocument.Footnotes.Count

ActiveDocument.Footnotes(a).Range.Select
Selection.Range.TCSCConverter WdTCSCConverterDirection:= _
wdTCSCConverterDirectionSCTC, CommonTerms:=True, UseVariants:=True
Next
End Sub

[此贴子已经被作者于2006-1-24 10:09:17编辑过]

守柔

也可以试一下这个：

Sub Example()
Dim myRange As Range
Set myRange = ActiveDocument.StoryRanges(wdFootnotesStory)
myRange.TCSCConverter wdTCSCConverterDirectionSCTC, True, True
End Sub