Text Background Colour in a Table

Colin Vicary · #1 08-08-2019, 01:15 AM

Hi everyone, I'm new here so please be gentle with me!

I am creating a mail merge document, I've not posted in mail merge though, as this seems to be a more basic formatting question.

I have given my page a background colour, and for every cell in the table the text is black with the grey background colour, apart from one cell in each table! This cell has a white text background.

I've attached the document here, can anyone please help me colour this one cell?

Thanks in advance

Colin

gmayor · #2 08-08-2019, 02:02 AM

If you mean in the merge document itself then the following macro will do that.

Code:

Sub Macro1()
Dim oCell As Cell
Dim oFld As Field
    For Each oCell In ActiveDocument.Tables(1).Range.Cells
        For Each oFld In oCell.Range.Fields
            If oFld.Type = wdFieldMergeField Then
                If InStr(1, oFld.Code, "Product") > 0 Or _
                   InStr(1, oFld.Code, "Desc") > 0 Then
                    oCell.Shading.BackgroundPatternColor = wdColorWhite
                    Exit For
                Else
                    oCell.Shading.BackgroundPatternColor = &HD9D9D9
                End If
            End If
        Next oFld
    Next oCell
lbl_Exit:
    Set oCell = Nothing
    Set oFld = Nothing
    Exit Sub
End Sub

Colin Vicary · #3 08-08-2019, 03:09 AM

Hi Graham

Thanks for spending the time on this, it has really helped me to understand how the macros work in Word.

I stepped through the macro to see how it worked and followed the logic - a real eye opener.

However, although the cell has been coloured, the text still has a white background, whereas all the other text in the document uses the grey cell colour as a background - can you see that?

What code can I add to fix that please?

Thanks

Colin

gmayor · #4 08-08-2019, 04:38 AM

I hadn't noticed that, but actually it has a light grey background. It is easily addressed. After the line

Code:

oCell.Shading.BackgroundPatternColor = wdColorWhite

add the line

Code:

oCell.Range.Font.Shading.BackgroundPatternColor = wdColorAutomatic

Colin Vicary · #5 08-08-2019, 06:02 AM

Perfect!

Thanks once again for your help Graham.

Colin

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word background colour ignores Windows setting	wiganken	Word	1	07-19-2018 09:25 AM
Changing background colour based on dropdown choice	PLeo	Word VBA	2	08-03-2017 07:40 AM
VBA Table – Search All Tables - Find & Replace Text in Table Cell With Specific Background Color	jc491	Word VBA	8	09-30-2015 06:10 AM
Word VBA Find Table Text Shading Colour and replace with another	QA_Compliance_Advisor	Word VBA	10	09-19-2014 08:36 AM
Trying to clear the background colour from a theme	ezekiel181	Word	1	11-14-2010 07:29 AM