Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmte Verknüpfung Löschen
 03.11.2020 14:15:38 Bert
NotSolved
03.11.2020 18:20:29 Gast34459
NotSolved
05.11.2020 15:03:54 Gast91817
NotSolved

Ansicht des Beitrags:
Von:
Bert		 Datum:
03.11.2020 14:15:38		 Views:
1324		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte Verknüpfung Löschen

Hallo Ich habe folgendes Problem

Ich habe ien Word Dokument mit Verknüpfungen zu einem Excel Sheet

Ich möchte diese Verknüpfungen löschen mittels VBA im Word (aktualisiert werden sie noch im Excel VBA)

Fields.unlink löscht alle nicht in Kopfzeilen bzw Fußzeilen befindlichen Links

Jetzt habe ich folgendes Makro gefunden um auch die in der Kopfzeile zu Löschen

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
                End If
            Next shp
        End If
        sty.Fields.Unlink
'        Call FeldTyppruefen(sty)
        Do While Not (sty.NextStoryRange Is Nothing)
            Set sty = sty.NextStoryRange
            sty.Fields.Unlink
 '           Call FeldTyppruefen(sty)
        Loop
    Next sty

End Sub

Sub FeldTyppruefen(ByRef sty As Word.Range)

    Dim fld As Word.Field
   
    For Each fld In sty.Fields
        Select Case fld.Type
            Case wdFieldPage, wdFieldNumPage   
            Case Else
                fld.Unlink
        End Select
    Next fld

End Sub

 

Dies löscht allerdings auch meine Seitenzahlen Verknüpfung

Kann mir da jemand helfen das ich die seitenzahlen ausnehmen kann mit wdfieldPage und wdfieldNumpage funktionierts irgendwie nicht

Danke

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmte Verknüpfung Löschen
 03.11.2020 14:15:38 Bert
NotSolved
03.11.2020 18:20:29 Gast34459
NotSolved
05.11.2020 15:03:54 Gast91817
NotSolved