Sub 保留格式简体转换成繁体()'Windows("50菩提道次第广论第50讲（修订稿）.doc").Activate
If Documents.Count < 2 ThenMsgBox ActiveDocument.Name & "：点击确定开始转换成繁体"ElseMsgBox "为防止转换错误，请只打开需要转换的一个word文档"
End IfIf ActiveDocument.TrackRevisions = True ThenActiveDocument.TrackRevisions = False
End Ifindex_c = 0
index_cend = 1
index_n = 1
index_nend = 2
i = 0
Dim rngDoc As Range
Dim nextRng As Range
Dim f As Font
Dim f2 As Font
dend = ActiveDocument.Content.EndWhile index_nend < dendSet rngDoc = ActiveDocument.Range(Start:=index_c, End:=index_cend)
Set f = rngDoc.Font.Duplicate
Set nextRng = ActiveDocument.Range(Start:=index_n, End:=index_nend)
Set f2 = nextRng.Font.DuplicateIf (f.Name = f2.Name) And (f.Color = f2.Color) And (f.Bold = f2.Bold) And (f.Size = f2.Size) And (f.Italic = f2.Italic) And (index_nend + 1) < dend Thenindex_n = index_n + 1index_nend = index_nend + 1
Elseindex_cend = index_nendSet rngDoc = ActiveDocument.Range(Start:=index_c, End:=index_cend)Set f = rngDoc.Font.DuplicaterngDoc.SelectSelection.Range.TCSCConverter WdTCSCConverterDirection:= _wdTCSCConverterDirectionSCTC, CommonTerms:=True, UseVariants:=TrueWith Selection.Range.Font.Bold = f.Bold.Name = f.Name.Size = f.Size.Italic = f.Italic.Color = f.ColorEnd Withindex_c = index_cendindex_cend = index_cend + 1index_n = index_cendindex_nend = index_nend + 1
End IfWendCall footnote_gb2big5
If ActiveDocument.TrackRevisions = False ThenActiveDocument.TrackRevisions = True
End IfMsgBox "文档转换完成"
End SubSub footnote_gb2big5()
'ScreenUpdating = False'Windows("50菩提道次第广论第50讲（修订稿）.doc").Activate
Dim myend As Range
Dim rngDocFoot As Range
Dim f As Fonti = 0While i < ActiveDocument.Footnotes.CountActiveDocument.Footnotes(i + 1).Range.SelectSet rngDocFoot = ActiveDocument.Footnotes(i + 1).RangerngDocFoot.SelectSet f = rngDocFoot.Font.DuplicateSelection.Range.TCSCConverter WdTCSCConverterDirection:= _wdTCSCConverterDirectionSCTC, CommonTerms:=True, UseVariants:=Truei = i + 1With Selection.Font.Bold = f.Bold.Name = f.Name.Size = f.Size.Italic = f.Italic.Color = f.ColorEnd With
WendEnd Sub