Excel

Fehlermeldung beim Starten "Kompilierungs-Fehler in verborgenem Modul: AutoExecNew" und/oder beim Beenden "Kompilieruns-Fehler in verborgenem Modul: DistMon"

Abhilfe -> AdobePDFMaker AddIn löschen (PDFMaker.xl) zu finden unter

c:\Dokumente und Einstellungen\%username%\Anwendungsdaten\Microsoft\Excel\XLStart\PDFMaker.xla

Latex, Grunddokument - A4

\documentstyle[german]{article}
\pagestyle{empty}
\begin{document}

\title{Der Titel}

\section{Erster Titel}
\subsection{Untertitel1}
\subsection{Untertitel2}
\subsubsection{Weiterer Untertitel}

bla bla bla

\end{document}

Outlook - Kalendereinträge (Geburtstag) "Weckruf" ausschalten

Sub GeburtstagJahrestagImport()
Dim myNameSpace As NameSpace

MsgBox "Diese Routine wird alle Geburtstage und Jahrestage erneut anlegen und vorher alle alten löschen. Bitte wählen Sie im folgenden den Ordner aus, der Ihre Kontaktdaten beinhaltet.", vbInformation, "Geburtstage Import"

Set myOlApp = New Outlook.Application
Set myNameSpace = myOlApp.GetNamespace("MAPI")

Call DeleteAllBirthdayAnniversary(myNameSpace)

Set myFolder = Session.PickFolder
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)

For i = myFolder.Items.Count To 1 Step -1
myFolder.Items(i).Display
mybirthday = myFolder.Items(i).Birthday
If mybirthday <> "1/1/4501" Then
myFolder.Items(i).Birthday = "1/1/4501 "
myFolder.Items(i).Save
myFolder.Items(i).Birthday = mybirthday
myFolder.Items(i).Save
End If
myAnniversary = myFolder.Items(i).Anniversary
If myAnniversary <> "1/1/4501" Then
myFolder.Items(i).Anniversary = "1/1/4501 "
myFolder.Items(i).Save
myFolder.Items(i).Anniversary = myAnniversary
myFolder.Items(i).Save
End If
myFolder.Items(i).Close 0
Next i

Call ResetAllBirthdayAnniversary(myNameSpace)

MsgBox "Fertig!" & vbCrLf & myFolder.Items.Count & " Kontakte bearbeitet.", vbInformation, "Geburtstag / Jahrestag Import"
End Sub

Sub DeleteAllBirthdayAnniversary(myNameSpace As NameSpace)
Set myFolder = myNameSpace.GetDefaultFolder(olFolderCalendar)
Set myItems = myFolder.Items
For i = myFolder.Items.Count To 1 Step -1
If InStr(myItems(i).Subject, "Geburtstag") > 0 Or InStr(myItems(i).Subject, "Jahrestag") > 0 Then
myItems(i).Delete
End If
Next
End Sub

Sub ResetAllBirthdayAnniversary(myNameSpace As NameSpace)
Set myFolder = myNameSpace.GetDefaultFolder(olFolderCalendar)
Set myItems = myFolder.Items
For i = myFolder.Items.Count To 1 Step -1
If InStr(myItems(i).Subject, "Geburtstag") > 0 Or InStr(myItems(i).Subject, "Jahrestag") > 0 Then
myItems(i).ReminderMinutesBeforeStart = 360

myItems(i).Save
End If
Next
End Sub