Populating a table cell wit document properties

milena · #1 04-15-2015, 03:50 AM

Hello!

I've got a macro that adds rows to a table, but I need it to populate the rows with a document properties and I can't find a syntax that would work.
That's what I have so far:

Code:

Sub add()

Dim oTable As Table
Dim oCell As Cell
Dim oPrevRow As Row, oNewRow As Row
Dim iColumn As Long

' Insert new row
Set oTable = ActiveDocument.Tables(1)
Set oPrevRow = oTable.Rows(oTable.Rows.Count)
oTable.Rows.add
Set oNewRow = oTable.Rows(oTable.Rows.Count)
oNewRow.Cells(1).Range.Text = "Column 1 Text"
oNewRow.Cells(2).Range.Text = "Column 2 Text"
oNewRow.Cells(3).Range.Text = "Column 3 Text"
oNewRow.Cells(4).Range.Text = "Column 4 Text"
oNewRow.Cells(5).Range.Text = "Column 5 Text"
End Sub

So is there a way to replace "Column Text" string with a document property?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Move table cell contents from one table to another table or cell in same table	donaldadams1951	Word VBA	4	02-04-2015 03:54 PM
Cell properties: next cell	htieK	Excel	5	10-28-2014 06:23 PM
Updating Document Properties without using advanced properties dialogue	thedr9wningman	Word VBA	3	01-20-2014 05:56 PM
How 2 Save Table Properties & Apply to other table	Popeye.Tom	Word Tables	1	04-24-2013 09:44 PM
Properties of a Cell	DrDOS	Excel	1	04-06-2012 08:49 PM