Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Verknüpfungen per VBA löschen
Gehe zu Seite Zurück  1, 2
zurück: Literaturverzeichnis in Word bis 2003 weiter: Text von Excel ins Word übernehmen 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
CHF
Word-VBA Professional


Verfasst am:
20. Mai 2009, 10:08
Rufname:

AW: Verknüpfungen per VBA löschen - AW: Verknüpfungen per VBA löschen

Nach oben
       Version: Office 2003

Hi

das liegt IMO daran, dass auf der 2. Seite ein ordentlicher Header existiert,a ber auf der 1. Seite ein PSeudo-Header (Test Firma).
Und somit greift Lisas PrimaryHeaderStory nicht. (wer auch immer sich diese Konstrukt mit Pseudo-Header und Positionsrahmen ausgedacht hat...)

folgendes funktioniert hier:
Code:
Sub AlleFelderLoesen()

    Dim sty As Word.Range
    Dim shp As Word.Shape
    Dim rngshp As Word.Range
   
    For Each sty In ActiveDocument.StoryRanges
        'If sty.StoryType = wdPrimaryHeaderStory Then <------------------
            For Each shp In ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
                If shp.TextFrame.HasText Then
                    Set rngshp = shp.TextFrame.TextRange
'                    rngshp.Fields.Unlink
                    Call FelderLoesen(rngshp)
                End If
            Next shp
        'End If
'        sty.Fields.Unlink
        Call FelderLoesen(sty)
        Do While Not (sty.NextStoryRange Is Nothing)
            Set sty = sty.NextStoryRange
'            sty.Fields.Unlink
            Call FelderLoesen(sty)
        Loop
    Next sty

End Sub

_________________
Gruß

CHF

Bitte keine Anfragen per PN!
Fragen gehören ins Forum!
>
Quo
Excelprofi, VBA gut


Verfasst am:
21. Mai 2009, 10:14
Rufname:


AW: Verknüpfungen per VBA löschen - AW: Verknüpfungen per VBA löschen

Nach oben
       Version: Office 2003

Hallo CHF,

das ist tatsächlich des Rätsels Lösung Very Happy Dein Makro löst ALLE Verknüpfungen - auch im 409Test.doc. Ich bin schwer beeindruckt Exclamation

Nochmals vielen Dank an euch beide für die tolle Unterstützung.

Quo
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2
Diese Seite Freunden empfehlen

Seite 2 von 2
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: Verknüpfungen in bearbeitbaren Text umwandeln 2 SerafinaBeja 934 25. Jan 2014, 13:02
J_Jay Verknüpfungen in bearbeitbaren Text umwandeln
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: Serienbrief per Outlook, Adressquelle Excel 6 mohi 22869 20. Feb 2013, 15:26
Pseudo_Gast Serienbrief per Outlook, Adressquelle Excel
Keine neuen Beiträge Word Serienbriefe: Word Dokument per Klick auf Button per mail versenden 3 lexi3112 2274 19. Dez 2012, 16:27
Alex3112 Word Dokument per Klick auf Button per mail versenden
Keine neuen Beiträge Word Serienbriefe: Einzelne Seiten aus Word per Email versenden 0 NicoRose 1156 09. Jan 2012, 16:08
NicoRose Einzelne Seiten aus Word per Email versenden
Keine neuen Beiträge Word Serienbriefe: Word Serienbrief als pdf per email verschicken 3 vitalik_1984 15548 15. Dez 2011, 21:54
mumpel Word Serienbrief als pdf per email verschicken
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: 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: Verknüpfungen von Wörtern - Kein Querverweis! 1 Sepp1234 718 19. Mai 2010, 12:40
mojos Verknüpfungen von Wörtern - Kein Querverweis!
Keine neuen Beiträge Word Serienbriefe: Neues Leerdokument mit Verknüpfungen in andere Dokumente 1 alex.krumnow 1203 01. Jul 2009, 23:27
charlybrown Neues Leerdokument mit Verknüpfungen in andere Dokumente
Keine neuen Beiträge Word Serienbriefe: Excel verknüpfungen weg 4 Sven D. 2044 26. Apr 2009, 18:16
Sven D. Excel verknüpfungen weg
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: Expression Web Forum