Cut and paste to new document

[Ben]

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

 

[Helmut Weber]

Hi,

I have code that actually find the 1st 'S' of the
document where it will
cut and paste to new document.

Could you be a bit more precise?

You are searching for "F" or "S" by the way,
not for "S"

With Dialogs(wdDialogFileSaveAs)
.Name = Trim$(Selection.Text)
.Show
End With

has nothing to do with copying and pasting
to a new document.

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

 

[Ben]

Hi,
for "S".

thanks

regards,
Ben

Hi,


Could you be a bit more precise?

You are searching for "F" or "S" by the way,
not for "S"


has nothing to do with copying and pasting
to a new document.

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000