Function findTextInModule(pstrSuchText As String, ByRef pobjWord As Object)
Dim flgFound As Boolean
Dim objComponent As Variant
flgFound = False
Const c_vbModul As Long = 1
For Each objComponent In pobjWord.ActiveDocument.VBProject.VBComponents
If objComponent.Type = c_vbModul Then
flgFound = objComponent.CodeModule.Find(pstrSuchText, 1, 1, -1, -1)
End If
Next
findTextInModule = flgFound
End Function