Hallo allerseits!
Hi,
Dim set1 as Boolean
Dim set2 as Boolean
Dim set3 as Boolean
Dim set4 as Boolean
Dim set5 as Boolean
Dim set6 as Boolean
Dim set7 as Boolean
Private Sub Document\_Close()
set1 = ActiveWindow.View.ShowFieldCodes
set2 = ActiveWindow.View.ShowTabs
set3 = ActiveWindow.View.ShowSpaces
set4 = ActiveWindow.View.ShowParagraphs
set5 = ActiveWindow.View.ShowHyphens
set6 = ActiveWindow.View.ShowHiddenText
set7 = ActiveWindow.View.ShowAll
End Sub
Private Sub Document\_Open()
ActiveWindow.View.ShowFieldCodes = set1
ActiveWindow.View.ShowTabs = set2
ActiveWindow.View.ShowSpaces = set3
ActiveWindow.View.ShowParagraphs = set4
ActiveWindow.View.ShowHyphens = set5
ActiveWindow.View.ShowHiddenText = set6
ActiveWindow.View.ShowAll = set7
End Sub
Gruß.Timo
.ShowFieldCodes = True
.ShowTabs = True
.ShowSpaces = True
.ShowParagraphs = True
.ShowHyphens = True
.ShowHiddenText = True
.ShowAll = True
Bei der Bereitstellung eines Word-Dokuments möchte ich gerne
die Einstellungen bezüglich der Ansicht mittels eines
AutoOpen-Makros auslesen.
Beispiel:
…
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayLeftScrollBar = False
.StyleAreaWidth = CentimetersToPoints(0)
.DisplayVerticalRuler = True
.DisplayRightRuler = False
.DisplayScreenTips = True
With .View
.ShowAnimation = True
.Draft = False
.WrapToWindow = False
.ShowPicturePlaceHolders = False
.ShowFieldCodes = False
.ShowBookmarks = False
…
Dann sollen aus der Ansicht im Dokument die „Feldfunktionen“
und die „Formatierungszeichen“ genommen werden.
Mit dem Schießen des Dokuments sollen die alten Einstellungen
wieder hergestellt werden.
Wie bekomme ich das hin?
Vielen lieben Dank im Voraus!
Peter
