Office: (Office 2016) Datenblatt nach Word

Hallo Zusammen,
ich habe ein Unterformular (Positionen) in der Datenblattansicht mit Spalten für eine klassische Rechnung, also Pos, Leistung, Menge, Einzelpreis, Netto.
Nun möchte ich diese komplette Tabelle in ein Word-Dokument einfügen und zwar bei dem Bookmark "Leistung".
Es gelingt mir zwar das Word-Dokument aufzurufen und anzuzeigen, aber das einfügen bekomme ich einfach nicht hin.

In Excel funktioniert das bei mir so:

wks_Eing.Range("A9:F" & lz).Copy

If WordObj.ActiveDocument.Bookmarks.Exists("Leistung") Then
WordObj.Selection.Goto What:=-1, Name:="Leistung" '-1 = wdGoToBookmark
WordObj.Selection.Paste
Application.CutCopyMode = False
WordObj.Selection.Tables(1).Rows(1).HeadingFormat = False
WordObj.Selection.Tables(1).Rows.LeftIndent = Application.CentimetersToPoints(0)
End If

With WordObj.Selection.Tables(1)
If .Style "Tabellenraster" Then
.Style = "Tabellenraster"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False

End With

Aber wie ist das in Access?
Danke schon mal für die Hilfe
Gruß Loisl

:)

 

Word kennt die Methode ConvertToTable. Damit wird aus einem in Access bereitgestellten Recordset eine Wordtabelle erzeugt, die dann am Lesezeichen eingefügt werden kann.
Für die Optik müsste dann die Wordtabelle noch etwas nachformatiert werden (Anwendung eines Standardformates oder Verwendung von Einzelmaßnahmen).
Zur Orientierung könntest Du Dich hieran bedienen: Demo-Datenbank - Wordtabelle aus Access füllen

 

Danke für die Antwort und auch für die Datenbank
Leider bekomme ich einen Fehler, von dem ich nicht weiß, wo er herkommt bzw. wie ich ihn wegbekommen.
Bisher habe ich:
If WordObj Is Nothing Then
Set WordObj = CreateObject("Word.Application")
Else
End If
WordObj.Documents.Add (CurrentProject.Path & "VorlagenRechnung.docx")
WordObj.Visible = True

If WordObj.ActiveDocument.Bookmarks.Exists("Leistung") Then
WordObj.Selection.Goto What:=-1, Name:="Leistung" '-1 = wdGoToBookmark
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:=6

Aber beim Einfügen einer neuen Tabelle kommt die Fehlermeldung:
Objektvariable oder With-Block Variable nicht festgelegt
Was mach ich hier falsch?

 

Hallo Loisl,

mit WordObj.Documents.Open() wird eine Datei geöffnet.

Ulrich

 

Ich sehe Verbesserungsmöglichkeiten:

- Documents.Add wird typischerweise für "echte" Vorlagen (*.dotx oder *.dotm) angewendet.

- Der Fehler tritt auf, weil Acces den Befehl ActiveDocument.Tables.Add nicht kennt. Da fehlt das Word-Objekt davor. Besser noch: arbeite mit einem Dokumenten-Objekt.

 

Hallo Ulrich,
also ich öffne jetzt mit .open
Meine Zeile zum Erstellen der Tabelle in Word sieht nun so aus:

WordObj.ActiveDocument.Tables.Add Range:=WordObj.ActiveDocument.Bookmarks("Leistung").Range, NumRows:=2, NumColumns:=6

Dieser Teil:
WordObj.ActiveDocument.Bookmarks("Leistung").Range
war der Aufhänger

Wie auch immer, jetzt wird die Tabelle erstellt.
Aber noch eine große Frage:
Wie kann ich die Spalten einer Tabelle durchlaufen.
Ich möchte nicht alle Spalten durchlaufen, sondern nur einen bestimmten Bereich.
Mit i = 0 To rs(7) funktioniert das leider nicht.
Wie spreche ich die Tabellenspalten an?
Ich finde immer nur For each oder rs.fields.count
Gruß Loisl

 

Danke für die Hinweise.
Allerdings kann ich mit "einem Dokumenten Objekt" nichts anfangen. Da kenn ich mich nicht aus, was du damit meinst bzw. was das überhaupt ist.
Gruß Loisl

 

Statt mit ActiveDokument zu arbeiten weist Du das Dokument einer Objektvariablen zu. Ungefähr so:

Code:


[+][-]

' VBA, XML, HTML => Forum-HTML, (c) 2018 by KHV, VB-Code by haklesoft
Auf Selection wurde verzichtet.

 

