2021年2月2日星期二

C# 给Word不同页面设置不同背景

给Word文档设置背景时,通常只能针对整篇文档设置统一的背景,如果需要对某些页面单独设置背景,则需要通过另外的方式来实现。本文通过C# 程序代码演示如何来实现。并附VB.NET代码作参考。

思路:通过在页眉中添加形状或者图片,并将形状或图片平铺(即设置形状或图片大小为页面大小)到整个页面。添加背景时,通过添加形状并设置形状颜色来设置成纯色背景效果;通过添加图片来实现图片背景效果。

本次程序运行环境中包括:引入Spire.Doc.dll;.Net Framework 4.5.1

设置不同背景时,分以下2种情况:

1. 只需设置首页背景和其他页面不同

1.1 设置纯色背景

【C#】

using Spire.Doc;using Spire.Doc.Documents;using Spire.Doc.Fields;using System.Drawing;namespace DifferentBackground1{ class Program {  static void Main(string[] args)  {   //加载Word测试文档   Document doc = new Document();   doc.LoadFromFile("测试.docx");   //获取第一节   Section section = doc.Sections[0];   //设置首页页眉页脚不同   section.PageSetup.DifferentFirstPageHeaderFooter = true;   //在首页页眉添加形状   HeaderFooter firstpageheader = section.HeadersFooters.FirstPageFooter;//获取首页页眉   firstpageheader.Paragraphs.Clear();//清除页眉默认的段落格式(因默认页眉格式中包含有一条横线)   Paragraph firstpara = firstpageheader.AddParagraph();//重新添加段落   float width = section.PageSetup.PageSize.Width;//获取页面宽度、高度   float height = section.PageSetup.PageSize.Height;   ShapeObject shape = firstpara.AppendShape(width, height, ShapeType.Rectangle);//添加形状   shape.BehindText = true;//设置形状衬于文字下方   shape.HorizontalAlignment = ShapeHorizontalAlignment.Center;//设置对齐方式,铺满页面   shape.VerticalOrigin = VerticalOrigin.TopMarginArea;   shape.FillColor = Color.LightBlue;//形状颜色   //在其他页面的页眉中添加形状   HeaderFooter otherheader = section.HeadersFooters.Header;   otherheader.Paragraphs.Clear();   Paragraph otherpara = otherheader.AddParagraph();   ShapeObject shape1 = otherpara.AppendShape(width, height, ShapeType.Rectangle);   shape1.BehindText = true;   shape1.HorizontalAlignment = ShapeHorizontalAlignment.Center;   shape1.VerticalOrigin = VerticalOrigin.TopMarginArea;   shape1.FillColor = Color.Pink;   //保存文档   doc.SaveToFile("ColorBackground1.docx", FileFormat.Docx2013);   System.Diagnostics.Process.Start("ColorBackground1.docx");  } }}

 

 

 

【VB.NET】

Imports Spire.DocImports Spire.Doc.DocumentsImports Spire.Doc.FieldsImports System.DrawingNamespace DifferentBackground1 Class Program  Private Shared Sub Main(args As String())   '加载Word测试文档   Dim doc As New Document()   doc.LoadFromFile("测试.docx")   '获取第一节   Dim section As Section = doc.Sections(0)   '设置首页页眉页脚不同   section.PageSetup.DifferentFirstPageHeaderFooter = True   '在首页页眉添加形状   Dim firstpageheader As HeaderFooter = section.HeadersFooters.FirstPageFooter   '获取首页页眉   firstpageheader.Paragraphs.Clear()   '清除页眉默认的段落格式(因默认页眉格式中包含有一条横线)   Dim firstpara As Paragraph = firstpageheader.AddParagraph()   '重新添加段落   Dim width As Single = section.PageSetup.PageSize.Width   '获取页面宽度、高度   Dim height As Single = section.PageSetup.PageSize.Height   Dim shape As ShapeObject = firstpara.AppendShape(width, height, ShapeType.Rectangle)   '添加形状   shape.BehindText = True   '设置形状衬于文字下方   shape.HorizontalAlignment = ShapeHorizontalAlignment.Center   '设置对齐方式,铺满页面   shape.VerticalOrigin = VerticalOrigin.TopMarginArea   shape.FillColor = Color.LightBlue   '形状颜色   '在其他页面的页眉中添加形状   Dim otherheader As HeaderFooter = section.HeadersFooters.Header   otherheader.Paragraphs.Clear()   Dim otherpara As Paragraph = otherheader.AddParagraph()   Dim shape1 As ShapeObject = otherpara.AppendShape(width, height, ShapeType.Rectangle)   shape1.BehindText = True   shape1.HorizontalAlignment = ShapeHorizontalAlignment.Center   shape1.VerticalOrigin = VerticalOrigin.TopMarginArea   shape1.FillColor = Color.Pink   '保存文档   doc.SaveToFile("ColorBackground1.docx", FileFormat.Docx2013)   System.Diagnostics.Process.Start("ColorBackground1.docx")  End Sub End ClassEnd Namespace

View Code

 

1.2 设置图片背景

【C#】

using Spire.Doc;using Spire.Doc.Documents;using Spire.Doc.Fields;namespace DifferentBackground1{ class Program {  static void Main(string[] args)  {    //加载Word测试文档   Document doc = new Document();   doc.LoadFromFile("测试.docx");   //获取第一节   Section section = doc.Sections[0];   //设置首页页眉页脚不同   section.PageSetup.DifferentFirstPageHeaderFooter = true;   HeaderFooter firstpageheader = section.HeadersFooters.FirstPageFooter;//获取首页页眉   firstpageheader.Paragraphs.Clear();//清除页眉默认的段落格式(因默认页眉格式中包含有一条横线)   Paragraph firstpara = firstpageheader.AddParagraph();//重新添加段落   //获取页面宽度、高度   float width = section.PageSetup.PageSize.Width;   float height = section.PageSetup.PageSize.Height;      //添加图片到首页页眉   DocPicture pic0 = firstpara.AppendPicture("1.png");   pic0.TextWrappingStyle = TextWrappingStyle.Behind;   pic0.HorizontalAlignment = ShapeHorizontalAlignment.Center;   pic0.VerticalOrigin = VerticalOrigin.TopMarginArea;   pic0.Width = width;   pic0.Height = height;   //在其他页面的页眉中添加图片   HeaderFooter otherheader = section.HeadersFooters.Header;   otherheader.Paragraphs.Clear();   Paragraph otherpara = otherheader.AddParagraph();   DocPicture pic1 = otherpara.AppendPicture("2.png");   pic1.TextWrappingStyle = TextWrappingStyle.Behind;   pic1.HorizontalAlignment = ShapeHorizontalAlignment.Center;   pic1.VerticalOrigin = VerticalOrigin.TopMarginArea;   pic1.Width = width;   pic1.Height = height;   //保存文档   doc.SaveToFile("ImageBackground1.docx", FileFormat.Docx2013);   System.Diagnostics.Process.Start("ImageBackground1.docx");  } }}

 

 

【VB.NET】

Imports Spire.DocImports Spire.Doc.DocumentsImports Spire.Doc.FieldsNamespace DifferentBackground1 Class Program  Private Shared Sub Main(args As String())   '加载Word测试文档   Dim doc As New Document()   doc.LoadFromFile("测试.docx")   '获取第一节   Dim section As Section = doc.Sections(0)   '设置首页页眉页脚不同   section.PageSetup.DifferentFirstPageHeaderFooter = True   Dim firstpageheader As HeaderFooter = section.HeadersFooters.FirstPageFooter   '获取首页页眉   firstpageheader.Paragraphs.Clear()   '清除页眉默认的段落格式(因默认页眉格式中包含有一条横线)   Dim firstpara As Paragraph = firstpageheader.AddParagraph()   '重新添加段落   '获取页面宽度、高度   Dim width As Single = section.PageSetup.PageSize.Width   Dim height As Single = section.PageSetup.PageSize.Height   '添加图片到首页页眉   Dim pic0 As DocPicture = firstpara.AppendPicture("1.png")   pic0.TextWrappingStyle = TextWrappingStyle.Behind   pic0.HorizontalAlignment = ShapeHorizontalAlignment.Center   pic0.VerticalOrigin = VerticalOrigin.TopMarginArea   pic0.Width = width   pic0.Height = height   '在其他页面的页眉中添加图片   Dim otherheader As HeaderFooter = section.HeadersFooters.Header   otherheader.Paragraphs.Clear()   Dim otherpara As Paragraph = otherheader.AddParagraph()   Dim pic1 As DocPicture = otherpara.AppendPicture("2.png")   pic1.TextWrappingStyle = TextWrappingStyle.Behind   pic1.HorizontalAlignment = ShapeHorizontalAlignment.Center   pic1.VerticalOrigin = VerticalOrigin.TopMarginArea   pic1.Width = width   pic1.Height = height   '保存文档   doc.SaveToFile("ImageBackground1.docx", FileFormat.Docx2013)   System.Diagnostics.Process.Start("ImageBackground1.docx")  End Sub End ClassEnd Namespace

View Code

 

2. 设置指定多个页面背景不同

注:给多个页面设置不同背景时,需要通过获取不同节的页眉来设置,本次程序环境中所用源文档已设置了多个节,如需手动设置分节,可参考代码:

document.Sections[0].Paragraphs[0].InsertSectionBreak(SectionBreakType.NoBreak);

2.1 设置纯色背景

【C#】

using Spire.Doc;using Spire.Doc.Documents;using Spire.Doc.Fields;using System.Drawing;namespace DifferentBackground2{ class Program {  static void Main(string[] args)  {   //加载Word文档   Document doc = new Document();   doc.LoadFromFile("测试.docx");   //获取第一节   Section section1 = doc.Sections[0];   //获取页面宽度、高度   float width = section1.PageSetup.PageSize.Width;   float height = section1.PageSetup.PageSize.Height;   //添加图片到页眉   HeaderFooter header1 = section1.HeadersFooters.Header;   header1.Paragraphs.Clear();   Paragraph para1 = header1.AddParagraph();   ShapeObject shape1 = para1.AppendShape(width, height, ShapeType.Rectangle);//添加形状   shape1.BehindText = true;//设置形状衬于文字下方   shape1.HorizontalAlignment = ShapeHorizontalAlignment.Center;//设置对齐方式,铺满页面   shape1.VerticalOrigin = VerticalOrigin.TopMarginArea;   shape1.FillColor = Color.LightSalmon;//形状颜色   //同理设置第二节页眉中的图片   Section section2 = doc.Sections[1];   HeaderFooter header2 = section2.HeadersFooters.Header;   header2.Paragraphs.Clear();   Paragraph para2 = header2.AddParagraph();   ShapeObject shape2 = para2.AppendShape(width, height, ShapeType.Rectangle);//添加形状   shape2.BehindText = true;//设置形状衬于文字下方   shape2.HorizontalAlignment = ShapeHorizontalAlignment.Center;//设置对齐方式,铺满页面   shape2.VerticalOrigin = VerticalOrigin.TopMarginArea;   shape2.FillColor = Color.Moccasin;//形状颜色   //同理设置第三节中的页眉中的图片   Section section3 = doc.Sections[2];   HeaderFooter header3 = section3.HeadersFooters.Header;   header3.Paragraphs.Clear();   Paragraph para3 = header3.AddParagraph();   ShapeObject shape3 = para3.AppendShape(width, height, ShapeType.Rectangle);//添加形状   shape3.BehindText = true;//设置形状衬于文字下方   shape3.HorizontalAlignment = ShapeHorizontalAlignment.Center;//设置对齐方式,铺满页面   shape3.VerticalOrigin = VerticalOrigin.TopMarginArea;   shape3.FillColor = Color.LawnGreen;//形状颜色   //保存文档   doc.SaveToFile("ColorBackground2.docx", FileFormat.Docx2013);   System.Diagnostics.Process.Start("ColorBackground2.docx");  } }}

 

 

【VB.NET】

Imports Spire.DocImports Spire.Doc.DocumentsImports Spire.Doc.FieldsImports System.DrawingNamespace DifferentBackground2 Class Program  Private Shared Sub Main(args As String())   '加载Word文档   Dim doc As New Document()   doc.LoadFromFile("测试.docx")   '获取第一节   Dim section1 As Section = doc.Sections(0)   '获取页面宽度、高度   Dim width As Single = section1.PageSetup.PageSize.Width   Dim height As Single = section1.PageSetup.PageSize.Height   '添加图片到页眉   Dim header1 As HeaderFooter = section1.HeadersFooters.Header   header1.Paragraphs.Clear()   Dim para1 As Paragraph = header1.AddParagraph()   Dim shape1 As ShapeObject = para1.AppendShape(width, height, ShapeType.Rectangle)   '添加形状   shape1.BehindText = True   '设置形状衬于文字下方   shape1.HorizontalAlignment = ShapeHorizontalAlignment.Center   '设置对齐方式,铺满页面   shape1.VerticalOrigin = VerticalOrigin.TopMarginArea   shape1.FillColor = Color.LightSalmon   '形状颜色   '同理设置第二节页眉中的图片   Dim section2 As Section = doc.Sections(1)   Dim header2 As HeaderFooter = section2.HeadersFooters.Header   header2.Paragraphs.Clear()   Dim para2 As Paragraph = header2.AddParagraph()   Dim shape2 As ShapeObject = para2.AppendShape(width, height, ShapeType.Rectangle)   '添加形状   shape2.BehindText = True   '设置形状衬于文字下方   shape2.HorizontalAlignment = ShapeHorizontalAlignment.Center   '设置对齐方式,铺满页面   shape2.VerticalOrigin = VerticalOrigin.TopMarginArea   shape2.FillColor = Color.Moccasin   '形状颜色   '同理设置第三节中的页眉中的图片   Dim section3 As Section = doc.Sections(2)   Dim header3 As HeaderFooter = section3.HeadersFooters.Header   header3.Paragraphs.Clear()   Dim para3 As Paragraph = header3.AddParagraph()   Dim shape3 As ShapeObject = para3.AppendShape(width, height, ShapeType.Rectangle)   '添加形状   shape3.BehindText = True   '设置形状衬于文字下方   shape3.HorizontalAlignment = ShapeHorizontalAlignment.Center   '设置对齐方式,铺满页面   shape3.VerticalOrigin = VerticalOrigin.TopMarginArea   shape3.FillColor = Color.LawnGreen   '形状颜色   '保存文档   doc.SaveToFile("ColorBackground2.docx", FileFormat.Docx2013)   System.Diagnostics.Process.Start("ColorBackground2.docx")  End Sub End ClassEnd Namespace

View Code

 

2.2 设置图片背景

【C#

using Spire.Doc;using Spire.Doc.Documents;using Spire.Doc.Fields;namespace DifferentBackground2{ class Program {  static void Main(string[] args)  {   //加载Word文档   Document doc = new Document();   doc.LoadFromFile("测试.docx");   //获取第一节   Section section1 = doc.Sections[0];   //添加图片到页眉   HeaderFooter header1 = section1.HeadersFooters.Header;   header1.Paragraphs.Clear();   Paragraph para1 = header1.AddParagraph();   DocPicture pic1 = para1.AppendPicture("1.png");   pic1.TextWrappingStyle = TextWrappingStyle.Behind;   pic1.HorizontalAlignment = ShapeHorizontalAlignment.Center;   pic1.VerticalOrigin = VerticalOrigin.TopMarginArea;   float width = section1.PageSetup.PageSize.Width;   float height = section1.PageSetup.PageSize.Height;   pic1.Width = width;   pic1.Height = height;   //同理设置第二节页眉中的图片   Section section2 = doc.Sections[1];   HeaderFooter header2 = section2.HeadersFooters.Header;   header2.Paragraphs.Clear();   Paragraph para2 = header2.AddParagraph();   DocPicture pic2 = para2.AppendPicture("2.png");   pic2.TextWrappingStyle = TextWrappingStyle.Behind;   pic2.HorizontalAlignment = ShapeHorizontalAlignment.Center;   pic2.VerticalOrigin = VerticalOrigin.TopMarginArea;    pic2.Width = width;   pic2.Height = height;   //同理设置第三节中的页眉中的图片   Section section3 = doc.Sections[2];   HeaderFooter header3 = section3.HeadersFooters.Header;   header3.Paragraphs.Clear();   Paragraph para3 = header3.AddParagraph();   DocPicture pic3 = para3.AppendPicture("3.png");   pic3.TextWrappingStyle = TextWrappingStyle.Behind;   pic3.HorizontalAlignment = ShapeHorizontalAlignment.Center;   pic3.VerticalOrigin = VerticalOrigin.TopMarginArea;   pic3.Width = width;   pic3.Height = height;   //保存文档   doc.SaveToFile("ImageBackground2.docx", FileFormat.Docx2013);   System.Diagnostics.Process.Start("ImageBackground2.docx");  } }}

 

 

【VB.NET】

Imports Spire.DocImports Spire.Doc.DocumentsImports Spire.Doc.FieldsNamespace DifferentBackground2 Class Program  Private Shared Sub Main(args As String())   '加载Word文档   Dim doc As New Document()   doc.LoadFromFile("测试.docx")   '获取第一节   Dim section1 As Section = doc.Sections(0)   '添加图片到页眉   Dim header1 As HeaderFooter = section1.HeadersFooters.Header   header1.Paragraphs.Clear()   Dim para1 As Paragraph = header1.AddParagraph()   Dim pic1 As DocPicture = para1.AppendPicture("1.png")   pic1.TextWrappingStyle = TextWrappingStyle.Behind   pic1.HorizontalAlignment = ShapeHorizontalAlignment.Center   pic1.VerticalOrigin = VerticalOrigin.TopMarginArea   Dim width As Single = section1.PageSetup.PageSize.Width   Dim height As Single = section1.PageSetup.PageSize.Height   pic1.Width = width   pic1.Height = height   '同理设置第二节页眉中的图片   Dim section2 As Section = doc.Sections(1)   Dim header2 As HeaderFooter = section2.HeadersFooters.Header   header2.Paragraphs.Clear()   Dim para2 As Paragraph = header2.AddParagraph()   Dim pic2 As DocPicture = para2.AppendPicture("2.png")   pic2.TextWrappingStyle = TextWrappingStyle.Behind   pic2.HorizontalAlignment = ShapeHorizontalAlignment.Center   pic2.VerticalOrigin = VerticalOrigin.TopMarginArea   pic2.Width = width   pic2.Height = height   '同理设置第三节中的页眉中的图片   Dim section3 As Section = doc.Sections(2)   Dim header3 As HeaderFooter = section3.HeadersFooters.Header   header3.Paragraphs.Clear()   Dim para3 As Paragraph = header3.AddParagraph()   Dim pic3 As DocPicture = para3.AppendPicture("3.png")   pic3.TextWrappingStyle = TextWrappingStyle.Behind   pic3.HorizontalAlignment = ShapeHorizontalAlignment.Center   pic3.VerticalOrigin = VerticalOrigin.TopMarginArea   pic3.Width = width   pic3.Height = height   '保存文档   doc.SaveToFile("ImageBackground2.docx", FileFormat.Docx2013)   System.Diagnostics.Process.Start("ImageBackground2.docx")  End Sub End ClassEnd Namespace

View Code

 









原文转载:http://www.shaoqun.com/a/522447.html

跨境电商:https://www.ikjzd.com/

四海商舟:https://www.ikjzd.com/w/1516

anker:https://www.ikjzd.com/w/1027


给Word文档设置背景时,通常只能针对整篇文档设置统一的背景,如果需要对某些页面单独设置背景,则需要通过另外的方式来实现。本文通过C#程序代码演示如何来实现。并附VB.NET代码作参考。思路:通过在页眉中添加形状或者图片,并将形状或图片平铺(即设置形状或图片大小为页面大小)到整个页面。添加背景时,通过添加形状并设置形状颜色来设置成纯色背景效果;通过添加图片来实现图片背景效果。本次程序运行环境中包括
败欧洲:败欧洲
cb体系:cb体系
口述:小三问老公她的胸部手感好不好:口述:小三问老公她的胸部手感好不好
全球航运受疫情冲击,外媒:疫情正在阻塞全球贸易动脉:全球航运受疫情冲击,外媒:疫情正在阻塞全球贸易动脉
干货|史上最详细的亚马逊品牌备案教程! 跨境知道:干货|史上最详细的亚马逊品牌备案教程! 跨境知道

没有评论:

发表评论

注意:只有此博客的成员才能发布评论。