CommandBars in Word 2007

20/01/2008 - 09:43 von Henning von Bonin | Report spam
Hallo NG Word.vba,

Was geschieht eigentlich mit Makros in Word 2007, die CommandBars steuern?
Z.B. mit so einem:

***********************************schnipp********************************************
Private Sub Document_Open()
Dim i As Integer

For i = 1 To CommandBars.Count
If CommandBars(i).Protection = msoBarNoProtection Then
If CommandBars(i).NameLocal <> "Standard" And
CommandBars(i).NameLocal <> "Format" Then
CommandBars(i).Visible = False
Else
CommandBars(i).Visible = True
End If
End If
Next

With ActiveDocument.ActiveWindow.View
.Type = wdNormalView
.Zoom.PageFit = wdPageFitFullPage
End With

End Sub
***********************************schnapp********************************************

Wenn Word07 keine CommandBars hat, werden diese Anweisungen dann schlicht
ignoriert oder muss man damit rechnen, dass der User mit làstigen
Fehlermeldungen abgenervt wird?

Vielen herzlichen Dank

Henning von Bonin
 

Lesen sie die antworten

#1 Helmut Weber
21/01/2008 - 16:33 | Warnen spam
Hallo Henning,

betrifft Word 2007 (US),
leider konnte ich Deinen Code nicht ausprobieren.
Abtippen war mir zu mühselig, und der Rechner mit
Vista Ultimate und Office 2007 darf nicht ins Firmennetz.

Die Commandbars sind noch da,
Application.Commandbars.count liefert 177.
das sind 35 mehr als in Word 2003 (US)!

Bei Enabled, visible, tat sich einfach gar nichts.
Name wird brav angezeigt (Msgbox commandbars(2).name)
Auch Protection.

Aber erst mal noch eine weitere Meinung abwarten.

HTH


Gruß

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Ähnliche fragen