Bestimmten Feldtyp in allen Bereichen aktualisieren Off 2003

25/02/2008 - 09:49 von Doris Setz | Report spam
Hallo NG,

habe folgendes Makro gefunden, welches alle Felder in allen Dokumentteilen
aktualisiert:

Sub FelderInAllenDokumentteilenAktualisieren()
Dim oStory As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
For Each oStory In ActiveDocument.StoryRanges
oStory.Fields.Update
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
Next
Application.DisplayAlerts = wdAlertsAll
Application.ScreenUpdating = True
End Sub


Soweit funktioniert das auch allerding benötige ich jetzt die Möglichkeit,
nur Felder vom Typ wdautotext zu aktualisieren.

Kann mir bitte jemand helfen. Kriege es einfach nicht raus, wie man einen
bestimmten Feldtyp definiert.

Vielen Dank
Gruß Doris
 

Lesen sie die antworten

#1 Thomas Gahler
25/02/2008 - 10:57 | Warnen spam
Hallo Doris



Soweit funktioniert das auch allerding benötige ich jetzt die Möglichkeit,
nur Felder vom Typ wdautotext zu aktualisieren.

Kann mir bitte jemand helfen. Kriege es einfach nicht raus, wie man einen
bestimmten Feldtyp definiert.


Ist angepasst (ungetestet)



Sub FelderInAllenDokumentteilenAktualisieren()
Dim oStory As Word.Range
Dim oField As Word.Field

Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
For Each oStory In ActiveDocument.StoryRanges
For Each oField In oStory.Fields
If oField.Type = wdautotext Then
oField.Update
End If
Next oField
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
For Each oField In oStory.Fields
If oField.Type = wdautotext Then
oField.Update
End If
Next oField
Wend
Next
Application.DisplayAlerts = wdAlertsAll
Application.ScreenUpdating = True
End Sub


Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen