关于插入的问题

tongyi

123456789 如果我将光标定位在5和6中间，然后要在2和3中间插入a和b，或者在8与9中间插入字符，请问宏应该怎么写

守柔

以下是引用[I]tongyi[/I]在2006-2-7 13:27:09的发言：[BR]123456789 如果我将光标定位在5和6中间，然后要在2和3中间插入a和b，或者在8与9中间插入字符，请问宏应该怎么写

Sub Example() Dim myRange As Range, lngStart As Long Dim txtString1 As String, txtString2 As String txtString1 = "Excelhome.net" txtString2 = "ShouRou" Set myRange = Selection.Range With myRange lngStart = .Start '光标所在的起始位置 .SetRange lngStart - 3, lngStart - 3 '前3个字符位置,即2和3之间 lngStart = lngStart + Len(txtString1) '取得插入字符后位置的更改 .InsertAfter txtString1 '插入指定字符 .Font.Bold = True '设置为粗体 .Font.Color = wdColorRed '红色 .SetRange lngStart + 3, lngStart + 3 '取得已插入指定字符后后3个字符位置,即光标后的8和9之间位置 .InsertAfter txtString2 '插入指定字符 .Font.Italic = True '斜体 .Font.Color = wdColorBlue '兰色 End With End Sub 有关RANGE对象的详细用法，请参考置顶贴子《守柔WORD VBA讲座》

tongyi

先谢谢斑竹的回复，回去漫漫研究