[求助]如何将替换的范围限定在刚刚插入的几个页面，并不断重复

majian

ChangeFileOpenDirectory "C:\Documents and Settings\Administrator\桌面\"
    Documents.Open FileName:="焊缝验收单.doc", ConfirmConversions:=False, ReadOnly _
        :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
        :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
        , Format:=wdOpenFormatAuto, XMLTransform:=""
ChangeFileOpenDirectory "C:\capp\"
For I = 1 To k
    Selection.InsertFile FileName:=wpsno & "-A.doc", Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
        Next I
Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "WPS号"
        .Replacement.Text = wpsno1
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "上岗号"
        .Replacement.Text = welder
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
程序的目的：打开桌面的验收单.doc，插入需要的文件，并对刚刚插入的几个页面进行替换操作，然后重复执行。
k,wpsno1,welder,是变量，每次执行时的值可能是不同的。
现在的问题是第一遍执行完后，如何在第二次执行时将替换的范围限定在第二次插入的那些页面里。(现在的代码是每次是从开始执行)

[此贴子已经被作者于2007-1-3 18:01:44编辑过]

守柔

请参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-5-26 8:16:39
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0219^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub Example()
    Dim myDoc As Document, myRange As Range
    Dim myDocPath As String, insertFilePath As String
    Dim i As Byte, K As Byte
    Dim wdpno As String, wpsno1 As String, welder As String
    Dim ReplaceRange As Range
    myDocPath = "C:\Documents and Settings\Administrator\桌面\焊缝验收单.doc"
    insertFilePath = "C:\capp\" & wdpno & "-A.doc"
    Set myDoc = Documents.Open(FileName:=myDocPath)
    Set myRange = Selection.Range
    For i = 1 To K
        Selection.InsertFile FileName:=insertFilePath, Range:="", ConfirmConversions:= _
                             False, Link:=False, Attachment:=False
    Next i
    myRange.SetRange myRange.Start, Selection.Start
    With myRange.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Execute findtext:="WPS号", REPLACEWITH:=wpsno1, Replace:=wdReplaceAll
        .Execute findtext:="上岗号", REPLACEWITH:=welder, Replace:=wdReplaceAll
    End With
End Sub
'----------------------