Office: (Office 2010) Tabellenwerte nach WORD-Tabelle übertragen

gromax · 19. August 2020

Liebe Access-Profis,

wieder mal weiß ich nicht weiter:

In meiner DB erfasse ich in einem Ufo Datensätze von durch Krankheit ausgefallenen Kollegen (Name, Schule, Grund, bis, Lehrerstunden). Diese DSe möchte ich nun in ein WORD-Dokument und eben dort in eine Tabelle übergeben; in der WORD-Vorlage habe ich bereits entsprechend Textmarken definiert, die die übergebenen Eintragungen von ACCESS annehmen. Alles funktioniert prima - bis eben auf die Tabelle (5 Zeilen, 5 Spalten)
Mein Code (verkürzt durch analoge Beispiele):
Code:

Private Sub cmdAVAntrag_Click()
Dim Word As Object
Dim objWordDoc As Object
Dim strPfad As String
Dim strPfadVorlage As String

Dim db As DAO.Database
Dim rcsSchulname As DAO.Recordset
Dim strSQLSchulname As String

Dim rngSchulname As Range
Dim rngSchulamt As Range
Dim rngWeitere As Range
Dim rngVormalig As Range
Dim rngvon As Range
Dim rngbis As Range
Dim rngAVName As Range
Dim rngGebDatum As Range
Dim rngGebOrt As Range
Dim rngFamStand As Range
Dim rngStrasse As Range
Dim rngPLZ As Range
Dim rngOrt As Range
Dim rngTelefon As Range
Dim rngMail As Range
Dim rngBeginn As Range
Dim rngEnde As Range
Dim rngLwh As Range
Dim rngFaecher As Range
Dim rngTabelle As Range

Dim intZeile As Integer
Dim rcsHinter As DAO.Recordset
Dim strSQLHinter As String
Dim intAnz As Integer
Dim tbl As Variant

Set db = CurrentDb

'Pfad-Ermittlung
strPfad = CurrentDb.TableDefs("tbl_LEHRER").Connect

If strPfad "" Then 'Bei Backend-/Frontend-Version
strPfad = Mid(strPfad, 11)
strPfad = Left(strPfad, InStrRev(strPfad, "")) & "BestandPersonal"
strPfadVorlage = Mid(strPfad, 11)
strPfadVorlage = Left(strPfad, InStrRev(strPfad, ""))
Else
strPfad = CurrentProject.Path & "BestandPersonal"
strPfadVorlage = CurrentProject.Path

End If

'WORD initialisieren
Set Word = CreateObject("Word.Application") 'Variable initialisieren
'Bei Problemen steigen wir an dieser Stelle aus:
If Word Is Nothing Then
MsgBox "Konnte keine Verbindung zu Word herstellen!", 16, "Problem"
Exit Sub
End If

With Word
'Ein neues Dokument erzeugen:
.Documents.Add (strPfadVorlage & "AV_AntragRP.dotm")
'Word sichtbar machen (standardmäßig wird Word nicht angezeigt):
.Visible = True
.Activate
.ScreenUpdating = True

'In den Textteil wechseln und Variablen füllen:
.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

'Schulname
Set rngSchulname = .ActiveDocument.Bookmarks("B_Schulname").Range
rngSchulname.Text = DLookup("SCH_NameAnzeige", "tbl_SCHULEN", "SCH_PS = " & Forms!frm_AVAntrag!sfm_AVAntrag01.Form!EIN_SCH_FS)
'Schulamt
Set rngSchulamt = .ActiveDocument.Bookmarks("B_Schulamt").Range
rngSchulamt.Text = p_cstrName
'Mail
Set rngMail = .ActiveDocument.Bookmarks("B_Mail").Range
rngMail.Text = Nz(DLookup("ErsterWertvonKONTA_Nummer", "qry_AVKontakte", "KONTA_LE_FS = " & Me!cmbAVBearbeitung & " And KONTA_KOTYP_FS = 5"), "")

'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

'Tabelle
Set rngTabelle = Word.ActiveDocument.Bookmarks("B_Tabelle").Range

'von Formular Hinterlegungen nach WORD-Dokument übertragen
strSQLHinter = "SELECT * FROM qry_AVHinterlegungenVertrag WHERE AVHIN_EIN_FS = " & Me!sfm_AVAntrag01.Form!EIN_PS
Set rcsHinter = db.OpenRecordset(strSQLHinter, dbOpenSnapshot)

If Not rcsHinter.EOF Then

rcsHinter.MoveLast
rcsHinter.MoveFirst

intZeile = 1

Do Until rcsHinter.EOF

.Cell(intZeile, 1).Range = rcsHinter.Fields(2).Value
.Cell(intZeile, 2).Range = rcsHinter.Fields(7).Value
.Cell(intZeile, 3).Range = rcsHinter.Fields(3).Value
.Cell(intZeile, 4).Range = rcsHinter.Fields(5).Value
.Cell(intZeile, 5).Range = rcsHinter.Fields(6).Value
intZeile = intZeile + 1
rcsHinter.MoveNext

rcsHinter.Close
End With
Loop

End If

End With

'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Set rcsSchulname = Nothing
Set rcsHinter = Nothing
Set db = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ergänzende Frage:
Stelle ich eine entsprechende Tabelle in der WORD-Vorlage bereits ein oder ist es besser, ACCESS die Tabelle zur Gänze anlegen zu lassen?

