Hallo Profis,
eine weitere Frage aus meiner Ecke:
Ich will Daten aus einer Access-DB in einem Word-Dokument ausgeben (muß Word sein, kann kein Bericht o.ä. sein)
Momentan mache ich es wie da unten beschrieben…
In Findliste befinden sich strings wie „>“ und in ReplaceListe der dazugehörige Wert, eben der Name aus der Datenbank.
Im Worddokument, welches ich als Vorlage benutze, sind an den betreffenden stellen eben zeichenfolgen wie >, > u.ä. eingefügt.
Das Problem tritt nun auf, wenn sich in dem Replace-String ein Zeilenumbruch befindet.
Dann bricht er mit einer Fehlermeldung ab…
Gibt es da nicht eine möglichkeit auch texte mit Zeilenumbruch einzutragen??
Thx im Voraus,
Tom
Set oApp = CreateObject("Word.Application")
Set wdoc = oApp.Documents.Add(template:="c:\qms\entwicklung\arbeitsauftragneu.dot")
For I = LBound(FindListe) To UBound(FindListe) Step 1
If FindListe(I) \> "" Then
oApp.Selection.Find.ClearFormatting
oApp.Selection.Find.Replacement.ClearFormatting
With oApp.Selection.Find
.Text = FindListe(I)
.Replacement.Text = ReplaceListe(I)
.Forward = True
.Wrap = 1
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=2
End With
End If
Next I