Vba word цвет фона

Hi Shauna

Many thanks for the code you sent me. Looks like a life saver!

Just to expand on this, could I pre-save the styles into my Word templates
and just call them when I need them?

Just thinking if this would save processor time as I have around 20 styles
to create.

Do I also need to format the text in these styles as the font sizes and the
like where a bit manic!

Hi All

Thanks for your feedback.

Been trying things out before you kindly sent me the below and went with the
highlight colour option, but what I can’t understand is that even though I’m
selecting the 2nd paragraph to initiate my highlighting it still covers all
paragraphs!!!

To explain I have a cell in my table consisting of the following:

BilboBaggins <vbCrLf>
Freddie Boggs<vbCfLf>

When I firstly format BilboBaggins it works perfectly I get the colour bg
that I want, but when I format Freddie Boggs the bg colour for both is
changed to what it should be for Freddie Boggs even though my code quite
clearly calls the 2nd paragraph, eg:

Set oDoc = oNewDoc.Tables(1).Cell(intRow, intCol).Range.Paragraphs(2)

oDoc.Range.Text = arrPupilData(0, intCurrentRec)

With oDoc.Range
.Font.Color = wdBlack
.HighlightColorIndex = wdRed
.Font.Italic = False
.Font.Bold = False
.Font.Underline = False
End With

Surely the above should only format the Freddie Boggs text??

Another thing is that I use the following line at the end:

oDoc.Range.Text = oDoc.Range.Text & vbCrLf

but instead of this just putting one paragraph/carriage return marker after
the name, eg Freddie Boggs, it puts 2 markers!

If I use .Doc.Range.InsertParagraphAfter instead of the above it puts the
right markers in, but crashes on any cells with more than 1 name in it — how
frustrating is this!!!!!

Any ideas?

Hi Blackberry

I suggest using character styles that have been defined to have the shading
you want. If you apply the styles to a .Range, then the shading will be
applied only to the text, and not to the whole paragraph.

Here’s some code to get you going. To test it out, create a document with a
table and put some text in each cell of the table.

Sub FormatBloggs()

Dim oNewDoc As Word.Document

Dim sBlueStyle As String
Dim sWhiteStyle As String
Dim sRedStyle As String

Dim styBlue As Word.Style
Dim styWhite As Word.Style
Dim styRed As Word.Style

Dim oTable As Word.Table
Dim nRowCounter As Long
Dim nColCounter As Long

‘Get a reference to our document
Set oNewDoc = ActiveDocument

‘Establish the names of our styles
sBlueStyle = «Blue»
sWhiteStyle = «White»
sRedStyle = «Red»

On Error Resume Next
‘If necessary, create new styles in our document
With oNewDoc.Styles
.Add Name:=sBlueStyle, Type:=wdStyleTypeCharacter ‘
wdStyleTypeParagraph
.Add Name:=sWhiteStyle, Type:=wdStyleTypeCharacter ‘
wdStyleTypeParagraph
.Add Name:=sRedStyle, Type:=wdStyleTypeCharacter
‘wdStyleTypeParagraph
End With

On Error GoTo 0

‘Get a reference to our styles
With oNewDoc.Styles
Set styBlue = .Item(sBlueStyle)
Set styWhite = .Item(sWhiteStyle)
Set styRed = .Item(sRedStyle)

End With

‘Identify the shading we want for our styles
With styBlue.Font.Shading
.Texture = wdTextureNone
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = wdColorBlue
End With

With styWhite.Font.Shading
.Texture = wdTextureNone
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = wdColorWhite
End With

With styRed.Font.Shading
.Texture = wdTextureNone
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = wdColorRed
End With

On Error Resume Next

‘Apply the character styles to text in our table
Set oTable = oNewDoc.Tables(1)

For nRowCounter = 1 To oTable.Rows.Count
For nColCounter = 1 To oTable.Columns.Count
oTable.Cell(nRowCounter,
nColCounter).Range.Paragraphs(1).Range.Style = styBlue
oTable.Cell(nRowCounter,
nColCounter).Range.Paragraphs(2).Range.Style = styWhite
oTable.Cell(nRowCounter,
nColCounter).Range.Paragraphs(3).Range.Style = styRed
Next nColCounter
Next nRowCounter

End Sub

I’d suggest that (a) you’ll need to add appropriate error checking and (b)
use names for the styles that reflect function, not format. Blue, White and
Red are not good names!

Hope this helps.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word