Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Textfelder per Makro löschen?
zurück: Word 2003, Hilfe bei Zahlenformat in Formularfeld und Makro weiter: W2003 stichwörter farbig markieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
babylon05
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Mai 2009, 14:45
Rufname:

Textfelder per Makro löschen? - Textfelder per Makro löschen?

Nach oben
       Version: Office 2003

Hallo,

wollte mal fragen, ob jemand ein Makro script hier auflisten kann, wie ich Textfelder löschen kann.
Nach einer kovertieren einer pdf ins Word hat er mir die Überschriften immer noch mal als Textfeld drüber gelegt. Da mein Dokument sehr lang ist und ich die Rahmen immer per Hand löschen muss, so das der Text drunter immer ordentlich da ist.

Danke
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
14. Mai 2009, 17:33
Rufname:
Wohnort: Leipzig


AW: Textfelder per Makro löschen? - AW: Textfelder per Makro löschen?

Nach oben
       Version: Office 2003

Hallo babylon5,

sind es Textfelder oder Positionsrahmen? Willst Du den Rahmen inklusive Inhalt löschen oder bloß den Inhalt in normalen Text umwandeln?

Gruß
Lisa
babylon05
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Mai 2009, 06:03
Rufname:

AW: Textfelder per Makro löschen? - AW: Textfelder per Makro löschen?

Nach oben
       Version: Office 2003

Es sind Textfelder, wenn ich auf die bißchen klicke abseits, erscheind ein Rahmen.
dann muss ich auf den Rahmen klicken und entf. drücken damit das Textfeld gelöscht werden kann.

Es gibt hier im Forum schon sowas wie Textfeld umwandel, so das nur die Schrift bleibt, das ist aber nicht das richtige was ich brauche, ich will sie ja löschen komplett.

mfg
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
15. Mai 2009, 10:55
Rufname:
Wohnort: Leipzig

AW: Textfelder per Makro löschen? - AW: Textfelder per Makro löschen?

Nach oben
       Version: Office 2003

Hallo babylon05,

okay, versuchen wir es zuerst mit Positionsrahmen. Probier mal bitte in einer Kopie der Datei dieses Makro:
Code:
Sub AllePosRahmenEntfernen()

    Dim fra As Word.Frame
   
    If ActiveDocument.Frames.Count = 0 Then
        MsgBox "Das Dokument enthält keine Positionsrahmen."
        Exit Sub
    End If
   
    For Each fra In ActiveDocument.Frames
        fra.Delete
    Next fra

End Sub

Entweder sind danach die Positionsrahmen alle entfernt, oder es gibt eine Meldung aus, dass das Dokument keine enthält. Ich bin gespannt ;)

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

Guter Rat ist teuer!
babylon05
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Mai 2009, 11:22
Rufname:

AW: Textfelder per Makro löschen? - AW: Textfelder per Makro löschen?

Nach oben
       Version: Office 2003

Es kommt eine Hinweis,

Das Dokument enthält keine Positionsrahmen
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
15. Mai 2009, 11:46
Rufname:
Wohnort: Leipzig

AW: Textfelder per Makro löschen? - AW: Textfelder per Makro löschen?

Nach oben
       Version: Office 2003

Hallo Babylon05,

aha, sehr ungewöhnlich. Dann probier mal die Textfelder damit:
Code:
Sub AlleTextfelderEntfernen()

    Dim shp As Word.Shape
    Dim i As Long
   
    i = 0
    If ActiveDocument.Shapes.Count = 0 Then
        MsgBox "Das Dokument enthält im Hauptteil keine Textfelder."
    Else
        For Each shp In ActiveDocument.Shapes
            If shp.Type = msoTextBox Then
                shp.Delete
                i = i + 1
            End If
        Next shp
    End If
    MsgBox "Es wurden " & i & " Textfelder im Hauptteil gelöscht." & _
        vbCrLf & "Die Kopf- und Fußzeilen werden noch gecheckt."
   
    i = 0
    If ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.Count = 0 Then
        MsgBox "Das Dokument enthält keine Textfelder in den Kopfzeilen."
    Else
        For Each shp In ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
            If shp.Type = msoTextBox Then
                shp.Delete
                i = i + 1
            End If
        Next shp
    End If
    MsgBox "Es wurden " & i & " Textfelder in den Kopfzeilen gelöscht."
       
