Word如何把整篇文档（1）转为①

xmgslx123 · 发表于 2016-4-27 09:26

Word如何把整篇文档（1），（2）...转为圆卷如① ... 手工一个一个改很难啊

413191246se · 发表于 2016-4-27 09:30

可以用宏试试。

xmgslx123 · 发表于 2016-4-27 11:34

413191246se 发表于 2016-4-27 09:30
可以用宏试试。

那你帮帮忙写个宏

413191246se · 发表于 2016-4-27 15:39

楼主，厉害！还会用宏！

Sub test()
'替换（1）为①
Dim i, j, k As Long
With ActiveDocument.Content.Find
.Execute FindText:="(", replacewith:="（", Replace:=wdReplaceAll
.Execute FindText:=")", replacewith:="）", Replace:=wdReplaceAll
End With
i = Array("（1）", "（2）", "（3）", "（4）", "（5）", "（6）", "（7）", "（8）", "（9）", "（10）")
j = Array("①", "②", "③", "④", "⑤", "⑥", "⑦", "⑧", "⑨", "⑩")
Do
ActiveDocument.Content.Find.Execute FindText:=i(k), replacewith:=j(k), Replace:=wdReplaceAll
k = k + 1
Loop Until k = 10
End Sub

复制代码

xmgslx123 · 发表于 2016-4-27 16:12

413191246se 发表于 2016-4-27 15:39
楼主，厉害！还会用宏！

感谢你的帮忙

413191246se · 发表于 2016-4-28 10:42

楼主，你应该说明一下小宏运行正确与否、解决问题了没有；还有，因为输入法问题，只能解决到圆圈数字到10。

xmgslx123 · 发表于 2016-4-28 18:21

413191246se 发表于 2016-4-28 10:42
楼主，你应该说明一下小宏运行正确与否、解决问题了没有；还有，因为输入法问题，只能解决到圆圈数字到10。

谢谢！已经解决问题但超过11就没有办法

abigtreenj · 发表于 2016-4-28 19:14

413191246se 发表于 2016-4-27 15:39
楼主，厉害！还会用宏！

多谢多谢，学习了．

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

[求助] Word如何把整篇文档（1）转为①