Hello, I'm trying to find a macro for couting the number of instances of a text string, then export the results to a txt doc.



We are looking to move to offsite printing, and will be merging all of the documents to one file, and there will be a trigger to advise of different mailings. The goal of the macro would be to count how many instances of that trigger there are and export it into a txt file so that we can track how many individual documents were sent to them

Sub ScratchMacro()
Dim arrContent() As String
Dim strTrigger As String
strTrigger = "zzz"
arrContent() = Split(ActiveDocument.Range.Text, "zzz")
Set oDoc = Documents.Add
oDoc.Range.Text = Ubound(arrContent)
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Thank you for your reply - So I would just replace the "zzz" with my variable? I tried and it just opens a new Word doc, but doesnt show any count or infomration, it is just blank

Sorry, my mistake. Replace :
oDoc.Range.Text = lngIndex
with
oDoc.Range.Text = Ubound(arrContent)

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/