Array to table

Bikram · #2 03-26-2022, 08:46 PM

I figured it out!! In case of anyone who may need it in the future here is the code.

Code:

Sub arraytotable()
Dim strfind(), strreplace(), i As Integer, j As Integer, t As table, ad As Document
Set ad = Documents.Add
strfind = Array("Is","Am","they","It","Or")
strreplace = Array("is","am","They","it","or")

i = UBound(strfind) - LBound(strfind) + 1
    Set t = ad.Tables.Add(Selection.Range, i, 2)
        For j = 1 To UBound(strfind)
            t.Cell(j, 1).Range.Text = strfind(j)
            t.Cell(j, 2).Range.Text = strreplace(j)
        Next
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Array Formula	Macacidic	Excel	2	09-12-2017 08:19 AM
Used an Array to Add a Median to Pivot Table- Now need Median to also appear on graph	jrnisaac1	Excel	3	04-25-2017 08:45 AM
looking to persist and array or something	vthomeschoolmom	Word VBA	1	09-16-2015 02:12 PM
Adding information from a array into a table	jcorti	Word VBA	4	01-10-2014 10:58 PM
Convert String Array to Integer Array from a User Input?	tinfanide	Excel Programming	4	12-26-2012 08:56 PM