从Excel中打开Word颜色错误

时间:2015-07-11 17:52:18

标签: excel vba excel-vba

在Excel中使用VBA代码我创建了一个新的Word文档,在其中我插入了一些我已经在磁盘上的其他文档。

一切正常,但我文档中的一些背景阴影颜色不同。

相关的snipets代码如下:

   Set wdApp = GetObject(, "Word.Application")
    On Error GoTo 0
    If wdApp Is Nothing Then
        Set wdApp = CreateObject("Word.Application")
        bNewApp = True
    End If
    Set wdDoc = wdApp.Documents.Add
    wdDoc.PageSetup.PaperSize = wdA4
    wdApp.Visible = True
[...]
wdDoc.Bookmarks("\EndOfDoc").Range.InsertFile Filename:=curpath & "\" & sh.Cells(r, 7).Value

正如您所看到的那样,没有什么可以改变颜色,我相信它(可能?)与打开Word文档时使用的一些默认参数有关。

有关如何解决这种情况的任何建议?

编辑: 这里有2个截图:原始文档和VBA打开的文档: this is how it's supposed to look

and this is the orange 2 shades lighter

0 个答案:

没有答案