Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
CommandButtons löschen
zurück: Hyperlinks anh. definierter Überschriften programmieren weiter: Makro zum Bilder einfügen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
nobodyxXx
Gast


Verfasst am:
05. Sep 2008, 12:53
Rufname:

CommandButtons löschen - CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Hallo zusammen ...

Wie genau kann ich mittels VBA alle in einem Dokument befindlichen CommandButtons löschen Question

thx bin leider noch Anfänger Wink
dappes
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. Sep 2008, 13:14
Rufname:
Wohnort: Unterfranken


AW: CommandButtons löschen - AW: CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Hallo,

also ich würd es -gerade als Anfänger- 'manuell' machen.

Im Entwurfsmodus auf den Button klicken - Codefenster erscheint, Code löschen, Button im Dok löschen.

Wenn du nur den Button im Dok löscht, bleibt der zugehörige (überflüssige) Code erhalten. Könnte dann irgendwann unübersichtlich werden.

Gruß
dappes
nobodxxXx
Gast


Verfasst am:
05. Sep 2008, 13:19
Rufname:

AW: CommandButtons löschen - AW: CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Leider handelt es sich um eine so große Anzahl (max. 1800), das das händische löschen nicht mehr in Frage kommt Wink
nobodyxXx
Gast


Verfasst am:
05. Sep 2008, 14:15
Rufname:

AW: CommandButtons löschen - AW: CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Ich hatte mir das vom Prinzip her so vorgestellt:

Code:
Dim i As Integer
Dim TM As Word.CommandButton

For Each TM In ActiveDocument
                T TM.Select
                Selection.Delete
               
Next TM

End If


funktioniert nur nicht ^^
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
05. Sep 2008, 17:05
Rufname:
Wohnort: Leipzig


AW: CommandButtons löschen - AW: CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Hallo nobodyxxx,

falls die Buttons als InlineShapes eingefügt sind, kannst Du mal diese Schleife probieren:
Code:
Sub CBLoeschen()

    Dim CB As InlineShape
   
    For Each CB In ActiveDocument.InlineShapes
        If CB.OLEFormat.ClassType = "Forms.CommandButton.1" Then
            CB.Delete
        End If
    Next CB
   
End Sub

Sollten noch welche übrig bleiben, am besten nochmals melden.

Gruß
Lisa
nobodyxXx
Gast


Verfasst am:
08. Sep 2008, 08:07
Rufname:

AW: CommandButtons löschen - AW: CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Hallo Lisa

Momentan gibt er einen Laufzeitfehler aus, die Objektvariable bzw. die With-Blockvariable sei nicht festgelegt ....
Gast



Verfasst am:
08. Sep 2008, 08:10
Rufname:

AW: CommandButtons löschen - AW: CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Mit

Code:
ThisDocument.CommandButton1.Select
Selection.Delete


könnte man einzelne Buttons löschen, soviel habe ich noch herausgefunden. Hilft bei den vielen nur nicht ^^
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
08. Sep 2008, 12:52
Rufname:
Wohnort: Leipzig

AW: CommandButtons löschen - AW: CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Hallo Gast,

versteh ich jetzt nicht. Wir reden doch von Word und von Buttons aus der Steuerelement-Toolbox auf der Wordoberfläche? Hast Du die kleine Prozedur oben ins Modul ThisDocument kopiert und dann ausgeführt? Bist Du mal im Einzelschritt durchgegangen und hast
Code:
cb.Select

vor das Delete gesetzt. Wird denn wenigstens der erste der Buttons gefunden? Sind die Buttons als Inlineshape eingefügt (das ist default so)? Markier mal einen solchen Button (anklicken) im Entwurfsmodus. Sind die Anfasser kleine Punkte (Shape) oder kleine Quadrate (Inlineshape)?

Gruß
Lisa
nobodyxXx
Gast


Verfasst am:
08. Sep 2008, 13:51
Rufname:

AW: CommandButtons löschen - AW: CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Hmm jetzt bin ich überfordert ^^ ... Also der Reihe nach:

Zitat:
Wir reden doch von Word und von Buttons aus der Steuerelement-Toolbox auf der Wordoberfläche?


Ja.

Zitat:
Hast Du die kleine Prozedur oben ins Modul ThisDocument kopiert und dann ausgeführt?


Ja habe ich und dann kam die besagte Fehelermeldung.

Zitat:
Bist Du mal im Einzelschritt durchgegangen und hast


Nein bisher nicht ... Was bringt das genau?

Zitat:
Wird denn wenigstens der erste der Buttons gefunden?


Nein, da es ja einen "Kompilier"/Laufzeitfehler gibt.

Zitat:
Sind die Buttons als Inlineshape eingefügt (das ist default so)?


Wenn das ein default Wert ist, ist das bei mir auch so Wink

Zitat:
Markier mal einen solchen Button (anklicken) im Entwurfsmodus. Sind die Anfasser kleine Punkte (Shape) oder kleine Quadrate (Inlineshape)?


Bei mir sind es kleine Quadrate -> Inlineshape

