[求助]selection的问题

sunshuai03

我想在word加入内容的时候，记录下来加入的位置，我该怎么用，请大家指导

dim curSelection as selection

ActiveDocument.Content.InsertAfter(strings)

set curSelection=?

不知道这里该怎么写，还是这个根不就不对，谢谢大家了

守柔

你参考一下：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-22 17:10:50 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0004^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim MyRange As Range, StartPos As Long, EndPos As Long With ActiveDocument StartPos = .Content.End - 1 .Content.InsertAfter "Test!" EndPos = .Content.End - 1 Set MyRange = .Range(StartPos, EndPos) MyRange.Select MsgBox MyRange End With End Sub '---------------------- Sub Smaple() With Selection .EndKey wdStory .InsertAfter "Test!" MsgBox .Text End With End Sub '----------------------

sunshuai03

多谢版主，研究一下。

sunshuai03

很好，解决问题，也学到了怎么使用selection。再次谢谢版主