能利用VBA在文件中的每种字体前插入字体的名称？

zhdqsd

word文件要插入到方正书版里排版，但用自带的插入带字体的话，有很多的乱码字体不匹配，能不能利用VBA在word文件里各种字体前：插相应的字体名称和是否加粗。

zhdqsd

本人小白一枚，请高手帮写一下代码，在此感谢。

守候_CJ

代码

1. Sub 批量加字体信息()
   
2.     Dim pa As Paragraph
   
3.     Dim s As String
   
4.     Dim i As Long
   
5.    
   
6.     For Each pa In ActiveDocument.Paragraphs
   
7.         If Len(pa.Range.Text) > 1 Then
   
8.             s = pa.Range.Font.NameFarEast
   
9.             s = s & "/" & pa.Range.Font.Name
   
10.             s = s & "/" & IIf(pa.Range.Font.Bold = True, "加粗", "不加粗")
    
11.             s = "[" & s & "]"
    
12.             s = Replace(s, "//", "/")
    
13.             pa.Range.InsertBefore s
    
14.             i = i + 1
    
15.         End If
    
16.     Next
    
17.    
    
18.     MsgBox "完成，共设置了" & i & "段。"
    
19. End Sub

复制代码

zhdqsd

收到，测试后再回复，感谢