VBA macro to create word table

santy2906 · #1 08-23-2021, 08:45 AM

Need help creating word table in vba in attached format.

so far I have this code:
Sub ChangeTableBorders(oWordTable As Word.table)
With oWordTable
.Spacing = 9

.Borders.InsideColor = wdColorBlue
.Borders.InsideLineStyle = wdLineStyleDashSmallGap
.Borders.OutsideColor = wdColorBlue
.Borders.OutsideLineStyle = wdLineStyleDashSmallGap
End With
End Sub

Sub ChangeTableRowBorder(oWordTableRow As Word.Row)
With oWordTableRow
.Shading.BackgroundPatternColor = wdColorAutomatic
.Borders(wdBorderBottom).Color = wdColorBlack
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderBottom).LineWidth = wdLineWidth050pt
End With
End Sub

I could not create that horizontal line due to spacing.

Any help would be highly appreciated!

Guessed · #2 08-23-2021, 04:32 PM

Why wouldn't you format the table how you want it and then save it as a Building Block? There is a seriously diminishing return on investment in trying to reproduce in code something that is easier to do other ways.

gmayor · #3 08-23-2021, 09:18 PM

I agree with Andrew, however ensure that you save the building block in the document template rather than the default normal template if anyone other than yourself is to use it.You can use the following to insert your autotext building block in a bookmark.

Code:

Sub AutoTextToBM(strbmName As String, oTemplate As Template, strAutotext As String)
'Graham Mayor - https://www.gmayor.com - Last updated - 10 Apr 2019
'strBMName is the name of the bookmark to fill
'oTemplate is the template with the autotext - probably ActiveDocument.AttachedTemplate
'strAutotext is the name of the autotext entry
Dim oRng As Range
    On Error GoTo lbl_Exit
    With ActiveDocument
        If .Bookmarks.Exists(strbmName) = True Then
            Set oRng = .Bookmarks(strbmName).Range
            Set oRng = oTemplate.AutoTextEntries(strAutotext).Insert _
                       (Where:=oRng, RichText:=True)
            .Bookmarks.Add Name:=strbmName, Range:=oRng
        End If
    End With
lbl_Exit:
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to identify text - create table w/text & page numbers	Cray_Z	Word VBA	7	01-05-2021 09:32 PM
How to I create a macro that dynamically creates a table, to enter questions, in the below format?	MathiasFC	Word VBA	11	01-14-2019 04:50 PM
Need Help Macro That Uses Pivot Table to Create New Sheet	Bob123456789	Excel Programming	13	03-14-2017 01:25 PM
Word Macro to delete table row and table header	NorthSuffolk	Word VBA	6	10-11-2016 05:04 AM
Create Table Form from Word Document	gsj224	Word VBA	3	07-31-2011 09:26 AM