Macro For Stepping Into #import Wrapped COM Methods
Posted
by Graham Jest
on August 17th, 2000
Sub StepInComFunc()
'DESCRIPTION: A description was not provided.
Application.Debugger.StepInto
Dim nMaxParams, nCount
nCount = 0
nMaxParams = 20
Do While ((ActiveDocument.Name = "COMUTIL.H"
Or ActiveDocument.Name = "ATLBASE.H")
And nCount < nMaxParams)
Application.Debugger.StepOut
Application.Debugger.StepInto
nCount = nCount + 1
Loop
if (ActiveDocument.Name = "COMIP.H") then
Application.Debugger.StepOut
Application.Debugger.StepInto
End If
if (ActiveDocument.Name = "COMIP.H") then
Application.Debugger.StepOut
Application.Debugger.StepInto
End If
if (InStr(ActiveDocument.Name, ".tli") > 0) then
Application.Debugger.StepOver
Application.Debugger.StepInto
End If
nCount = 0
Do While ((ActiveDocument.Name = "COMUTIL.H"
Or ActiveDocument.Name = "ATLBASE.H")
And nCount < nMaxParams)
Application.Debugger.StepOut
Application.Debugger.StepInto
nCount = nCount + 1
Loop
End Sub

Comments
That's is pretty cool!
Posted by Legacy on 07/13/2001 12:00amOriginally posted by: hn
If you want to close those files as well, add ActiveDocument.Close
Reply