Hallo

Ich hoffe Ihr könnt mir bei meinem Problem helfen

Ich habe ein Script dass mir Zeile für Zeile Text hinzufügen soll(Word), dazwischen sind hier und da mal einen Zeilenumbruch einzubauen

und auch mal rechtsbündig, andere Schriftart/größe.

gerade mit der Schriftart/größe habe ich Probleme da es mir das iw nicht übernimmt.

Die Daten bekomme ich aus Access

objWord.Visible = True
Set wrdDoc = objWord.Documents.Open(FileName:="C:\Temp\Test\LeeresArbeitszeugnis-W4.docx")

 objWord.Activate
objWord.Selection.Font.Name = "arial"                                                                                              'Formatierung des Textes
objWord.Selection.Font.Size = 10

        
objWord.ActiveDocument.Sections.First.Range.InsertBefore ("Arbeitszeugnis")                              'Text in erster Zeile
objWord.ActiveDocument.Content.InsertParagraphAfter                                                                 ' fügt einen Absatz ein
objWord.ActiveDocument.Sections.Last.Range.InsertAfter ("Thüringen, " & Date)                          ' Text in 3. Spalte, nach absatz
objWord.Selection.Paragraphs(1).Alignment = 2                                                                               'sollte Text in 3. Spalte rechtsbündig machen
objWord.ActiveDocument.Content.InsertParagraphAfter                                                                  ' fügt einen Absatz ein
objWord.ActiveDocument.Content.InsertParagraphAfter
objWord.ActiveDocument.Content.InsertParagraphAfter
objWord.ActiveDocument.Content.InsertParagraphAfter
objWord.ActiveDocument.Content.InsertParagraphAfter
objWord.ActiveDocument.Content.InsertParagraphAfter
objWord.ActiveDocument.Content.InsertParagraphAfter                                                                  ' fügt einen Absatz ein
objWord.ActiveDocument.Sections.First.Range.InsertAfter ("Nachname und Vorname")                'Text3
objWord.ActiveDocument.Content.InsertParagraphAfter                                                                  ' fügt einen Absatz ein
objWord.Selection.Font.Size = 16                                                                                                     'sollte nachfolgenden Text auf schriftgröße 16 schreibne
objWord.ActiveDocument.Sections.Last.Range.InsertAfter ("Thüringen, " & Date)                          'Text4 4

Ich währe euch sehr dankbar für eure Hilfe

gruß VaNdAnSr