请选择 进入手机版 | 继续访问电脑版

4chan中文站

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 105|回复: 0

word 宏 全文批量注音,批量标注拼音、假名

[复制链接]

65

主题

84

帖子

699

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
699
发表于 2018-10-20 15:43:36 | 显示全部楼层 |阅读模式
https://blog.csdn.net/liyilong1993/article/details/51043195

  1. Sub zhuju()
  2. Num = ActiveDocument.Sentences.Count
  3. For sen = 1 To Num
  4. ActiveDocument.Sentences(sen).Select
  5. ' 8pon
  6. SendKeys "+{tab 3}", 2
  7. SendKeys "+{s}", 2
  8. SendKeys "{up 7}", 2
  9. SendKeys "{down 4}", 2
  10. ' 2pon
  11. SendKeys "{tab}", 2
  12. SendKeys "+{o}", 2
  13. SendKeys "{up 2}", 2
  14. ' kakuninn
  15. SendKeys "{enter}", 2
  16. Application.Run MacroName:="FormatPhoneticGuide"
  17. Next sen
  18. End Sub
复制代码


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|4chan中文站

GMT+8, 2019-11-15 03:58 , Processed in 0.084065 second(s), 22 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表