VBA Code für weitere Produkte

Office Programme lassen 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.

PowerPoint Dokument sichern

Das Programm sichert die aktuelle PowerPoint Datei in einem Unterverzeichnis. Die Sicherung wird mit einem Timestamp versehen. Das Makro ist in die PowerPoint Datei zu übernehmen. Die PowerPoint Datei muss als Makro Version gespeichert werden. Die Routine kann über eine aktive Schaltfläche oder im Menü-Band verankert werden.

Mehr… 
Sub Snapshot2Archive()
' Routine im Powerpointl-Dokument speichern und via Button oder über die
Toolbar verfügbar machen
' Markos müssen erlaubt sein, siehe Sicherheitseinstellung
' Die Powerpoint-Datei muss hierfür Makros unterstützen (*.PPTM)
On Error GoTo ErrorExit

Dim activePath As String
Dim activeName As String
Dim activeFile As String
Dim activeTarget As String
Dim activeTimeStamp As String
Dim activeArchiv As String

ActivePresentation.Save
' Sub-Verzeichnis zur Sicherung der Snapshots festlegen
activeArchiv = "_Archiv"
activeTimeStamp = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") &
"_"
activePath = ActivePresentation.Path
activeName = ActivePresentation.Name
activeFile = activePath & "\" & activeName
activeTarget = activePath & "\" & activeArchiv & "\" & activeTimeStamp &
activeName
ChDir (activePath & "\" & activeArchiv & "\")
ActivePresentation.SaveCopyAs activeTarget


'Presentation.Open FileName:=activeFile

MsgBox "Dokument wurde im Verzeichnis " & activeArchiv & " gesichert!",
vbInformation, "Snapshot"


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
Weniger…

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
Weniger…

Sonderzeichen entfernen

Funktion entfernt aus einem String nicht gewünschte Zeichen.

Mehr… 
Function CleanUpString(tmpText As String) As String 
Dim  CleanUpValues As String ' Sonderzeichen 
Dim i As Long 
CleanUpValues = "÷Öõä³ü¯ß_ÜÍÖ-Ä" 
For i = 1 To Len(CleanUpValues ) Step 2 
tmpText = Replace(tmpText , Mid(CleanUpValues , i, 1), Mid(CleanUpValues , i + 1, 1)) 
Next 
CleanUpString = tmpText 
End Function
Weniger…