End Sub

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

Guter Rat ist teuer!
babylon05
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Mai 2009, 12:22
Rufname:

AW: Textfelder per Makro löschen? - AW: Textfelder per Makro löschen?

Nach oben
       Version: Office 2003

Also dieses Makro hat mir jetzt alle Formatieren zerpflügt.

mfg
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
15. Mai 2009, 13:28
Rufname:
Wohnort: Leipzig


AW: Textfelder per Makro löschen? - AW: Textfelder per Makro löschen?

Nach oben
       Version: Office 2003

Hallo babylon05,

tja, ich denke, da kann man mit VBA nichts machen. Vermutlich gibt es auch noch erhaltenswerte Textfelder, die nicht gelöscht werden sollen, und die das Makro natürlich löscht, weil es einfach alle Textfelder löscht. VBA kann ja nicht unterscheiden, welche Textfelder Du behalten willst und welche nicht.

Da wird Dir nichts übrig bleiben, als die Datei doch "von Hand" zu bearbeiten.

Gruß
Lisa
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 Serienbriefe: Leere Seriendruckfelder bzw. Leerzeilen löschen 4 Mingi 7258 19. Feb 2014, 17:55
Flipper7 Leere Seriendruckfelder bzw. Leerzeilen löschen
Keine neuen Beiträge Word Serienbriefe: Verknüpfungen löschen; beim Öffnen wir SQL Befehl ausgeführt 2 Mäxwell 258 24. Jan 2014, 18:29
Gast Verknüpfungen löschen; beim Öffnen wir SQL Befehl ausgeführt
Keine neuen Beiträge Word Serienbriefe: Problem mit INCLUDEPICTURE => wie leere Bilder löschen? 1 Heka 191 24. Sep 2013, 19:08
MarkMH_K Problem mit INCLUDEPICTURE => wie leere Bilder löschen?
Keine neuen Beiträge Word Serienbriefe: Serienbriefe/Platzrahmenhalter/Textbausteine/Textfelder etc. 0 Flyingoeschi 1133 19. Jul 2011, 13:40
Flyingoeschi Serienbriefe/Platzrahmenhalter/Textbausteine/Textfelder etc.
Keine neuen Beiträge Word Serienbriefe: Excel-Tabelle per Serienbrief dynamisch in Word 0 Panix 1220 05. Jul 2011, 12:55
Panix Excel-Tabelle per Serienbrief dynamisch in Word
Keine neuen Beiträge Word Serienbriefe: Seriendruck per Mail (als Anlage) - funktioniert nicht 6 Gast 4502 22. Dez 2010, 09:32
Gast Seriendruck per Mail (als Anlage) - funktioniert nicht
Keine neuen Beiträge Word Serienbriefe: Textfelder automatisch ergenzen 0 Teck 1315 19. Dez 2010, 11:22
Teck Textfelder automatisch ergenzen
Keine neuen Beiträge Word Serienbriefe: Serienbrief als einzelne PDFs per e-Mail versenden? 1 marlis 3049 09. Aug 2010, 13:41
Lord_Movie Serienbrief als einzelne PDFs per e-Mail versenden?
Keine neuen Beiträge Word Serienbriefe: Word-Serienbrief in PDF umwandeln und Versand per Outlook 4 MarcelK 17652 20. Apr 2010, 11:38
Gast Word-Serienbrief in PDF umwandeln und Versand per Outlook
Keine neuen Beiträge Word Serienbriefe: Problem Makro ->Serienbrief -> gesperrte Felder gefund 1 rkstone1 4179 19. Jan 2010, 10:39
fabu Problem Makro ->Serienbrief -> gesperrte Felder gefund
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Word Serienbriefe: Access Formulardaten per Button an Word Bookmarks übergeben 5 Mike Access Neuling 3469 31. Jul 2009, 14:44
Ina Access Formulardaten per Button an Word Bookmarks übergeben
Keine neuen Beiträge Word Serienbriefe: .mdb per e-mail 2 schokomo 999 17. Apr 2009, 09:20
Gast .mdb per e-mail
 

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