Hoffe es hilft das Problem besser zu verstehen!
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
08. Sep 2008, 14:35
Rufname:
Wohnort: Leipzig

AW: CommandButtons löschen - AW: CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Hallo Gast,

Kompilierfehler könnte eigentlich nur auftreten, wenn Du den Text nicht kopiert, sondern abgeschrieben hast. Ist vielleicht ein Schreibfehler drin?

Im Einzelschritt durchlaufen bringt immerhin, dass wir sehen, wo der Fehler sitzt. Also bitte setz mal im VBA-Editor den Cursor in die 1. Zeile der Prozedur:
Code:
Sub CBLoeschen()

und gehe dann mit F8 im Einzelschritt durch die Prozedur. In welcher Zeile tritt der Fehler auf? Wie lautet die Fehlermeldung genau?

Gruß
Lisa
nobodyxXx
Gast


Verfasst am:
08. Sep 2008, 15:17
Rufname:

AW: CommandButtons löschen - AW: CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Hmmm ... Also der Fehler tritt anscheinend nur manchmal auf (was erstmal bedenklich ist ^^)

Wenn er kommt steht da:

Laufzeitfehler '91'
Objektvaribale oder With-Blockvariable nicht festgelegt

Im Code markiert er manchmal folgende Zeile gelb:

Code:
If CB.OLEFormat.ClassType = "Forms.CommandButton.1" Then
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
08. Sep 2008, 15:51
Rufname:
Wohnort: Leipzig

AW: CommandButtons löschen - AW: CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Hallo Gast,

aha, jetzt hab ich es gesehen. Es gibt noch andere InlineShapes. Probier mal so:
Code:
Sub CBLoeschen()

    Dim CB As InlineShape

    For Each CB In ActiveDocument.InlineShapes
        If CB.Type = wdInlineShapeOLEControlObject Then
            If CB.OLEFormat.ClassType = "Forms.CommandButton.1" Then
                CB.Delete
            End If
        End If
    Next CB
   
End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
nobodyxXx
Gast


Verfasst am:
09. Sep 2008, 08:25
Rufname:


AW: CommandButtons löschen - AW: CommandButtons löschen

Nach oben
       Version: Office XP (2002)

Jaaaaaaa Idea... Super, klappt jetzt prima! Ich verstehe zwar noch nicht was du verändert hast, aber das ist ja nebensächlich Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Formate: Wie in WORD alle leeren Zeilen in einem Rutsch löschen? 4 Merkur 5150 07. Nov 2013, 22:11
G.O.Tuhls Wie in WORD alle leeren Zeilen in einem Rutsch löschen?
Keine neuen Beiträge Word Formate: Selbst definierte Zahlenformate löschen 0 Joe1984 98 18. Aug 2013, 12:58
Joe1984 Selbst definierte Zahlenformate löschen
Keine neuen Beiträge Word Formate: Komisches Sonderzeichen löschen 2 MarionEbnat 617 09. Apr 2012, 17:29
MarionEbnat Komisches Sonderzeichen löschen
Keine neuen Beiträge Word Serienbriefe: Excelwert in Worddokument einfügen -> Verknüpfung löschen 3 KayScarp86 1276 16. Feb 2012, 06:29
KayScarp86 Excelwert in Worddokument einfügen -> Verknüpfung löschen
Keine neuen Beiträge Word Serienbriefe: Leerzeilen im Adressfeld löschen 3 Eddi54 3255 22. Feb 2011, 13:04
charlybrown Leerzeilen im Adressfeld löschen
Keine neuen Beiträge Word Formate: Seite innerhalb des Dokuments löschen 3 sinachen91 391 07. Dez 2010, 14:37
G.O.Tuhls Seite innerhalb des Dokuments löschen
Keine neuen Beiträge Word Formate: Absatzmarken löschen für markierte Bereiche 3 truecolor 1711 13. Sep 2009, 12:03
CaBe Absatzmarken löschen für markierte Bereiche
Keine neuen Beiträge Word Formate: Literaturverweis aus Abbildungsverzeichnis löschen 10 dimmu2k 4244 09. Apr 2009, 16:22
vicu17 Literaturverweis aus Abbildungsverzeichnis löschen
Keine neuen Beiträge Word Formate: Kopfzeilen auf manchen Seiten löschen 3 Gast 13812 15. Okt 2008, 19:34
Gast Kopfzeilen auf manchen Seiten löschen
Keine neuen Beiträge Word Formate: Löschen von Absatzmarken wirken unterschiedlich (Word 2002) 0 jogi-ogi 612 14. Feb 2008, 10:55
jogi-ogi Löschen von Absatzmarken wirken unterschiedlich (Word 2002)
Keine neuen Beiträge Word Formate: Kopfzeilen löschen bzw. Rahmen ändern 1 jnoel 1926 15. Nov 2007, 17:31
Hübi Kopfzeilen löschen bzw. Rahmen ändern
Keine neuen Beiträge Word Formate: Wasserzeichen auf Deckblatt löschen Word 2007 1 SuperG 3148 03. Okt 2007, 08:05
Gast Wasserzeichen auf Deckblatt löschen Word 2007
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln