Einstellungen für ein Dokument ändern

Computer: Software & Programmierung Visual Basic
1

Hallo allerseits!
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

2

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