Word VBA 拼音指南宏MacroName:="FormatPhoneticGuide"的初始化方法?

Question

问题:我想初始化关于音标的字体对齐方式为居中，字体为Microsoft YaHei UI,偏移量为2磅，字体大小为4磅，用了sentkeys的方法实现 但不稳定容易有乱码 需要手工更改，想向大虾请教这个拼音指南宏MacroName:="FormatPhoneticGuide"的初始化方法?有什么代码可以打印出这个宏默认的内置参数列表及默认值??在哪可以找到相关手册??

代码如下:

Sub 逐词加注拼音()

'逐词加注拼音，避免逐句加拼音的缺点（句子过长有的字加不上拼音）和逐字加拼音的缺点（多音字错误更多）

'word标注的拼音并不十分准确，尤其是多音字，需要人工检查。

'sendkeys方法不是十分可靠。

Dim Num As Long, WdNum As Long, i As Integer

Dim WdRng As Range

Application.ScreenUpdating = False

With ActiveDocument

'开始标拼音

WdNum = .Words.Count

For Num = WdNum To 1 Step -1 '必须采用逆序。正序会漏标拼音

Set WdRng = .Words(Num)

With WdRng

If AscW(.Text) > 255 Or AscW(.Text) < -255 Then '如果是汉字

.Select

SendKeys "{enter}", 2 '发送按键Enter

Application.Run MacroName:="FormatPhoneticGuide" '运行拼音指南

End If

End With

Next Num

End With

Application.ScreenUpdating = True

MsgBox "完成"

End Sub

Answer 1

office 利用宏 给全文追加拼音_欲掩不从心的博客-CSDN博客 原文做几个记录，原文大佬只负责解决，我看的头皮发麻。Sub 一句一句拼音() '' 一句一句拼音 宏'' On Error Resume Next Selection.WholeStory TextLength = Selection.Characters.Count Selection.EndKey For i = TextLength To 0 Step -30 If i <= 30 Then Selection.M https://blog.csdn.net/qq_28218253/article/details/109375539