Hi,
I have  code that actually find the 1st 'S' of the document where it will
cut and paste to new document. Can i coded in vb that it will find the next
'S' and vut and paste instead.

With Selection.Find
       .Execute FindText:="<[FS]????????>", MatchWildcards:=True,
MatchWholeWord:=True, Wrap:=wdFindContinue, Forward:=True
       'MsgBox "!"
     'Invoke the SaveAs box
     With Dialogs(wdDialogFileSaveAs)
      .Name = Trim$(Selection.Text)
      .Show
     End With
 
 End With

regards,
ben