Luk alle værkstøjslinier ved opstart ???

Jeg har denne lange kode. Det den skal er, at lukke alle værktøjslinier i Word 97. Men koden går galt ved \"Toolbars(t).visible\" nederst i koden. Hvad skal der til for at få det til at rulle???

------O-------

Private Sub Document_Open()

Dim ToolTexts As Variant, ToolActions As Variant, værktøjslinie As Variant
Dim værktøjslinie_tændt(15) As Boolean
Dim SkabelonFilnavn As String, sti As String

  Dim arknr As Byte, i As Byte, tæller As Byte, _
      t As Variant, TB as Toolbars


\' Formel-, status- og menulinie usynliggøres.
  \'Application.DisplayFormulaBar = False
  \'Application.DisplayStatusBar = False
  \'Application.CommandBars(1).Enabled = False

  værktøjslinie = Array( _
    \"Standard\", _
    \"Database\", _
    \"Formatting\", _
    \"Picture\", _
    \"Diagram\", _
    \"Eksterne data\", _
    \"Forms\", _
    \"Control Toolbox\", _
    \"Korrektur\", _
    \"Pivottabel\", _
    \"Drawing\", _
    \"Visual Basic\", _
    \"AutoText\", _
    \"Web\", _
    \"WordArt\", _
    \"Reviewing\", _
    \"Tables and Borders\", _
    \"ATP FAX FORSIDE\")

  \' Synlige værktøjslinier ved Word start gemmes i array-variablen værktøjslinie_tændt,
  \' så værktøjslinierne kan genaktiveres ved lukning af tidsregistrering. Så fjernes
  \' alle andre værktøjslinier end tidsregistrering.

  i = 1
  For Each t In værktøjslinie
    værktøjslinie_tændt(i) = Toolbars(t).Visible
    \' If-sætning - så kun synlige værktøjslinier blev tildelt værdien falsk - rundt om
    \' nedenstående vil udgøre for lille en optimering i forhold til læsbarhed.
    Toolbars(t).Visible = False
    i = i + 1
  Next t
End Sub