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
|