- #1
L
l-e-x-l
Guest
hallo,
ich habe ein kleines makro erstellt - das, wenn es ausgeführt wird, in die kopf + fußzeile eines word documents wechselt, dort alles markiert, die feldverknüpfungen löscht und wieder zur seitenlayout ansicht wechselt.
jetzt habe ich nur das problem, wenn ich schon in der kopf, und fußzeile drin bin, macht das makro nicht das was es soll. (es macht garnix, es kommt noch nicht mal ne fehlermeldung)
weiß hier vielleicht jemand rat?
---------------------------------------------------------------------
hier das makro:
---------------------------------------------------------------------
Sub Test()
' Wechseln der Dokumenten Anzeige zur Kopf+Fusszeile Anzeige
With ActiveDocument.ActiveWindow.ActivePane.View
.Type = wdPrintView
.SeekView = wdSeekCurrentPageHeader
End With
' Wechseln in Kopf oder Fußzeile
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
' Alles selektrieren +
' Feldverknüpfungen in Auswahl aufheben
Selection.WholeStory
Selection.Fields.Unlink
' Wechseln in Kopf oder Fußzeile
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
' Alles selektrieren +
' Feldverknüpfungen in Auswahl aufheben
Selection.WholeStory
Selection.Fields.Unlink
' Wechselt ins Dokument zurück
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
ich habe ein kleines makro erstellt - das, wenn es ausgeführt wird, in die kopf + fußzeile eines word documents wechselt, dort alles markiert, die feldverknüpfungen löscht und wieder zur seitenlayout ansicht wechselt.
jetzt habe ich nur das problem, wenn ich schon in der kopf, und fußzeile drin bin, macht das makro nicht das was es soll. (es macht garnix, es kommt noch nicht mal ne fehlermeldung)
weiß hier vielleicht jemand rat?
---------------------------------------------------------------------
hier das makro:
---------------------------------------------------------------------
Sub Test()
' Wechseln der Dokumenten Anzeige zur Kopf+Fusszeile Anzeige
With ActiveDocument.ActiveWindow.ActivePane.View
.Type = wdPrintView
.SeekView = wdSeekCurrentPageHeader
End With
' Wechseln in Kopf oder Fußzeile
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
' Alles selektrieren +
' Feldverknüpfungen in Auswahl aufheben
Selection.WholeStory
Selection.Fields.Unlink
' Wechseln in Kopf oder Fußzeile
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
' Alles selektrieren +
' Feldverknüpfungen in Auswahl aufheben
Selection.WholeStory
Selection.Fields.Unlink
' Wechselt ins Dokument zurück
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub