Tipp 0024 Word-Befehle ändern
Autor/Einsender:
Datum:
  Angie
28.01.2005 (Update)
Entwicklungsumgebung:   Word 97
Die meisten integrierten Word-Befehle können geändert werden, indem sie durch Makros ersetzt werden. Werden die Makros in der normal.dot oder einem AddIn (*.dot) (globale Vorlagen) abgespeichert, wird der entsprechende Befehl für alle in Word geöffneten Dokumente geändert, in einer Dokumentvorlage (*.dot) für alle Dokumente, die auf dieser Vorlage basieren und in einem Dokument (*.doc) nur für das Dokument selbst. Um den ursprünglichen Befehl wieder herzustellen, muss das Makro entweder umbenannt oder gelöscht werden.
In diesem Beispiel wurden die Word-Befehle Öffnen, Schließen, Speichern und Drucken im Menü Datei in ihrer Ausführung geändert. Wenn z. B. im Menü Datei der Befehl Öffnen ausgeführt wird, werden nicht mehr nur Word-Dokumente angezeigt, sondern alle Dateien des aktuellen Ordners.
Datei öffnen
 
Sub FileOpen()
  Dim strPath As String

  strPath = ThisDocument.Path
  ChangeFileOpenDirectory strPath

  With Dialogs(wdDialogFileOpen)
    .Name = "*.*"
    .Show
  End With
End Sub
 
Datei schließen
 
Sub FileClose()
  Dim nRetVal

  nRetVal = MsgBox("Oooooooch... Möchten Sie dieses " & _
      "Dokument wirklich schliessen ?", _
      vbYesNo + vbDefaultButton2 + vbQuestion)

  If nRetVal = vbYes Then ActiveDocument.Close
End Sub
 
Datei speichern
 
Sub FileSave()
  Dim strPath As String

  strPath = ThisDocument.Path
  ChangeFileOpenDirectory strPath

  With Dialogs(wdDialogFileSaveAs)
    .Name = "Text"
    .Format = wdFormatRTF
    .Display
  End With
End Sub
 
Datei drucken
 
Sub FilePrint()
  Dim nRetVal

  If Application.PrintPreview = False Then
    With ActiveDocument
      .PrintPreview
      .ActiveWindow.ActivePane.View.Zoom.Percentage = 75
    End With
  End If

  nRetVal = MsgBox("Möchten Sie dieses Dokument " & _
      "wirklich drucken ?", _
      vbYesNo + vbDefaultButton2 + vbQuestion)
  If nRetVal = vbYes Then ActiveDocument.PrintOut

  ActiveDocument.ClosePrintPreview
End Sub
 
Links zum Thema
Word-Dialog Speichern unter
Hinweis
Die im Download befindliche *.bas-Datei kann in Word im VB-Editor importiert werden.

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
Word-Version
95
97
2000
2002 (XP)
2003
2007
2010


Download  (1 kB) Downloads bisher: [ 999 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 29. Mai 2011