How Can I Change The Background Color Of A Word Document Programatically ?

Question

0.00/5 (No votes)

See more:

Hi all,
I am trying to change the background color of a page in word document. But i am getting error. This is my code.

VB

Try
            oWord = GetObject(, "Word.Application")
            oDoc = oWord.ActiveDocument
            Dim ttl As String = oDoc.Name
            Label1.Text = ttl
            Dim clr As Color = Color.FromArgb(128, 128, 0)
            Try
                oDoc.Background.Fill.BackColor.RGB = ColorTranslator.ToOle(clr)
                oDoc.Background.Fill.Visible = Microsoft.Office.Core.MsoTriState.msoCTrue
                oDoc.Background.Fill.Solid()

            Catch ex As Exception
                MsgBox("Second TryCatch - " & ex.Message)
            End Try
        Catch ex As Exception
            Label1.Text = "Object Error"
        End Try

And the message says that "The specified value is out of range"

Posted 15-Jan-16 8:08am

Vinod Kc

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2016-01-15T08:37:00

Solution 1

I have no idea about ColorTranslator.
On the other side msoCTrue is not supported. Please see: MsoTriState enumeration (Microsoft.Office.Core)[^]

This should works:

VB.NET

Dim oDoc As Document = Nothing
'later
oDoc = ActiveDocument

    With oDoc
        .Background.Fill.ForeColor.RGB = RGB(128, 128, 0)
        .Background.Fill.Visible = msoTrue
        .Background.Fill.Solid
    End With
    
oDoc = Nothing

Posted 15-Jan-16 8:37am

Maciej Los

Comments

Vinod Kc 18-Jan-16 1:21am

Thank you @Maciej Los :)

Maciej Los 18-Jan-16 2:53am

You're very welcome.
Cheers,
Maciej