WORD自动加拼音宏！！！！

windows99 · 发表于 2019-9-2 20:32

老师以下代码可以加拼音但是不能改对齐方式和字体老师怎么添加呢

Sub 逐句加注拼音()

Num = ActiveDocument.Sentences.Count

For sen = 1 To Num

      ActiveDocument.Sentences(sen).Select

      ' 调整字号为8磅
      SendKeys "+{tab 3}", 2
      SendKeys "+{s}", 2
      SendKeys "{up 7}", 2
      SendKeys "{down 4}", 2

      ' 调整偏移量为2磅
      SendKeys "{tab}", 2
      SendKeys "+{o}", 2
      SendKeys "{up 2}", 2

      ' 确认
      SendKeys "{enter}", 2

      Application.Run MacroName:="FormatPhoneticGuide"

Next sen
End Sub

windows99 · 发表于 2019-9-2 22:20

有哪位老师帮我看看

loquat · 发表于 2019-9-2 22:35

印象中论坛好像有很成熟的方案。
比如守柔拼音居士

windows99 · 发表于 2019-9-2 23:10

loquat 发表于 2019-9-2 22:35
印象中论坛好像有很成熟的方案。
比如守柔拼音居士

谢谢老师我试试

windows99 · 发表于 2019-9-2 23:15

谢谢老师我看看

windows99 · 发表于 2019-9-3 09:14

loquat 发表于 2019-9-2 22:35
印象中论坛好像有很成熟的方案。
比如守柔拼音居士

老师那个不好用来WORD无响应了

daibao88 · 发表于 2019-9-3 09:24

好霸气的头像............

xyxcc177 · 发表于 2019-9-5 08:36

用这个试试http://club.excelhome.net/thread-1441645-1-1.html

灭日传说 · 发表于 2019-9-5 08:45

xyxcc177 发表于 2019-9-5 08:36
用这个试试http://club.excelhome.net/thread-1441645-1-1.html

抱歉，萌新一枚，您这个是怎么使用的？

		自动登录	找回密码
密码			免费注册