通过 COM 对象改变整页颜色

Question

我正在尝试使用 VBScript COM 接口在 MS Word 中更改整个页面的颜色。但是代码似乎不起作用。我尝试了以下代码：

Option Explicit

' Variables
Dim objDoc, objFile, objWord

' Create a Word object
Set objWord = CreateObject( "Word.Application" )

' Now Create a Document object
Set objDoc = objWord.Documents.Add

' make Word visible
objWord.Visible = True

' Set a default text
objDoc.Content.Text="Hello"

objDoc.Background.Fill.Visible = True
objDoc.Background.Fill.BackColor.RGB = RGB(55, 255,155)

' Close the active document
'objDoc.Close

' Close Word
'objWord.Quit

（我也尝试过使用 luacom 但由于它的限制而放弃了！）

我正在使用 Windows 8。任何人都可以指出我做错了什么......或者在 Win8 中情况完全不同。

Answer 1

以编程方式设置背景色时，只有将视图类型更改为 在线布局:

时才会显示

objDoc.Background.Fill.Visible = True
objDoc.Background.Fill.ForeColor.RGB = RGB(55, 255, 155)
objDoc.Background.Fill.Solid
objWord.ActiveWindow.View.Type = 6

不过它只会在该布局中可见，所以这可能是一个错误。

更笼统的说明：请改掉对显而易见的事物发表评论的习惯。注释不应改写实际陈述中已经清楚表达的内容，而应在陈述不那么明显时阐明一个或一组陈述的目的。

通过 COM 对象改变整页颜色

Changing Whole Page Color via COM object

vbscript

ms-word