Erstellen Sie Tabelle in Worddokument aus Zugriff mit VBA

Question

Ich versuche, Tabellen in einer Word-Dokumentvorlage aus meiner Access-Datenbank zu erstellen.

Dieses Codebeispiel kann problemlos von Word ausgeführt werden und erstellt Tabellen nach Bedarf. Ich frage mich, ob es möglich ist, diesen Code von Access auszuführen und auf ein bestimmtes Word-Dokument zu zeigen, in dem die Tabellen erstellt werden.

Dim numberOfTables As Integer 
Dim iCount As Integer 

numberOfTables = InputBox("How many tables to make?", "Tables") 

For iCount = 0 To numberOfTables - 1 

    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _ 
     3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ 
     wdAutoFitFixed 
    With Selection.Tables(1) 
     If .Style <> "Table Grid" Then 
      .Style = "Table Grid" 
     End If 
     .ApplyStyleHeadingRows = True 
     .ApplyStyleLastRow = False 
     .ApplyStyleFirstColumn = True 
     .ApplyStyleLastColumn = False 
     '.ApplyStyleRowBands = True 'Office 2010 
     '.ApplyStyleColumnBands = False 'Office 2007 
    End With 

    Selection.EndKey Unit:=wdStory 
    Selection.TypeParagraph 

Next iCount 

Answer 1

Sie müssen zuerst eine neue Instanz von Word von Access öffnen. Dies wird durch den folgenden Befehl ausgeführt wird:

Set wrdApp = CreateObject("Word.Application") 

Dann machen sie sichtbar und ein Dokument hinzufügen möchten, verwenden Sie das Objekt von diesem Punkt an:

wrdApp.Visible = True 
Set myDoc = wrdApp.Documents.Add 'Here you should also keep the new document as an object so you can directly refer to it 

Oder wenn Sie eine Vorlage verwenden, die Sie benötigen um es zu öffnen, statt:

wrdApp.Visible = True 
Set myDoc = wrdApp.Documents.Open ("C:\database\template.docx") 

Und dann kommt Ihr Code, den Sie entsprechend dem oben ändern müssen:

For iCount = 0 To numberOfTables - 1 

    myDoc.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _ 
     3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ 
     wdAutoFitFixed 
    With myDoc.ActiveWindow.Selection.Tables(1) 
'Note here that for the Selection object you need to refer to the active window 
     If .Style <> "Table Grid" Then 
      .Style = "Table Grid" 
     End If 
     .ApplyStyleHeadingRows = True 
     .ApplyStyleLastRow = False 
     .ApplyStyleFirstColumn = True 
     .ApplyStyleLastColumn = False 
     '.ApplyStyleRowBands = True 'Office 2010 
     '.ApplyStyleColumnBands = False 'Office 2007 
    End With 

    myDoc.ActiveWindow.Selection.EndKey Unit:=wdStory 
    myDoc.ActiveWindow.Selection.TypeParagraph 

Next iCount 

Dies sollte Ihnen den Anfang machen.