or better do be done with this code:
which selects text between start and end tag: and now I would like this selected text to be copied into new document count the codes there( already have a count macro ) and tell me which page of large document this text was taken from
Sub SearchAndReplace()
fkt_Search "<|", "|>", False
End Sub
Function fkt_Search(strStart As String, strEnd As String, bDelete As Boolean)
Dim rng As Range
Dim rngText As Range
' Range festlegen
Set rng = ActiveDocument.Range
strStart = "<Amend>"
strEnd = "</Amend>"
' Range festlegen
Set rngText = ActiveDocument.Range(0, 0)
rngText.Collapse wdCollapseStart
' Such-Schleife
With rng.Find
.Format = False
.Text = strStart
' Suche nach Start-Tag
.Execute
Do While .Found = True
' Fundstelle mit Start-Tag anlegen
rngText.SetRange rng.Start, rng.End
' Suchtextbereich reduzieren
rng.SetRange rng.End, ActiveDocument.Range.End
' Suche nach End-Tag
.Execute FindText:=strEnd, Forward:=True
' Abbruch wenn kein End-Tag
If .Found = False Then Exit Function
' Fundstelle bis End-Tag erweitern
rngText.SetRange rngText.Start, rng.End
If bDelete = False Then
' fablich hervorheben
rngText.Select
rngText.Font.Color = wdColorAqua
Else
' l?schen
rngText.Delete
End If
' Suchtextbereich zur Endposition reduzieren
rng.Collapse wdCollapseEnd
' Start-Tag suchen
.Execute FindText:=strStart, Forward:=True
Loop
rng.Collapse wdCollapseEnd
End With
End Function