Reference Word Table Cell Using Offset?

macropod · #2 06-19-2016, 07:42 PM

Word has no offset function. Instead, in Word you could use code like:

Code:

Private Sub CheckBox1_Click()
Call ShadeCell(CheckBox1.Value)
End Sub
 
Sub ShadeCell(bVal As Boolean)
Application.ScreenUpdating = False
With Selection.Cells(1).Previous.Shading
  .BackgroundPatternColor = wdColorAutomatic
  If bVal = True Then
    .BackgroundPatternColor = wdColorYellow
  Else
    .BackgroundPatternColor = wdColorAutomatic
  End If
End With
Application.ScreenUpdating = True
End Sub

with each checkbox calling the ShadeCell macro as demonstrated above. Exactly why the code needs to call '.BackgroundPatternColor = wdColorAutomatic' before testing bVal isn't clear but, on my system, it only seems to shade the active cell without it.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to reference more than one table in a Word doc	scootermac315	Word VBA	5	06-22-2015 05:28 PM
Offset Table and Pivot Table	ubns	Excel	1	04-17-2015 12:28 AM
Assign the value of a cell as a cell reference of another cell in Excel 2010 - How to?	bharathkumarst	Excel	7	10-13-2014 10:25 AM
Syntax to use OFFSET() in a cell formula?	dlowrey	Excel	3	07-09-2013 09:15 AM
How do I reference a merged cell in a multi column & row table in MS Word ('03')?	jihanemo	Word Tables	0	03-18-2009 08:33 AM