code doorzoeken in sjablonen

[jvsoest]

Hallo,

Ik ben op zoek naar een tooltje waarmee je in de modules/formulieren van sjablonen code kan doorzoeken op woorden. DUs je kiest een directory en het tooltje doorzoekt alle sjablonen in deze directory!!

Misschien weet iemand er één!!

 

[Axel Hagg]

Dag JvanSoest,

Private Sub ZoekInSjablonen
Dim f

With CreateObject("Scripting.FileSystemObject")
For Each f In .GetFolder(NaamSjablonenFolder).Files
If Instr(f.Name, "DitIsM") then MsgBox "Sjabloon gevonden"
Next
End With
End Sub

 

[jvsoest]

hallo,

Bedankt voor je reactie,

de code die je stuurde kijkt niet in de modules maar alleen naar de bestandsnaam. Ik moet echt zoeken in de vba-code in de modules. Dus als in de code iets staat van a="c:\huisstijl" en ik zoek daar op dan moet dat sjabloon genoemd worden.

Misschien heb je nog andere ideeën!

 

[Axel Hagg]

Dag JvanSoest,

Geef de sjabloon een naam waaruit blijkt dat deze sjabloon nodig is of zet in de sjabloon een code waarop je kunt zoeken. In een module naar een tekst zoeken kan volgens mij niet omdat een module gecodeerd is.

Succes,

Axel.