Traversing all objects is easy, but what you want to do with that is tricky. For example, you can use Application.CurrentProject, then...
If it's forms, use AllForms:
Sub TraverseForms()
Dim f As Object
For Each f In Application.CurrentProject.AllForms
'do something with the...