C# 操作 Word 全域查找且替换(含图片对象)

2024-03-29 20:20

本文主要是介绍C# 操作 Word 全域查找且替换(含图片对象),希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

目录

关于全域查找且替换

Word应用样本

SqlServer数据表部分设计样本

范例运行环境

配置Office DCOM

设计实现

组件库引入

实现原理

查找且替换的核心代码

窗格内容

页眉内容

页脚内容

形状内容

小结


关于全域查找且替换

C#全域操作 Word 查找且替换主要包括如下四个对象:

序号对象说明
1Word.Appication.Selection窗格对象
2Word.Section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range页眉对象
3Word.Section.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range页脚对象
4Word.Shape.TextFrame.TextRange形状对象

我们需要创建 Word.Find 对象,对上述相关区域分别进行查找替换操作。

Word应用样本

我们假设设计简历模板的输出,并查找且替换对应的关键字,如下图:

其中对应项目的关键字如 {xm}、{xb} 等则为查找且替换的对象,{grzp} 关键字处我们要处理图片的插入。

SqlServer数据表部分设计样本

设计 PersonInfo 数据表如下:

创建脚本如下:

CREATE TABLE [dbo].[PersonInfo]([id] [uniqueidentifier] ROWGUIDCOL  NOT NULL,[sfzh] [varchar](18) NOT NULL,[xm] [nvarchar](50) NOT NULL,[xb] [nvarchar](1) NULL,[grzp] [image] NULL,CONSTRAINT [PK_PersonInfo] PRIMARY KEY CLUSTERED 
([id] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY],CONSTRAINT [IX_PersonInfo] UNIQUE NONCLUSTERED 
([sfzh] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GOALTER TABLE [dbo].[PersonInfo] ADD  CONSTRAINT [DF_PersonInfo_id]  DEFAULT (newid()) FOR [id]
GO

通过查询 select sfzh,xm,xb,grzp from PersonInfo where id=xxx 得到DataSet,再取 Tables[0]中的数据。 

范例运行环境

操作系统: Windows Server 2019 DataCenter

操作系统上安装 Office Excel 2016

数据库:Microsoft SQL Server 2016

.net版本: .netFramework4.7.1 或以上

开发工具:VS2019  C#

配置Office DCOM

配置方法可参照我的文章《C# 读取Word表格到DataSet》进行处理和配置。

设计实现

组件库引入

实现原理

我们假设查询出表数据,存入对应的变量,其中将二进制字段grzp数据写入到d:\test.jpg生成图片,示例代码如下:

DataTable dt=DataSet.Tables[0];string sfzh = dt.Rows[0]["sfzh"].ToString();
object bt = dt.Rows[0]["grzp"];
byte[] bFile2 = (byte[])bt;
System.IO.File.WriteAllBytes("@d:\test.jpg", bFile2);string xm = dt.Rows[0]["xm"].ToString();
string xb = dt.Rows[0]["xb"].ToString();

 然后我们将其存到二维字符串数组 _repls 里,如下代码:

string[,] _repls = new string[4, 2];
_repls[0, 0] = "{sfzh}";
_repls[0, 1] = sfzh;
_repls[1, 0] = "{xm}";
_repls[1, 1] = xm;
_repls[2, 0] = "{xb}";
_repls[2, 1] = xb;
_repls[3, 0] = "RepalceFromImageFilename_{grzp}";
_repls[3, 1] = "@d:\test.jpg";

其中第一元素存储要查找的关键字,第二元素存储要替换的值。注意:替换图片使用了自定义的RepalceFromImageFilename_ 前缀关键字,则表示值为对应的文件路径。数据准备完毕后,我们将通过遍历数组对 Word 进行查找且替换操作。

查找且替换的核心代码

窗格内容

示例代码如下:

                WordApp.Options.ReplaceSelection = true;Word.Find fnd = WordApp.Selection.Find;for(int i=0;i<_repls.GetLength(0);i++){if (_repls[i, 0] == "" || _repls[i, 0] == null){continue;}fnd.ClearFormatting();string ft = _repls[i, 0];string replaceType = "";if (ft.IndexOf("RepalceFromImageFilename_") == 0){ft = ft.Replace("RepalceFromImageFilename_", "");replaceType = "RepalceFromImageFilename";}else if (ft.IndexOf("RepalceFromImageFilenameNoDelete_") == 0){ft = ft.Replace("RepalceFromImageFilenameNoDelete_", "");replaceType = "RepalceFromImageFilenameNoDelete";}Object findText = ft;Object matchCase = false;Object matchWholeWord = Type.Missing;Object matchWildcards = false;Object matchSoundsLike = false;Object matchAllWordForms = false;Object forward = true;Object wrap =Word.WdFindWrap.wdFindContinue;Object format = false;Object replaceWith ="";Object replace =Type.Missing;;Object matchKashida = Type.Missing;Object matchDiacritics = Type.Missing;Object matchAlefHamza = Type.Missing;Object matchControl = Type.Missing;while(fnd.Execute(ref findText, ref matchCase, ref matchWholeWord,ref matchWildcards, ref matchSoundsLike, ref matchAllWordForms, ref forward, ref wrap, ref format, ref replaceWith,ref replace, ref matchKashida, ref matchDiacritics,ref matchAlefHamza, ref matchControl)){string r_f=WordApp.Selection.Font.Name.ToString();if (replaceType == "RepalceFromImageFilename" || replaceType == "RepalceFromImageFilenameNoDelete"){if (File.Exists(_repls[i, 1].ToString())){WordApp.Selection.Range.Select();Word.InlineShape pic = WordApp.Selection.InlineShapes.AddPicture(_repls[i, 1].ToString(), false, true, WordApp.Selection.Range);if (replConfigs != null){string[] cv = replConfigs[ft].Split('|');pic.Width = int.Parse(cv[0]);pic.Height = int.Parse(cv[1]);}if (replaceType == "RepalceFromImageFilename"){File.Delete(_repls[i, 1].ToString());}}}else{WordApp.Selection.Range.Text = _repls[i, 1].ToString();}}}
页眉内容

示例代码如下:

                foreach (Word.Section header in WordDoc.Sections){Word.Range headerRange = header.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;Word.Find fnd = headerRange.Find;for (int i = 0; i < _repls.GetLength(0); i++){if (_repls[i, 0] == "" || _repls[i, 0] == null){continue;}fnd.ClearFormatting();string ft = _repls[i, 0];string replaceType = "";if (ft.IndexOf("RepalceFromImageFilename_") == 0){ft = ft.Replace("RepalceFromImageFilename_", "");replaceType = "RepalceFromImageFilename";}else if (ft.IndexOf("RepalceFromImageFilenameNoDelete_") == 0){ft = ft.Replace("RepalceFromImageFilenameNoDelete_", "");replaceType = "RepalceFromImageFilenameNoDelete";}Object findText = ft;Object matchCase = false;Object matchWholeWord = Type.Missing;Object matchWildcards = false;Object matchSoundsLike = false;Object matchAllWordForms = false;Object forward = true;Object wrap = Word.WdFindWrap.wdFindContinue;Object format = false;Object replaceWith = "";Object replace = Type.Missing; ;Object matchKashida = Type.Missing;Object matchDiacritics = Type.Missing;Object matchAlefHamza = Type.Missing;Object matchControl = Type.Missing;while (fnd.Execute(ref findText, ref matchCase, ref matchWholeWord, ref matchWildcards, ref matchSoundsLike, ref matchAllWordForms,ref forward, ref wrap, ref format, ref replaceWith, ref replace, ref matchKashida, ref matchDiacritics, ref matchAlefHamza, ref matchControl)){string r_f = WordApp.Selection.Font.Name.ToString();if (replaceType == "RepalceFromImageFilename" || replaceType == "RepalceFromImageFilenameNoDelete"){if (File.Exists(_repls[i, 1].ToString())){WordApp.Selection.Range.Select();Word.InlineShape pic = WordApp.Selection.InlineShapes.AddPicture(_repls[i, 1].ToString(), false, true, headerRange);if (replaceType == "RepalceFromImageFilename"){File.Delete(_repls[i, 1].ToString());}}}else{headerRange.Text = _repls[i, 1].ToString();}}}}
页脚内容

示例代码如下:

                foreach (Word.Section footer in WordDoc.Sections){Word.Range footerRange = footer.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;Word.Find fnd = footerRange.Find;for (int i = 0; i < _repls.GetLength(0); i++){if (_repls[i, 0] == "" || _repls[i, 0] == null){continue;}fnd.ClearFormatting();string ft = _repls[i, 0];string replaceType = "";if (ft.IndexOf("RepalceFromImageFilename_") == 0){ft = ft.Replace("RepalceFromImageFilename_", "");replaceType = "RepalceFromImageFilename";}else if (ft.IndexOf("RepalceFromImageFilenameNoDelete_") == 0){ft = ft.Replace("RepalceFromImageFilenameNoDelete_", "");replaceType = "RepalceFromImageFilenameNoDelete";}Object findText = ft;Object matchCase = false;Object matchWholeWord = Type.Missing;Object matchWildcards = false;Object matchSoundsLike = false;Object matchAllWordForms = false;Object forward = true;Object wrap = Word.WdFindWrap.wdFindContinue;Object format = false;Object replaceWith = "";Object replace = Type.Missing; ;Object matchKashida = Type.Missing;Object matchDiacritics = Type.Missing;Object matchAlefHamza = Type.Missing;Object matchControl = Type.Missing;while (fnd.Execute(ref findText, ref matchCase, ref matchWholeWord, ref matchWildcards, ref matchSoundsLike, ref matchAllWordForms,ref forward, ref wrap, ref format, ref replaceWith, ref replace, ref matchKashida, ref matchDiacritics, ref matchAlefHamza, ref matchControl)){string r_f = WordApp.Selection.Font.Name.ToString();//						WordApp.Selection.Font.Name=r_f;//						WordApp.Selection.Range//						WordApp.Selection.TypeText(_repls[i,1].ToString());if (replaceType == "RepalceFromImageFilename" || replaceType == "RepalceFromImageFilenameNoDelete"){if (File.Exists(_repls[i, 1].ToString())){WordApp.Selection.Range.Select();Word.InlineShape pic = WordApp.Selection.InlineShapes.AddPicture(_repls[i, 1].ToString(), false, true, footerRange);if (replaceType == "RepalceFromImageFilename"){File.Delete(_repls[i, 1].ToString());}}}else{footerRange.Text = _repls[i, 1].ToString();}}}}
形状内容

示例代码如下:

                foreach (Word.Shape shape in WordDoc.Shapes){if (shape.TextFrame.HasText == 0){continue; }Word.Find fnd = shape.TextFrame.TextRange.Find;//Word.Find fnd = WordDoc.Content.Find;for (int i = 0; i < _repls.GetLength(0); i++){if (_repls[i, 0] == "" || _repls[i, 0] == null){continue;}fnd.ClearFormatting();string ft = _repls[i, 0];string replaceType = "";if (ft.IndexOf("RepalceFromImageFilename_") == 0){ft = ft.Replace("RepalceFromImageFilename_", "");replaceType = "RepalceFromImageFilename";}else if (ft.IndexOf("RepalceFromImageFilenameNoDelete_") == 0){ft = ft.Replace("RepalceFromImageFilenameNoDelete_", "");replaceType = "RepalceFromImageFilenameNoDelete";}Object findText = ft;Object matchCase = false;Object matchWholeWord = Type.Missing;Object matchWildcards = false;Object matchSoundsLike = false;Object matchAllWordForms = false;Object forward = true;Object wrap = Word.WdFindWrap.wdFindContinue;Object format = false;Object replaceWith = "";Object replace = Type.Missing; ;Object matchKashida = Type.Missing;Object matchDiacritics = Type.Missing;Object matchAlefHamza = Type.Missing;Object matchControl = Type.Missing;while (fnd.Execute(ref findText, ref matchCase, ref matchWholeWord, ref matchWildcards, ref matchSoundsLike, ref matchAllWordForms,ref forward, ref wrap, ref format, ref replaceWith, ref replace, ref matchKashida, ref matchDiacritics, ref matchAlefHamza, ref matchControl)){string r_f = WordApp.Selection.Font.Name.ToString();if (replaceType == "RepalceFromImageFilename" || replaceType == "RepalceFromImageFilenameNoDelete"){if (File.Exists(_repls[i, 1].ToString())){Word.InlineShape pic = WordApp.Selection.InlineShapes.AddPicture(_repls[i, 1].ToString(), false, true, shape.TextFrame.TextRange);if (replaceType == "RepalceFromImageFilename"){File.Delete(_repls[i, 1].ToString());}}}else{shape.TextFrame.TextRange.Text = _repls[i, 1].ToString();}}}}

小结

1、示例代码是冗余的写法,在实际应用中我们需要进行优化。

2、添加图片后,代码默认是使用完毕后,删除图片文件以释放空间,我们自定义了 RepalceFromImageFilenameNoDelete_ 前缀关键字,表示使用完毕后不进行文件删除。

3、示例代码中 Word 表示 using Word=Microsoft.Office.Interop.Word; 的引用。

4、示例代码 WordDoc 表示对 Word.Document 的引用。

示例代码我们提供了操作的关键方法,这里仅作参考,其它代码不再做展示,欢迎大家评论指教!

这篇关于C# 操作 Word 全域查找且替换(含图片对象)的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/859545

相关文章

C++对象布局及多态实现探索之内存布局(整理的很多链接)

本文通过观察对象的内存布局,跟踪函数调用的汇编代码。分析了C++对象内存的布局情况,虚函数的执行方式,以及虚继承,等等 文章链接:http://dev.yesky.com/254/2191254.shtml      论C/C++函数间动态内存的传递 (2005-07-30)   当你涉及到C/C++的核心编程的时候,你会无止境地与内存管理打交道。 文章链接:http://dev.yesky

[word] word设置上标快捷键 #学习方法#其他#媒体

word设置上标快捷键 办公中,少不了使用word,这个是大家必备的软件,今天给大家分享word设置上标快捷键,希望在办公中能帮到您! 1、添加上标 在录入一些公式,或者是化学产品时,需要添加上标内容,按下快捷键Ctrl+shift++就能将需要的内容设置为上标符号。 word设置上标快捷键的方法就是以上内容了,需要的小伙伴都可以试一试呢!

C# 中变量未赋值能用吗,各种类型的初始值是什么

对于一个局部变量,如果未赋值,是不能使用的 对于属性,未赋值,也能使用有系统默认值,默认值如下: 对于 int 类型,默认值是 0;对于 int? 类型,默认值是 null;对于 bool 类型,默认值是 false;对于 bool? 类型,默认值是 null;对于 string 类型,默认值是 null;对于 string? 类型,哈哈,没有这种写法,会出错;对于 DateTime 类型,默

RedHat运维-Linux文本操作基础-AWK进阶

你不用整理,跟着敲一遍,有个印象,然后把它保存到本地,以后要用再去看,如果有了新东西,你自个再添加。这是我参考牛客上的shell编程专项题,只不过换成了问答的方式而已。不用背,就算是我自己亲自敲,我现在好多也记不住。 1. 输出nowcoder.txt文件第5行的内容 2. 输出nowcoder.txt文件第6行的内容 3. 输出nowcoder.txt文件第7行的内容 4. 输出nowcode

【Altium】查找PCB上未连接的网络

【更多软件使用问题请点击亿道电子官方网站】 1、文档目标: PCB设计后期检查中找出没有连接的网络 应用场景:PCB设计后期,需要检查是否所有网络都已连接布线。虽然未连接的网络会有飞线显示,但是由于布线后期整板布线密度较高,虚连,断连的网络用肉眼难以轻易发现。用DRC检查也可以找出未连接的网络,如果PCB中DRC问题较多,查找起来就不是很方便。使用PCB Filter面板来达成目的相比DRC

JAVA读取MongoDB中的二进制图片并显示在页面上

1:Jsp页面: <td><img src="${ctx}/mongoImg/show"></td> 2:xml配置: <?xml version="1.0" encoding="UTF-8"?><beans xmlns="http://www.springframework.org/schema/beans"xmlns:xsi="http://www.w3.org/2001

vue项目集成CanvasEditor实现Word在线编辑器

CanvasEditor实现Word在线编辑器 官网文档:https://hufe.club/canvas-editor-docs/guide/schema.html 源码地址:https://github.com/Hufe921/canvas-editor 前提声明: 由于CanvasEditor目前不支持vue、react 等框架开箱即用版,所以需要我们去Git下载源码,拿到其中两个主

SQL Server中,always on服务器的相关操作

在SQL Server中,建立了always on服务,可用于数据库的同步备份,当数据库出现问题后,always on服务会自动切换主从服务器。 例如192.168.1.10为主服务器,12为从服务器,当主服务器出现问题后,always on自动将主服务器切换为12,保证数据库正常访问。 对于always on服务器有如下操作: 1、切换主从服务器:假如需要手动切换主从服务器时(如果两个服务

C#中,decimal类型使用

在Microsoft SQL Server中numeric类型,在C#中使用的时候,需要用decimal类型与其对应,不能使用int等类型。 SQL:numeric C#:decimal

JavaWeb系列二十: jQuery的DOM操作 下

jQuery的DOM操作 CSS-DOM操作多选框案例页面加载完毕触发方法作业布置jQuery获取选中复选框的值jQuery控制checkbox被选中jQuery控制(全选/全不选/反选)jQuery动态添加删除用户 CSS-DOM操作 获取和设置元素的样式属性: css()获取和设置元素透明度: opacity属性获取和设置元素高度, 宽度: height(), widt