如何使用OLE方式调用Word.Application修改文本段落背景色

Question

弄了一个小程序 修改WORD的字体颜色和 文字段落的背景颜色 以便突出显示文本内容var
  Word, Doc, Para1: OleVariant;Word := CreateOleObject('Word.Application');
try
  Doc := Word.Documents.Open(S_DocFN);
  Para1 := Doc.Range; 
  Para1.Font.Color   := ColorBox_TextColor.Selected;  //字体颜色
  Para1.背景色.color := ColorBox_BGColor.Selected;    //这里不会了
  Doc.SaveAs(S_DocFN);
  Doc.Close;
finally
 Word.quit;
 Word := Unassigned;
end;代码如上 修改字体颜色可以 但是在网上都没看到修改文字段落背景颜色的
上百度上谷歌上都没有     上MSDN查 也没有!
 坑爹了...
自己乱试下bkcolor backgrounpcolor....果然无此方法求指点 谢谢

Answer 1

没弄过，应该是一个属性，试试下面：
Para1.Background.Color

Answer 2

Background 属性
参阅应用于示例特性返回一个 Shape 对象，该对象表示指定文档的背景图像。只读。注释  只有在 Web 版式视图中才能看到背景。示例
本示例将活动窗口的 Web 版式视图背景色设为浅灰色。ActiveDocument.ActiveWindow.View.Type = wdWebView
With ActiveDocument.Background.Fill
    .Visible = True
    .ForeColor.RGB = RGB(192, 192, 192)
End With

本示例将 Web 版式视图的背景位图图像设为 Bubbles.bmp。ActiveDocument.ActiveWindow.View.Type = wdWebView
ActiveDocument.Background.Fill.UserPicture _
    PictureFile:="C:\Windows\Bubbles.bmp"设置成WEB版式才能有背景色。

Answer 3

BackColor 属性
参阅应用于示例特性返回或设置一个 ColorFormat 对象，该对象代表指定填充对象或图案线条的背景色。可读写。示例
下例向活动文档中添加一个矩形，然后设置矩形填充的前景色、背景色和渐变。Dim docActive As DocumentSet docActive = ActiveDocumentWith docActive.Shapes.AddShape(msoShapeRectangle, _
        90, 90, 90, 50).Fill
    .ForeColor.RGB = RGB(128, 0, 0)
    .BackColor.RGB = RGB(170, 170, 170)
    .TwoColorGradient msoGradientHorizontal, 1
End With

本示例为活动文档添加图案线条。Dim docActive As DocumentSet docActive = ActiveDocumentWith docActive.Shapes.AddLine(10, 100, 250, 0).Line
    .Weight = 6
    .ForeColor.RGB = RGB(0, 0, 255)
    .BackColor.RGB = RGB(128, 0, 0)
    .Pattern = msoPatternDarkDownwardDiagonal
End With

Answer 4

做个宏试试，看看vba代码，基本都能实现。

Answer 5

自己录制个宏，很简单。
vba代码:
selection.wholestory;//选取所有
selection.range.highlightcolorindex=wdyellow;//将背景色至于黄色
自己翻译成delphi就行了。

Answer 6

我翻译了一下：var
  vWord,vDoc: Variant;
begin
vWord := CreateOleObject('Word.Application') ;
vDoc := vWord.Documents.Open('c:\test.doc');
vDoc.Select ; //选取中整个文档
vDoc.Range.highlightcolorindex:=4;//wdyellow就是个常量值
vDoc.Close(True) ; //关闭文并保存
vWord.Quit(False) ; //退出Word
end;WdColorIndex，可读写。
应用于下列 WdColorIndex 常量之一：
    wdByAuthor    
    wdAuto
    wdNoHighlight
    wdBlack
    wdBlue
    wdBrightGreen
    wdDarkBlue
    wdDarkRed
    wdDarkYellow
    wdGray25
    wdGray50
    wdGreen
    wdPink
    wdRed
    wdTeal
    wdTurquoise
    wdViolet
    wdWhite
    wdYellow
expression.HighlightColorIndex
expression   必需。该表达式返回“应用于”列表中的一个对象。