Update Word table based on another table input

mpdsal · #1 10-26-2012, 07:58 AM

Quote:

Originally Posted by macropod

You could use a simple copy/paste to replicate the entire cell's contents. However, that still doesn't address the automation issue or the problems associated with addong/deleting rows.

Of course, if the second table is supposed to replicate the first one entirely, simply bookmark the first one and use a cross-reference for the second table.

Unless I am missing something, when you select a cell within a table and use the copy/paste function it only pastes the related text not the background format. I find this strange. Also if you use bookmarks it only references the text of the cell none of the shading.

As for the automation, if you notice I use a variable for a counter to check the number of rows in a table. If rows are added or deleted it will be reflected in that count and when the total is reached the program ends.

I am receptive to improvements if anyone has one.

Thanks1

macropod · #2 10-26-2012, 07:01 PM

Quote:

Originally Posted by mpdsal

Unless I am missing something, when you select a cell within a table and use the copy/paste function it only pastes the related text not the background format.

My Bad - I was thinking that one of the PasteAndFormat options preserved shading info. Nevertheless, you could use something like:

Code:

Sub Demo()
Dim lBkClr As Long, lFrClr As Long, i As Long
With ActiveDocument.Tables(1).Range
  For i = 1 To .Cells.Count
    With .Cells(i)
      .Range.Copy
      lBkClr = .Shading.BackgroundPatternColor
      lFrClr = .Shading.ForegroundPatternColor
    End With
    With ActiveDocument.Tables(2).Range.Cells(i)
      .Range.Paste
      .Shading.BackgroundPatternColor = lBkClr
      .Shading.ForegroundPatternColor = lFrClr
    End With
  Next
End With

Quote:

Also if you use bookmarks it only references the text of the cell none of the shading.

Not so if you're replicating the entire table. Furthermore, if you bookmark an entire cell, the entire cell will be replicated, including its borders & shading in the cross-reference.

mpdsal · #3 10-29-2012, 07:40 AM

Paul,

I'll give your code a try.

I must only have the text Bookmarked in that case. I'll play around some more with utilizing Bookmarks to capture all settings for a cell.

Thanks again.

Mark

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Linking excel table to powerpoint for easy update	atwood121	PowerPoint	0	05-11-2012 07:09 AM
How do I dynamically update data in a Word Document from a database table	RSchmidt	Word	1	07-14-2011 04:27 PM
Table update in running presentation	rumdrum	PowerPoint	0	02-10-2011 01:28 PM
SOS - cannot update table of content properly	Lee	Word	5	02-04-2011 12:59 PM
Easy Update "Table of Contents" feature in Microsoft Word 2007 VS. Word 2010	Xarzu	Word	0	09-22-2010 06:54 PM