如何遍厉文档中的每个字？

我心依旧 · 发表于 2004-6-17 21:11

我想给每个是d声母的汉字都住上拼音即模拟word中的注拼音法

可是以前没写过word的VBA所以不晓得怎么遍厉文中每个字？

我想应该是很简单的语句吧

谢谢

wenz · 发表于 2004-6-23 17:45

Sub test() AA = ActiveDocument.Characters.Count Selection.HomeKey Unit:=wdStory For i = Selection.start To AA - 1 Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend MsgBox Selection.Text Selection.MoveRight Unit:=wdCharacter, Count:=1 Next i End Sub

办公之星 · 发表于 2004-6-23 18:47

以下是引用wenz在2004-6-23 17:45:00的发言： Sub test() AA = ActiveDocument.Characters.Count Selection.HomeKey Unit:=wdStory For i = Selection.start To AA - 1 Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend MsgBox Selection.Text Selection.MoveRight Unit:=wdCharacter, Count:=1 Next i End Sub

　　WENZ的VBA水平真是了得，羡慕ING。

wenz · 发表于 2004-6-23 21:13

那里,与守柔老师相比,差远了,向他学ing.

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