How can I turn contents of a variable into a table in word?

gmayor · #2 11-13-2022, 10:04 PM

I assume that you want to run this macro from Excel. The string here, to be replaced by your variable is sList. The macro opens a Word document and creates a one column table that contains the list, which I think is what you are trying to achieve. You can integrate this with your existing menu.

Code:

Sub Macro1()
Dim wdApp As Object
Dim oDoc As Object
Dim oTable As Object
Dim sList As String
Dim vList As Variant
Dim oRng As Object
Dim i As Integer
Dim iRow As Object
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err Then
        Set wdApp = CreateObject("Word.Application")
    End If
    On Error GoTo 0
    sList = "This is; a test, of a string" 'the variable
    sList = Replace(sList, ";", ",")
    Set oDoc = wdApp.Documents.Add
    Set oRng = oDoc.Range
    oRng.Collapse 0
    Set oTable = oDoc.Tables.Add(oRng, 1, 1)
    vList = Split(sList, ",")
    oTable.Cell(1, 1).Range.Text = Trim(vList(0))
    For i = 1 To UBound(vList)
        Set iRow = oTable.Rows.Add
        oTable.Cell(iRow.Index, 1).Range.Text = Trim(CStr(vList(i)))
    Next i
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word Table of Contents - when I title a heading "table", table of contents shows "table2"	jncuk	Word	8	04-15-2020 07:01 PM
Mail Merge with variable table length MS Word 2013	rbr	Mail Merge	6	11-18-2016 07:05 AM
Turn Word table cell into clickable hyperlink button	cobms2014	Word	3	03-26-2015 09:10 AM
Using macro to add variable number of rows to a protected word table	Julia	Word Tables	1	01-09-2013 06:04 AM
Display contents of global variable in headers	KenBrown	Word	2	08-16-2012 07:47 AM