Hallo zusammen,
ich generiere ein Word-Dokument von Access aus. Das sieht so aus, dass ich eine Vorlage (.dot) per VBA in Word öffne und anschließend bearbeite. Text an Textmarken einzufügen stellt dabei kein Problem dar. Bis dahin läuft alles.
Nun will ich aber den gesuchten Text formatieren. Hier beispielsweise <fett>. Dazu durchsuche ich das Dokument und wende die Formatierung entsprechend an. Hier erst einmal der Code:
Das Schlimme ist, dass der Code, wenn man ihn in Word als Makro einfügt und ausführt funktioniert. Da ich aber sämtliche Daten aus der Access-Datenbank in das Dokument schreibe und mit verschiedenen Vorlagen arbeite, wäre es unsinnig jedem Dokument den Code anzuhängen. Also es muss von Access aus gehen. Wenn der Code jedoch in Access ausgeführt wird, bricht die Verarbeitung bei
ab und springt zur Fehlerbehandlung. Zeitweise ist Access sogar ohne Fehlerhinweise abgestürzt.
Könnt ihr mir sagen, wo mein Fehler liegt oder ob es einen Workaround gibt um solche Fehler zu beheben? Die Anwendung lief bereits unter Office 2003 und soll jetzt auf Office 2007 lauffähig gemacht werden.
Vielen Dank
ich generiere ein Word-Dokument von Access aus. Das sieht so aus, dass ich eine Vorlage (.dot) per VBA in Word öffne und anschließend bearbeite. Text an Textmarken einzufügen stellt dabei kein Problem dar. Bis dahin läuft alles.
Nun will ich aber den gesuchten Text formatieren. Hier beispielsweise <fett>. Dazu durchsuche ich das Dokument und wende die Formatierung entsprechend an. Hier erst einmal der Code:
Code:
Set wdApp = GetObject(, "Word.Application") Set TextPostanschrift = "Anschrift" Set myRange = wdApp.ActiveDocument.Content With myRange.Find .Replacement.Font.Bold = True .Text = TextPostanschrift .Replacement.Text = TextPostanschrift .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With myRange.Find.Execute Replace:=wdReplaceAll
Code:
.Replacemend.Font.Bold = True
Könnt ihr mir sagen, wo mein Fehler liegt oder ob es einen Workaround gibt um solche Fehler zu beheben? Die Anwendung lief bereits unter Office 2003 und soll jetzt auf Office 2007 lauffähig gemacht werden.
Vielen Dank
Comment