Sub SetFontAttributes(strFont As String, intSize As Integer, intBold As Integer, intItalic As Integer, intUnderline As Integer)
With objWord.Selection.Font
.Name = Cstr(strFont) 'Schriftart
.Size = intSize 'Schriftgröße
.Bold = intBold 'Fett
.Italic = intItalic 'Kursiv
.Underline = intUnderline 'Unterstreichen
End With
End Sub