VBA-Code aus Formulare und Berichte, Module exportieren (Access)

Neuling001, Samstag, 18.07.2020, 19:32 (vor 17 Tagen)

Hallo!
Ich möchte meine Codes meiner erstellten Formulare und Berichte nicht über die magere Drucken-Funktion aus dem Editor ausdrucken.
Gibt es eine Möglichkeit die Listings per VBA in ein Worddokument zu exportieren, damit eine bessere Seitenformatierung und Kopfzeilengestaltung möglich ist.

Ich hab von der Internetseite http://www.access-home.de folgendes Listing für einen Export von Module gefunden, der allerdings auch nicht funktioniert (trotz Verwendung von "PfadUndName"), aber vielleicht könnte ich das als Basis verwenden?

 
Public Function VBAModuleExportieren()
 
' --------------------------------------------------
'  Funktion zum Exportieren aller vorhandenen
'  Module in externe Text-Dateien. Zum Export
'  der Dateien wird das Datenbankverzeichnis ver-
'  wendet.
'  Die Funktion benötigt zusätzlich die VBA-
'  Funktion "PfadUndName()".
' --------------------------------------------------

On Error GoTo fehler
 
Dim db As dao.Database
Dim Cont As dao.Container
Dim Doc As dao.Document
Dim X As Integer
Dim DatNam As String
Dim VerzNam As String
 
    Set db = CurrentDb()
    Set Cont = db.Containers("Modules")
 
    VerzNam = PfadUndName(db.Name, "Pfad") & ""
 
    For X = 0 To Cont.Documents.Count - 1
        Set Doc = Cont.Documents(X)
        DatNam = CStr(Doc.Name) & ".bas"
        DoCmd.OutputTo acModule, Doc.Name, acFormatTXT, _
            VerzNam & DatNam, False
 
        DoEvents
    Next X
 
ende:
    Exit Function
 
fehler:
    MsgBox Err.Description, 16, "http://www.access-home.de"
    Resume ende
 
End Function
 

Kann mir da jemand ein paar Tipps dazu geben?
Danke


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum