|
Hallo zusammen
tut mir leid, dass ich nicht den ganzen Code geliefert habe - sollte eigentlich selbstverstädnlich sein.
Sub toHerb_VBA_Module_Makros_Suchen() 'Ne240501 alle Makros in "Normal.dotm" suchen oder nur bestimmte
Dim j%, z&, oMod, aDoc, sDoc$, sTmp$, sFil$, sPfa$, sMod$, sMak$, sAll$, sOut$, sSucMak$
Dim oVBC, Wkb1, x, y, xx
'Alle Mappen einlesen
sDoc = "Bitte wählen ...;Normal.dotm;"
For Each aDoc In Documents 'Normal.dotm erscheint nicht
sDoc = sDoc & aDoc.Name & ";"
Next aDoc
uVBA.lBo_Fil.List = fu_Sort(Split(sDoc, ";"), 1, 0, 0, 0)
'uVBA.Show 'Test
'>>>> kann ich hier ein Doc aus obiger Schlaufe einfügen????
Set x = ActiveDocument 'wie kann ich hier zB Normal.dotm abfragen?
'Set x = Normal.dotm 'ThisDocument 'ActiveDocument, ThisDocument 'Normal.dotm geht nicht
'Set x = Documents(ThisDocument) 'ActiveDocument, ThisDocument 'Normal.dotm geht nicht
'>>>>>>hier sollten die einzelnen Module gelistet werden
For Each y In x.VBProject.vbcomponents
sMod = sMod & y.Name & vbLf '
j = wdPropertyLines '.countLines '.Count
xx = y.Name '.CountOfLines
'Stop
xx = y.codemodule.countoflines 'Count 'lines Ne240501 gibt Zeilen aus
MsgBox sMod & " hat " & j & " Zeilen"
'>>>>>>hier sollten die Zeilen eines Moduls ausgegeben werden
For z = 1 To y.codemodule.countoflines
'sTmp = y.codemodule.Lines(z) 'Fehler
'sTmp = y.Lines(z) 'Fehler
Stop
Next z
Next y
Stop
End Sub 'to_VBA_Module_Makros_Suchen()
|