Für Unterstützung in jeder Form sage ich schon vorab: Vielen Dank!

Viele Grüße
gromax

:)

fraeser · 21. August 2020

Ob UFO oder Krankheiten... interessiert hier nicht.
Aber was ist denn mit bis eben auf die Tabelle (5 Zeilen, 5 Spalten)

Wo im Code entsteht das Problem genau?
Zeige mal alles Notwendige.

fraeser · 21. August 2020

PS:
Wir benötigen natürlich alle Datentypen der Felder etc.!

fraeser · 21. August 2020

Ach so, um auf Deine Frage einzugehen:
Ich hatte selten den Fall, hatte aber immer eine Vorlage definiert im Format .dotx (je nach Version).
Mit Access dann die Word-Datei aufgrund der Vorlage "gebastelt".

Deinen Code werde ich jetzt nicht probieren - vielleicht hast Du noch mehr Infos dazu...

ebs17 · 21. August 2020

Zum Umgang mit Wordtabellen gibt es ein hervorragendes Script von Smaug:
WordTabellenVBA

gromax · 23. August 2020

Hallo Jan, hallo Eberhard,

vielen Dank für Eure Antworten; ich habe den Übertrag in das WORD-Dokument nun doch alleine geschafft.

zu Jan:
Es ging im Speziellen um die Zeilen die ich zwischen '>>>>> und dem Kommentar 'Tabelle' markiert habe; sorry, dass ich dies nicht besonders erwähnt habe.

Mein Code, der auf's erste funktioniert:
Code:

'Tabelle
Set rngTabelle = .ActiveDocument.Bookmarks("B_Tabelle").Range

'von Formular Hinterlegungen in die Tabelle nach WORD-Antrag übertragen
strSQLHinter = "SELECT * FROM qry_AVHinterlegungenVertrag WHERE AVHIN_EIN_FS = " & Me!sfm_AVAntrag01!EIN_PS
Set rcsHinter = db.OpenRecordset(strSQLHinter, dbOpenSnapshot)

If Not rcsHinter.EOF Then

rcsHinter.MoveLast
rcsHinter.MoveFirst
intAnz = rcsHinter.RecordCount

Set objWordDoc = .ActiveDocument.Tables.Add(Range:=rngTabelle, numrows:=intAnz, NumColumns:=5)
intZeile = 1

Do Until rcsHinter.EOF
With objWordDoc
.Rows.SetHeight RowHeight:=MillimetersToPoints(6.5), HeightRule:=wdRowHeightExactly
.Cell(intZeile, 1).Width = MillimetersToPoints(50)
.Cell(intZeile, 2).Width = MillimetersToPoints(56)
.Cell(intZeile, 3).Width = MillimetersToPoints(29)
.Cell(intZeile, 4).Width = MillimetersToPoints(21.5)
.Cell(intZeile, 4).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Cell(intZeile, 5).Width = MillimetersToPoints(14)
.Cell(intZeile, 5).Range.ParagraphFormat.Alignment = wdAlignParagraphRight

.Cell(intZeile, 1).Range = rcsHinter.Fields(3).Value
.Cell(intZeile, 2).Range = rcsHinter.Fields(10).Value
.Cell(intZeile, 3).Range = rcsHinter.Fields(5).Value
.Cell(intZeile, 4).Range = rcsHinter.Fields(7).Value
.Cell(intZeile, 5).Range = rcsHinter.Fields(8).Value & " Lwh"

intZeile = intZeile + 1

rcsHinter.MoveNext

End With
Loop

With objWordDoc.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideLineWidth = wdLineWidth150pt
.InsideLineStyle = wdLineStyleSingle
End With

End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn darin noch "Böcke" ersichtlich sind, bin ich dankbar für die Rückmeldung!

zu Eberhard:
Vielen Dank für Deinen Hinweis; dieses Dokument ist ja wirklich hervorragend!!

Euch alles Gute
und nochmals Danke!
gromax

ebs17 · 23. August 2020

Siehe auch Wordtabelle aus Access füllen

Ich würde sicher nicht Zellen einzeln formatieren, sondern im Sinne von Massendatenverarbeitung ganze Spalten, Zeilen, Bereiche, Tabellen.
Performance (1) - Vorwort + Schleifen die keiner braucht
Das gilt sinngemäß auch in anderen Verwendungen.

Sowie: Word hat auch eine ConvertToTable-Methode, wo ein Recordset im Stück in eine Wordtabelle umgeformt wird. Da eine Formatierung über eine eigene Vorlage darüber geschickt - so ginge es auch.

Office: (Office 2010) Tabellenwerte nach WORD-Tabelle übertragen

Tabellenwerte nach WORD-Tabelle übertragen

Tabellenwerte nach WORD-Tabelle übertragen

Tabellenwerte nach WORD-Tabelle übertragen

Tabellenwerte nach WORD-Tabelle übertragen - Similar Threads - Tabellenwerte WORD Tabelle

Tabellenwerte aus Funktion einer Trendlinie berechnen

Prüfung auf Tabellenwert erfolgt nicht

Feste Tabellenwerte nach Word mit übergeben

Mehrere Werte ausgeben

Hilfe bei Excel-Tabellen-Formatierung/Programmierung

Wert aus einer Tabelle mit 4 Konstanten Achsen auslesen

Tabellenwerte in Spalte umwandeln