![]() |
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.
|
|
|
|
Sub FileOpen()
Dim strPath As String
strPath = ThisDocument.Path
ChangeFileOpenDirectory strPath
With Dialogs(wdDialogFileOpen)
.Name = "*.*"
.Show
End With
End Sub
|
|
|
|
|
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
|
|
|
|
|
Sub FileSave()
Dim strPath As String
strPath = ThisDocument.Path
ChangeFileOpenDirectory strPath
With Dialogs(wdDialogFileSaveAs)
.Name = "Text"
.Format = wdFormatRTF
.Display
End With
End Sub
|
|
|
|
|
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
|
|
|
|
|
|
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: [ 1080 ]
|
|
|