How to format a word table based on a dropdown list value?

[Slyraks]

Hi there,

I'm trying to update the values and formatting of a table based on a drop-down list



So far, I've followed the steps in this post to change the values but I don't know how to delete the rows I don't need based on the type of table that needs to be displayed

Examples of what I want to do - RangeVBATest.docx

[macropod]

There is no VBA code in your document, so it's impossible to know exactly what your code is doing. It's not even obvious what your secondary table looks like before anything is selected from the dropdown.

That said, try the following code:

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
Application.ScreenUpdating = False
Dim r As Long, i As Long
If CCtrl.ShowingPlaceholderText = True Then: i = 2: Else i = CCtrl.Range.Text + 2: End If
With ActiveDocument.Tables(2)
  For r = .Rows.Count To i Step -1: .Rows(r).Delete: Next
  For r = .Rows.Count + 1 To i - 1
    .Rows.Add: .Rows(r).Range.Font.Bold = False
    .Cell(r, 1).Range.Text = (r - 2) * 1000 & " - " & (r - 1) * 1000
    .Cell(r, 2).Range.Text = "1000": .Cell(r, 3).Range.Text = "0,00"
  Next
End With
Application.ScreenUpdating = True
End Sub

With this code, your second table need only have the heading row and you can change the dropdown selection at will to add/delete rows.

[macropod]

Cross-posted at: MS Answers
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184