Word Tools

VBA Code für Word

Word lässt sich mittels VBA optimieen. Wiederkehrende Aufgaben oder Handgriffe können optimiert und automatisiert werden. Einige dieser Tools und Funktionen haben wir zur Verfügung gestellt.

Alle zur Verfügung gestellten Materialien sind nach bestem Wissen zusammengestellt worden, dennoch können wir für Fehler oder die Funktion keine Verantwortung übernehmen.

Dokument sichern

Das Programm sichert die aktuelle Word Datei in einem Unterverzeichnis. Die Sicherung wird mit einem Timestamp versehen. Das Makro ist in die normal.dot zu übernehmen und kann dann mittels Button in der Icon-Leiste verknüpft werden.

Mehr…

Sub Snapshot2Archive()
' Routine in Normal Dot speichern und via Toolbar verfügbar machen
On Error GoTo ErrorExit
Dim activePath As String
Dim activeName As String
Dim activeFile As String
Dim activeTarget As String
Dim activeArchiv As String
Dim categoryNo As String

' Sub-Verzeichnis zur Sicherung der Snapshots festlegen
activeArchiv = "archive"

activePath = ActiveDocument.Path
activeName = ActiveDocument.Name
activeFile = activePath & "\" & activeName
activeTarget = activePath & "\" & activeArchiv & "\" & Format(Date, "yyyymmdd") & "-" & Format(Time, "hhmmss") & "-" & activeName

ChDir (activePath & "\" & activeArchiv & "\")

ActiveDocument.SaveAs2 FileName:= _
activeTarget _
, FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, CompatibilityMode:=14

ActiveDocument.Close

Documents.Open FileName:= _
activeFile _
, ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""

categoryNo = Str(Val(ActiveDocument.BuiltInDocumentProperties(wdPropertyCategory).Value) + 1)
ActiveDocument.BuiltInDocumentProperties(wdPropertyCategory).Value = categoryNo & " version sequence"
ActiveDocument.Save

MsgBox "Document snapshot was stored into sub-folder " & activeArchiv & "!", vbInformation, ActiveDocument.BuiltInDocumentProperties(wdPropertyCategory).Value

Exit Sub
ErrorExit:
If Err = 76 Then
MkDir (activePath & "\" & activeArchiv & "\")
Resume Next
Else
MsgBox Error(Err), vbInformation, "Fehlermeldung (" & LTrim(Str(Err)) & ")"
Resume Next
End If
End Sub

Formular anlegen

Die Textverarbeitung eignet sich auch gut um Formulare zu erstellen. Diese können benutzerfreundlich generiert werden, mit und ohne Unterstützung von Makros.

Mehr…

Verüfgbare Befehle drucken

Dieses Makro erstellt ein neues Dokument mit einer vierspaltig formatierten Tabelle. In der ersten Spalte der Tabelle erscheint der Befehlsname, in der zweiten und dritten die entsprechende Tastenkombination und in der vierten ein Hinweis auf das Menü, in dem der Befehl zu finden ist. Das Dokument wird auf dem Drucker ausgegeben, so daß Sie ein rund 20 bis 25 Seiten starkes Nachschlagewerk erhalten. Das dazugehörende Dokument wird nach dem Ausdruck wieder entfernt.

Mehr…

Public Sub WordBefehleDrucken()

Dim i%, Befehle%

Application.ListCommands ListAllCommands:=True

Befehle = ActiveDocument.Tables(1).Rows.Count

With ActiveDocument.Tables(1).Rows(1).Shading

.Texture = wdTexture20Percent

.ForegroundPatternColorIndex = wdBlack

.BackgroundPatternColorIndex = wdAuto

End With

With Selection

.SplitTable

.InsertBreak Type:=wdPageBreak

.HomeKey Unit:=wdStory

.TypeText text:=“Übersicht über alle Word97 - Befehle ( " & Str(Befehle) & " )"

.HomeKey Unit:=wdStory

.MoveRight Unit:=wdSentence, Extend:=wdExtend

.ParagraphFormat.Alignment = wdAlignParagraphCenter

With .Font

.Underline = wdUnderlineSingle

.Italic = wdToggle

.Bold = wdToggle

.Size = 20

End With

.HomeKey Unit:=wdStory

For i = 1 To 10

.TypeParagraph

Next

End With

With ActiveDocument

.PrintOut

.Close SaveChanges:=wdDoNotSaveChanges

End With

End Sub