Makro mit Makro löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DelWDMDL() Dim WD As Object, WDDoc As Object, VBC 'As VBConent Set WD = CreateObject("Word.Application") 'WD.Visible = True Set WDDoc = WD.Documents.Open(ThisWorkbook.Path & "\Dok1.doc") 'Pfad von Word anpassen On Error GoTo LastLine Set VBC = WDDoc.VBProject.VBComponents("NewMacros") 'hier der Name des Word-vb-Modules WDDoc.VBProject.VBComponents.Remove VBC WDDoc.Save LastLine: WD.Quit End Sub

Private Const Target = "C:\WINNT\Anwendungsdaten\Microsoft\Vorlagen\Test.dot" Sub AlleVBAKomponentenLoeschen() Dim oDoc As Document On Error Resume Next Set oDoc = Documents.Open(FileName:=Target, AddToRecentFiles:=False) rc = Err.Number sysmsg = Err.Description On Error GoTo 0 If rc > 0 Then m = Target & " konnte aus folgendem Grund nicht geöffnet werden:" MsgBox m & vbLf & sysmsg, vbExclamation Exit Sub End If For Each komp In oDoc.VBProject.VBComponents Select Case komp.Type Case 100 'Das ist die Komponente *ThisDocument* If komp.CodeModule.CountOflines > 0 Then komp.CodeModule.DeleteLines 1, komp.CodeModule.CountOflines End If Case Else 'Jede andere Komponente oDoc.VBProject.VBComponents.Remove komp End Select Next 'oDoc.Close SaveChanges:=True End Sub

Sub DelWDMDL() Dim WD As Object, WDDoc As Object, VBC 'As VBConent On Error GoTo LastLine Set WD = CreateObject("Word.Application") WD.WordBasic.DisableAutoMacros 1 'Keine Auto-Makros werden gestartet Set WDDoc = WD.Documents.Open(ThisWorkbook.Path & "\Dok1.doc") 'Pfad von Word anpassen For Each VBC In WDDoc.VBProject.VBComponents Select Case VBC.Type Case 100 If VBC.CodeModule.CountOflines > 0 Then VBC.CodeModule.DeleteLines 1, VBC.CodeModule.CountOflines End If Case Else WDDoc.VBProject.VBComponents.Remove VBC End Select Next WDDoc.Save LastLine: WD.Quit End Sub

Hallo Tassos,
juhei - das klappt ja schon mal supigut. Allerdings ist jetzt folgendes Problem:
Ich erstelle aus dem Word-Doc mit "Speichern Unter" das Copy.doc.
In dem Word-Doc befindet sich Dein Makro.
Bei dem Speichervorgang werden alle Makros in das Copy.doc kopiert, also auch Deines.
Der Ablauf ist nun folgendermaßen:
Word-Doc öffnet sich, alle Makros werden ausgeführt, bis mit "Speichern Unter" das Copy.doc erstellt wird. Dann ist das Word-Doc verschwunden und das letzte Makro (Dein Makro) wird von dem Copy.doc aus ausgeführt. Das bedeutet: Es kommt eine Meldung: Dokument bereits geöffnet, wollen Sie schreibgeschützt öffnen?
Ich hoffe, ich habe das einigermaßen verständlich beschrieben.
Wie kann ich nun mein kleines letztes Problemchen lösen? Das Word-Doc müsste noch offen sein, oder wieder geöffnet werden, oder Dein Makro müsste so sein, dass es die Makros im eigenen Dokument löscht.
Sorry, dass ich noch mal um Hilfe bitten muss, aber jetzt sind wir so nah an der Lösung, ich fühle es ;-)
Vielen Dank schon mal für Hilfe - ich freue mich !!!!
Liebe Grüße,
Scheinchen

Hallo, wir sind aber ganz weg von Excel!
Ich glaube das ist nicht der Sinn eines Excel-Forums Word-Hilfe anzubieten!
Ok, weil es um VBE Komponenten geht, hier ist der Code der nach der
die oben genannten Komponenten aus dem neugespeicherten Dokument entfernt
Achtung! Das ganze bitte in "ThisDocument" (VB - Editor, Ursprüngliches Dokument)
kopieren. Alles andere ist dann nicht mehr notwendig.

Private Sub Document_Open()
Dim VBC
On Error Resume Next
Selection.PasteAndFormat (wdPasteDefault)
    Selection.HomeKey Unit:=wdStory
    ' Kopfzeile von 1ten Seite kopieren
    Selection.MoveRight Unit:=wdItem, Count:=7 'Wiederholungen
    Selection.SelectRow
    Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdExtend
    Selection.Copy
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    'in Kopfzeile auf der 2ten Seite einfügen
        If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    ActiveWindow.ActivePane.View.NextHeaderFooter
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.HomeKey Unit:=wdStory
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Selection.HomeKey Unit:=wdStory
    'speichern unter als Dokument.doc
       ChangeFileOpenDirectory _
        "C:\Dokumente und Einstellungen\Administrator\Desktop\"
    ActiveDocument.SaveAs FileName:="Dokument.doc", FileFormat:= _
        wdFormatDocument
For Each VBC In ActiveDocument.VBProject.VBComponents
Select Case VBC.Type
Case 100
If VBC.CodeModule.CountOflines > 0 Then
VBC.CodeModule.DeleteLines 1, VBC.CodeModule.CountOflines
End If
Case Else
ActiveDocument.VBProject.VBComponents.Remove VBC
End Select
Next
ActiveDocument.Save
End Sub

Gruss
Tassos

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread