MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Word
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 12.06.2019, 14:44   #1
JuMathias
MOF Profi
MOF Profi
Standard Word 2013 - Export von VBA-Zeilen (Module, Formularen ...)

Hallo zusammen.

ich versuche mit WORD 2013 alle vorhandenen VBA-Zeilen einer DOCM zu exportieren.

"Erste Hilfe":

https://chf-online.de/vba/vbaexportmakros.htm


Hat jemand von euch den Export mit nachfolgenden Zeilen schon einmal geschafft unter 2013 unter Berücksichtigung des Verweises?

***************************************************
PHP-Code:

Sub ExportMacros()
Dim myProject As VBProject
Dim myComponent 
As VBComponent
Dim strFile
() As String
Dim strOrdner 
As String
Dim strNames 
As String
Dim strProj 
As StringstrProjOrdner As String
Dim strMSG 
As String
' Ordner auswählen
strOrdner = GetFolderInternal("Ordner auswählen", "C:")
Alle Projekte durchlaufen
For Each myProject In VBE.VBProjects
' Nur ungeschützte berücksichtigen
If myProject.Protection = vbext_pp_none Then
  On Error Resume Next
  If myProject.VBComponents.Count > 1 Then
    strFile() = Split(myProject.FileName, "")
    strNames = strFile(UBound(strFile()))
    strNames = Replace(strNames, ".dot", "")
    If Len(Dir(strOrdner & "" & strNames, vbDirectory)) = 0 Then
      MkDir strOrdner & "" & strNames
    End If
    strProjOrdner = strOrdner & "" & strNames
    On Error GoTo 0
    ' 
Alle Module durchlaufen
    strProj 
""
    
For Each myComponent In myProject.VBComponents
      With myComponent
      strProj 
strProj & .Name vbCr
       Modul
-Typ ermitteln und mit richtiger Endung exportieren
      
If .Type vbext_ct_StdModule Then
        
.Export strOrdner "" strNames "" & .Name ".bas"
      
ElseIf .Type vbext_ct_ClassModule Then
        
.Export strOrdner "" strNames "" & .Name ".cls"
      
ElseIf .Type vbext_ct_MSForm Then
        
.Export strOrdner "" strNames "" & .Name ".frm"
      
ElseIf .Type vbext_ct_Document Then
        
.Export strOrdner "" strNames "" & .Name ".cls"
      
End If
      
End With
    Next myComponent
    strMSG 
strMSG strProjOrdner ":" vbCrLf strProj vbCrLf
  End 
If
End If
Next myProject
MsgBox 
"Es wurden alle Module aus folgenden Vorlagen exportiert: " vbCrLf strMSG_
  vbInformation
"Module exportieren"
End Sub 

***************************************************

Frage: Welchen Verweis benötige ich, dass der VBA-Code funktioniert?

Ein Dankeschön für eure Antwort,

Gruß

JuMathias
JuMathias ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 04:53   #2
EarlFred
MOF Guru
MOF Guru
Standard

edit: Hilfe gelöscht.
Entgegen des starken Hilfereflexes werde ich doch nicht gegen meine guten Vorsätze verstoßen, Dir nicht mehr zu helfen.

__________________

Datum und Uhrzeit, Makrorekorder-Code entschlacken, {Matrixformeln}
Tutorials zu Pivottabellen: Kurzeinstieg; Dynamischer Datenbereich; Daten und Zeiten gruppieren
Für 7 meiner Beiträge haben sich die Hilfesuchenden mit einer Spende an Wikipedia, die Tafeln oder Hilfe für krebskranke Kinder eV bedankt (das entspricht 0,049% per 19.12.2018) - eine tolle Geste!

Geändert von EarlFred (13.06.2019 um 05:08 Uhr).
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:33 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.