office 利用宏 给全文追加拼音

原文

做几个记录，原文大佬只负责解决，我看的头皮发麻。

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.MoveLeft Unit:=wdCharacter, Count:=i
         SelectText = Selection.MoveRight(Unit:=wdCharacter, Count:=i, Extend:=wdExtend)
      Else
        
         Selection.MoveLeft Unit:=wdCharacter, Count:=30
         SelectText = Selection.MoveRight(Unit:=wdCharacter, Count:=30, Extend:=wdExtend)
      End If
       
        ' 按下tab键三次  +为倒数（组合键shift 和+）
       
        SendKeys "+{tab 5}", 2
        ' 打开倒数最近的下拉框
        SendKeys "+{s}", 2
        ' 方向键 向下按10次
        '
        SendKeys "{down 10}", 2
        ' 按下tab键 一次
        SendKeys "+{tab}", 2
        ' 打开最近的数值框
        'SendKeys "+{o}", 2
        '向上按2次
        SendKeys "{up 2}", 2
        ' 按下tab键 一次
        SendKeys "+{tab}", 2
        '向上按2次
         SendKeys "{up 1}", 2
         ' 按下tab键 一次
          SendKeys "+{tab}", 2
          '向上按2次
         SendKeys "{up 5}", 2
         ' 确认 字体
        SendKeys "{enter}", 2
            ' 确认
        SendKeys "{enter}", 2
       
        Application.Run "FormatPhoneticGuide"
     
   Next

End Sub

如何使用宏？

第一步： 打开office界面，创建宏

第二步：CTRL +S 保存后，关闭页面
复制上面的代码

第三步使用：选中后点击运行


如何设置自己需要的参数？
第一步：编辑宏


大概设置成这个样子就可以了。然后在这个页面按F5,调试这个宏。

一步一步来设置。
退出 点击取消就可以了。 建议先弄个测试文档，字数十几个就够了。