WORD如何中单独制作单页背景色

Splendor、

WORD当中我想要其中一页为填充背景色，但是选了之后，直接默认所有页面都为这个颜色了，怎么才可以单独单页设置

zldccmx

zldccmx

之所以说是水红色，是因为在页面显示时，红色矩形框上面有一层蒙板。（页眉、页脚在页面显示时均会有一层蒙板）
直接打印出来则是红色----VbRed

shenjianrong163

zldccmx 发表于 2023-2-9 11:38

老师，这个应该还要取消链接到前一页的页眉哈。顺便问一下，如果不是填充背景色，而是填充图片，该怎样操作呢？谢谢！

zldccmx

而是填充图片

ActiveDocument.Shapes.AddPicture 图像名称, , , 0, 0, ActiveDocument.PageSetup.PageWidth, ActiveDocument.PageSetup.PageHeight

zldccmx

shenjianrong163

zldccmx 发表于 2023-2-10 08:13
ActiveDocument.Shapes.AddPicture 图像名称, , , 0, 0, ActiveDocument.PageSetup.PageWidth, ActiveDoc ...

谢谢老师！我一直在插入页眉图片的代码中瞎转。

zldccmx

shenjianrong163

zldccmx 发表于 2023-2-10 12:42

老师，代码到这儿出错。

1. Sub 设置单页背景为图片()
   
2.         Selection.InsertBreak Type:=wdSectionBreakNextPage '插入分节符
   
3.         ActiveDocument.Sections(2).Range.Select '选中第二节
   
4.         ActiveWindow.ActivePane.View.SeekView=wdSeekCurrtentPageHeader '第二节页眉
   
5.         With Selection
   
6.                 .HeaderFooter.LinkToPrevious=False '取消链接到上一节
   
7.         End With
   
8.         ActiveWindow.ActivePane.View.SeekView=wdSeekCurrtentPageFooter '第二节页脚
   
9.         With Selection
   
10.                 .HeaderFooter.LinkToPrevious=False '取消链接到上一节
    
11.         End With
    
12.         ActiveDocument.Sections(1).Range.Select '选中第１节
    
13.         ActiveWindow.ActivePane.View.SeekView=wdSeekCurrtentPageHeader '鼠标切换到页眉
    
14.         Set zl=Selection.HeaderFooter.Shapes.AddPicture(FileName:="D:\bg.jpg",LinkToFile:=0,SaveWithDocument:=0) '插入图片
    
15.         With zl
    
16.                 '图片环绕方式为衬于文字下方
    
17.                 .WrapFormat.Type=wdWrapNone
    
18.                 .ZOrder ZOrderCmd:=msoSendBehindText
    
19.                 .LockAspectBatio=msoFalsr '不锁定图片纵横比例
    
20.                 .Width=ActiveDocument.Sections(1).PageSetup.PageWidth '与纸张同宽
    
21.                 .Height=ActiveDocument.Sections(1).PageSetup.PageHeight '与纸张等高
    
22.                 .Left=-ActiveDocument.Sections(1).PageSetup.LeftMargin '左边距为0
    
23.                 .Top=-ActiveDocument.Sections(1).PageSetup.TopMargin + ActiveDocument.Sections(1).PageSetup.HeaderDistance '顶边距为0
    
24.         End With
    
25. End Sub

复制代码

shenjianrong163

代码更改后，可以运行，只是顶端还有一小块空白。

1. Sub 设置单页背景为图片()
   
2.     Dim zl As Object
   
3.     Selection.InsertBreak Type:=wdSectionBreakNextPage '插入分节符
   
4.     With ActiveDocument.Sections(2)
   
5.         .Headers(wdHeaderFooterPrimary).LinkToPrevious = False '取消页眉链接到前一节
   
6.         .Footers(wdHeaderFooterPrimary).LinkToPrevious = False '取消页脚链接到前一节
   
7.     End With
   
8.     Set zl = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.AddPicture("D:\1.jpg") '插入图片
   
9.     With zl
   
10.         '图片环绕方式为衬于文字下方
    
11.         .WrapFormat.Type = wdWrapNone
    
12.         .ZOrder ZOrderCmd:=msoSendBehindText
    
13.         .LockAspectRatio = msoFalse '不锁定图片纵横比例
    
14.         .Width = ActiveDocument.Sections(1).PageSetup.PageWidth '与纸张同宽
    
15.         .Height = ActiveDocument.Sections(1).PageSetup.PageHeight '与纸张等高
    
16.         .Left = -ActiveDocument.Sections(1).PageSetup.LeftMargin '左边距为0
    
17.         .Top = -ActiveDocument.Sections(1).PageSetup.TopMargin + ActiveDocument.Sections(1).PageSetup.HeaderDistance '顶边距为0
    
18.         .Top = -ActiveDocument.Sections(1).PageSetup.BottomMargin + ActiveDocument.Sections(1).PageSetup.FooterDistance '顶边距为0
    
19.     End With
    
20. End Sub

复制代码