[font=Courier New][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]
[color=darkblue]Sub[/color] test()
[color=darkblue]Dim[/color] WordApp [color=darkblue]As[/color] Word.Application
[color=darkblue]Dim[/color] TempDoc [color=darkblue]As[/color] Word.Document
[color=darkblue]Dim[/color] VBP [color=darkblue]As[/color] VBIDE.VBProject
[color=darkblue]Dim[/color] VBC [color=darkblue]As[/color] VBIDE.VBComponent
[color=darkblue]Dim[/color] Data [color=darkblue]As[/color] [color=darkblue]String[/color]
[color=darkblue]Dim[/color] LineCount [color=darkblue]As[/color] [color=darkblue]Long[/color]
[color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
[color=darkblue]Set[/color] VBP = ActiveWorkbook.VBProject
[color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]GoTo[/color] 0
[color=darkblue]If[/color] VBP [color=darkblue]Is[/color] [color=darkblue]Nothing[/color] [color=darkblue]Then[/color]
MsgBox "Your security settings do not allow this macro to run."
[color=darkblue]Exit[/color] [color=darkblue]Sub[/color]
[color=darkblue]End[/color] [color=darkblue]If[/color]
[color=darkblue]Set[/color] WordApp = CreateObject("Word.Application")
[color=darkblue]Set[/color] TempDoc = WordApp.Documents.Add
Data = ""
[color=darkblue]For[/color] [color=darkblue]Each[/color] VBC [color=darkblue]In[/color] VBP.VBComponents
[color=darkblue]With[/color] VBC.CodeModule
LineCount = .CountOfLines - .CountOfDeclarationLines
[color=darkblue]End[/color] [color=darkblue]With[/color]
[color=darkblue]If[/color] LineCount > 0 [color=darkblue]Then[/color]
[color=darkblue]With[/color] VBC.CodeModule
Data = WorksheetFunction.Rept("=", 60) & vbCrLf
Data = Data & "VB Component: " & VBC.Name & vbCrLf
Data = Data & .Lines(1, .CountOfLines) & vbCrLf
[color=darkblue]End[/color] [color=darkblue]With[/color]
TempDoc.Content.InsertAfter Data
Data = ""
[color=darkblue]End[/color] [color=darkblue]If[/color]
[color=darkblue]Next[/color] VBC
[color=green]' Change the path/filename accordingly[/color]
TempDoc.ExportAsFixedFormat "C:\Users\Domenic\Desktop\sample123.pdf", wdExportFormatPDF
TempDoc.Close savechanges:=[color=darkblue]False[/color]
WordApp.Quit
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]