Create table in Word Document From Access using VBA

[imo92]

I am trying to create tables in a Word document template from my Access database.

This bit of code runs fine from Word itself and creates tables as required. I was wondering if its possible to run this code from Access and point to a specific word document in which to create the tables.

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 
 

[ADezii]

Using simplified Automation Code from Access along with Early Binding, the following segment will open a Word Document named Test.doc in the C:\Test Folder (C:\Test\Test.doc) and create a Table with 25 Rows and 3 Columns. Some simplified formatting will also be applied. It should be very easy to expand this Demo Code:

Dim appWord As Word.Application
Dim wdDoc As Word.Document
 
Set appWord = New Word.Application
 
appWord.Visible = True
 
Set wdDoc = appWord.Documents.Open(Filename:="C:\Test\Test.doc", ReadOnly:=False)
 
wdDoc.Tables.Add Range:=appWord.ActiveDocument.Range(0, 0), NumRows:=25, NumColumns:=3
 
With wdDoc.Tables(1)
  .ApplyStyleHeadingRows = True
  .ApplyStyleLastRow = False
  .ApplyStyleFirstColumn = True
  .ApplyStyleLastColumn = False
End With

[imo92]

Thanks this works however how would I create this table between two paragraphs in my document example as this creates the table at the start of the document

[ADezii]

I would imagine that you need to specify the end of Paragraph 1 as the Range Argument to the Tables.Add Method, something like:

'************** AIRCODE NOT TESTED! **************
wdDoc.Tables.Add Range:=appWord.ActiveDocument.Paragraphs(1).Range.End, NumRows:=3, NumColumns:=3