Hallo Loisl,

Ich war jetzt glatt etwas verwirrt. In Access spricht man von Datensätzen und Feldern und nicht von Spalten!

Die wichtigste Grundlage für die Beantwortung solcher Fragen ist die Onlinehilfe bzw. Dokumentation. Dort findet man für gewöhnlich immer erste Hinweise bei den Objekten und Beispielen, so auch hier:
https://docs.microsoft.com/de-de/off...-dao-recordset
https://docs.microsoft.com/de-de/off...collection-dao
Demnach wird ein Feld über die Ordnungszahl angesprochen:
Code:

Gruß Ulrich

 

Die einfachste und sinnvollste Maßnahme wäre, nicht die komplette Tabelle in das Recordset zu laden, sondern über eine Abfrage genau jene Felder mit jenen Datensätzen, die man benötigt. In der Abfrage kann man zudem die Reihenfolge der Felder anpassen und somit die Felderauflistung in Übereinstimmung mit der Zieltabelle bringen.

Dann ist das Recordset schlank und flach, was für sich schon im Sinne von Best Practice erstes Ansinnen sein sollte. In Folge kann man dann einfach entspannt eine Schleife über alles laufen lassen.

 

Hallo Ulrich,
und vielen Dank. Das war der entscheidende Hinweis.
Danke auch an die anderen Antwortgeber. Na, da habe ich aber jetzt noch einiges zu ändern.
Mittlerweile läuft´s und die Rechnung ist fertig, allerdings sehr langsam.
Ich hab halt noch das Excel-Denken intus.
Ich werd mal versuchen, das mit der Abfrage hinzubekommen.
Herzliche Grüße
Und vielen Dank nochmal an alle.
Loisl

 

Unter Nutzung einer vorhandenen Wordinstanz oder bei Erzeugung einer neuen Wordinstanz per verwendetem Late Binding? Eine oder mehrere Rechnungen während der Laufzeit der Anwendung?

Das Word-Objekt selber ist ein sehr umfangreiches, da dauert es für sich, wenn man dieses (erstmals) lädt.

 

Danke nochmal für die Antwort.
Also ich habe in den Verweisen auf die Word 16.0 Object Library verwiesen.
Keine Ahnung, was das für ein Binding ist.
Aber ich denke, dass es dem geschuldet ist, dass ich die ganze Tabelle im Feld der Rechnungsnummer durchlaufe um die Rechnungsnummer zu suchen und mir dann aus diesem Datensatz die Daten zu holen.
Das mit der Abfrage, bekomme ich irgendwie nicht hin. Ich hab zwar schon eine erstellt, aber es kommt die Fehlermeldung: Es wird ein Parameter erwartet, aber es wurden zuwenig Parameter übergeben.
Die Abfrage hat als Kriterium einen Verweis auf die Rechnungsnummer im geöffneten Rechnungsformular.
Wenn ich die Abfrage ohne VBA starte öffnet sie sofort und ohne meckern.
Ich habe das hier als Code:
Set rs = db.OpenRecordset("AF_Rechnungen")
Was muss ich denn hier noch machen?
Gruß Loisl

 

Dann hätte man Early Binding, sprich das Objekt wird bereits beim Laden der Anwendung mitgeladen und nicht erst mit Aufruf der Prozedur => Verlagerung und anderes Laufzeitgefühl.
Ein sauberer Aufruf sähe dann aber so aus:
Code:

Mit Early Binding handelt man sich aber schneller (Verweis)Probleme ein, wenn beim Nutzer die Versionen (hier von Word) wechseln.

Statt in Schleife zu suchen besser filtern auf die Rechnungsnummer (SQL statt VBA, Bagger statt Sandschaufel).

Code:

- Abfrage statt ganze Tabelle
- Recordset nur einfach lesend öffnen. Ohne Angabe würde das Recordset als Dynaset (Standard) geöffnet. Diese muss zusätzlich zum Lesen mögliche Schreibaktionen verwalten, was mehr Aufwand = höhere Laufzeit bedeutet.

 

Muss ich dann statt [Feldliste] die einzelnen Felder auflisten, die ich haben möchte?
So?
Set rs = db.OpenRecordset( _
"SELECT [Id_Rechnungen],[Obj_Bezeichnung] FROM AF_Rechnungen WHERE ID_Rechnungen = " & Me.ID_Rechnungen, _
dbOpenForwardOnly)
Allerdings will er jetzt zwei Parameter. Seufz