PC Welt 1999 September/PCW0999.ISO/sharewar/prx/tipdaten/MkButton.exe/MkButton.bas

BASIC Source File | 1999-07-09 | 1.5 KB | 69 lines

Sub MakeButton(Optional Parameter As String)
AnzahlFenster = Application.Windows.Count
Set BL = CommandBars("FensterListe")
BL.Visible = True
Anzahl = BL.Controls.Count
If Parameter = "close" Then
AktFenster = Application.ActiveWindow.Caption
End If
For i = 1 To Anzahl
CommandBars("FensterListe").Controls(1).Delete
Next i
If Parameter = "Exec" Then Exit Sub
For i = 1 To AnzahlFenster
    fName = Application.Windows.Item(i)
    If Not (Parameter = "close" And fName = AktFenster) Then
     Set v = BL.Controls.Add(Type:=msoControlButton, Temporary:=True)
     With v
         .Caption = fName
         .Style = msoButtonCaption
         .OnAction = "ShowWindow"
     End With
    End If
Next i
End Sub


Sub ShowWindow()
Set MyMenu = CommandBars("FensterListe")
Caption = CommandBars.ActionControl.Caption
Documents(Caption).Activate
End Sub


Sub Autoopen()
MakeButton
End Sub


Sub Autonew()
MakeButton
End Sub


Sub Autoclose()
MakeButton ("close")
End Sub


Sub Autoexec()
MakeButton ("Exec")
End Sub

Sub FileSaveAs()
'
' DateiSpeichernUnter Makro
' Speichert eine Kopie des Dokuments in eine andere Datei
' und ruft danach MakeButton auf, damit die Symbolleiste
' aktualisiert wird
' Verwenden Sie dieses Makro zusΣtzlich zu den im Text
' beschriebenen, damit die Symbolleiste den richten
' Dokumentnamen anzeigt, wenn Sie "Speichern unter"
' verwenden

 Dialogs(wdDialogFileSaveAs).Show
 MakeButton
 Rem ActiveDocument.SaveAs

End Sub