Setup Word color

[Sasa]

Hello,
I need your advice how should I write code and where, to
make function that will, every time when I open Word
(doesnt matter if new or existing document), make
Format>Background>Grey25% color.

Thanks for help in advance.

Sasa

 

[Word Heretic]

G'day "Sasa" <[email protected]>,

Although this code does as you require, I think you are probably
better off modifying your windows theme to make the page color an off
white - I am assuming you are really after glare reduction here.


Public Sub AutoOpen()
ActiveDocument.Background.Fill.BackColor.RGB=RGB(80,80,80)
End Sub

Public Sub AutoNew()
AutoOpen
End Sub

Steve Hudson - Word Heretic
Want a hyperlinked index? S/W R&D? See WordHeretic.com

steve from wordheretic.com (Email replies require payment)


Sasa reckoned:

 

[Dave Neve]

Hi

I can't get this simple code to work. I suspect that as it's Public, I may
not have put it in the right place.
Where does it have to go?

Thanks

 

[Word Heretic]

G'day "Dave Neve" <[email protected]>,

Go to http://word.mvps.org/FAQs/index.htm and read the first few
articles in the VBA / Macros tab.


Steve Hudson - Word Heretic
Want a hyperlinked index? S/W R&D? See WordHeretic.com

steve from wordheretic.com (Email replies require payment)


Dave Neve reckoned:

 

[Jean-Guy Marcil]

Bonjour,

Dans son message, < Dave Neve > écrivait :
In this message, < Dave Neve > wrote:

|| Hi
||
|| I can't get this simple code to work. I suspect that as it's Public, I
may
|| not have put it in the right place.
|| Where does it have to go?
||

Background colour only works in Web view, and you have to use the visible
property to actually see it.

Try this:
'_______________________________________
ActiveDocument.ActiveWindow.View.Type = wdWebView
With ActiveDocument.Background.Fill
.Visible = True
.BackColor.RGB = RGB(80, 80, 80)
End With
'_______________________________________

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org