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

我心依旧

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

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

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

谢谢

wenz

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在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

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