Office: (Office 2003) Access VBA -> Word-Tabelle: Wie Zeilenumbruch in Zelle?

User · 26. Januar 2010

Hallo Flutlicht,

mein Vorschlag zum "replacen":
Code:

With objWrd

Set tablerange = .ActiveDocument.Range(.ActiveDocument.Bookmarks("textmarke1").Start, _
.ActiveDocument.Bookmarks("textmarke1").End)

tablerange = "run" & Chr(1) & "company" & Chr(1) & "date (from/to)"

strsql = "SELECT run, company, date_from, date_to FROM table1"

Set rs = CurrentDb.OpenRecordset(strsql, dbOpenDynaset)
If Not rs.EOF Then rs.MoveFirst
Do While Not rs.EOF
mydelim = vbCrLf
myDate = rs!date_from & "$" & rs!date_to
tablerange = tablerange & mydelim & rs!Run & Chr(1) & rs!company & Chr(1) & myDate
rs.MoveNext
Loop
Debug.Print tablerange
With tablerange
.ConvertToTable Separator:=Chr(1), numcolumns:=3, Format:=wdTableFormatNone
.Find.ClearFormatting
.Find.Text = "$"
With .Find.Replacement
.ClearFormatting
.Text = "^p"
End With
.Find.Execute Replace:=wdReplaceAll, _
Format:=True, MatchCase:=True, _
MatchWholeWord:=True
End With
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß

LL

Flutlicht · 26. Januar 2010

Danke für die Hilfestellung! *Smilie)

Bin gerade selbst an dem hier gesessen... - würde also überall in meinem Dokument (ich habe noch einige Tables vor mir) dann die Zeichenfolge "*!*" mit Char(11) ersetzen *Smilie

Code:

.Selection.Find.ClearFormatting
.Selection.Find.Replacement.ClearFormatting
.Selection.Find.Text = "*!*"
.Selection.Find.Replacement.Text = Chr(11)
.Selection.Find.Execute Replace:=wdReplaceAll
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 26. Januar 2010

Hallo Flutlich,

nimm meinen Code, der ersetzt nur in "tablerange"!
Und alles ist so wie Du es haben wolltest *Smilie!

Gruß

LL

Office: (Office 2003) Access VBA -> Word-Tabelle: Wie Zeilenumbruch in Zelle?

Access VBA -> Word-Tabelle: Wie Zeilenumbruch in Zelle?

Access VBA -> Word-Tabelle: Wie Zeilenumbruch in Zelle?

Access VBA -> Word-Tabelle: Wie Zeilenumbruch in Zelle? - Similar Threads - Access VBA Word

Word Access VBA Fußzeile formatieren

Auslesen einer Abfrage in VBA Modul

Bild mit VBA von Access in Word Formular einfügen

Öffnen von Word-Dokumenten aus Access VBA

Serienbrief mit Word aus Access-VBA

Bookmarks unterstreichen

Word Dokument aus Formular erstellen mit Tabelleneinträgen