title image


Smiley Re: Dialoge, Module und Klassenmodule exportieren
Hi,



ein Beispiel, um alle Komponenten des aktiven Dokuments (kann auch ein Template sein) in ein TEMP-Unterverzeichnis zu exportieren:



Sub ExpotVBEProject()  Dim TempDir As String  Const ExportSubDir = "\!VBE_EXPORT\"  On Error Resume Next  TempDir = Environ("temp")  If Len(TempDir) = 0 Then MsgBox "Kann TEMP-Directory nicht ermitteln, Abbruch": Exit Sub  TempDir = TempDir & ExportSubDir  Err.Clear: MkDir TempDir  If Err Then MsgBox "Kann TEMP-Directory " & TempDir & " nicht erstellen, Abbruch": Exit Sub  ExportProject ActiveDocument, TempDir  MsgBox "OK"End SubPrivate Function ExportProject(doc As Document, destdir As String) ' Word  Const ct_StdModule = 1, ct_ClassModule = 2, ct_MSForm = 3  Const ct_ActiveXDesigner = 11, ct_Document = 100  Dim iStdMod As Long, iClsMod As Long, iFrm As Long, iDesn As Long, N As Object     On Error Resume Next  For Each N In doc.VBProject.VBComponents    If Err Then MsgBox "Sicherheitseinstellung: Kein Zugriff auf VB-Komponenten": Exit Function    Select Case N.Type      Case ct_StdModule: N.Export destdir & N.Name & ".bas"      Case ct_ClassModule: N.Export destdir & N.Name & ".cls"      Case ct_ActiveXDesigner: N.Export destdir & N.Name & ".dsr"      Case ct_MSForm: N.Export destdir & N.Name & ".frm"      Case ct_Document: If N.CodeModule.CountOfLines Then N.Export destdir & N.Name & ".cld"    End Select  Next NEnd Function



Es sind keine (zusätzlichen) Verweise erforderlich, der Zugriff auf das VBE-Projekt muss in den Word-Sicherheitseinstellungen (ab OFF2002) aber erlaubt sein.



Grüße

Wolfram

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: