当前位置： 首页 > news >正文

phpcms手机网站嘉兴行业网站建设

news 2025/10/13 23:19:16
phpcms手机网站,嘉兴行业网站建设,WordPress支持外链图片,发外链的网址目录 应用需求 设计 范例运行环境 配置Office DCOM 实现代码 组件库引入 ​核心代码 调用示例 小结 应用需求 在我的文章《C# 读取多条数据记录导出到 Word 标签模板》里，讲述读取多条数据记录结合 WORD 标签模板输出文件的功能，原有输出图片的…

目录

应用需求

设计

范例运行环境

配置Office DCOM

实现代码

组件库引入

​核心代码

调用示例

小结

应用需求

在我的文章《C# 读取多条数据记录导出到 Word 标签模板》里，讲述读取多条数据记录结合 WORD 标签模板输出文件的功能，原有输出图片的约定是在 WORD 模板文件中借助书签设置进行输出，如下图：

该书签名称代表了一条指令，格式为（输出关键字_图片宽度_图片高度)。如图中书签名称设置，当系统遇到 ds_qz 关键字时，输出按后继设置进行，图片宽度为100、图片高度为 50。

现有一模板需求如下图：

我们需要在考官评语和考官本人签字位置输出手写图片，原有的书签模式输出会遇到一些问题：

（1）只能为嵌入式，位置输出无法设置，无法进一步调整到较优呈现位置。

（2）只能插入式输出，无法实现嵌入式如文字浮动、环绕效果。

（3）需要在无关位置插入书签，否则会在输出关键字时被替换掉，而无法识别配置。

（4）书签的名称不能输入一些特定字符，如%，减号等，给配置带来一些麻烦。

（5）如果在文档里真需要设置书签，容易造成混乱。

设计

设计提供一个 ArrayList 类型参数取代书签模式的设计，其格式为 （输出关键字_图片宽度_图片高度_图片 Left 相对值_图片 Top 相对值 )。如添加 ds_qz_100_50_500_-20 字符串，当系统遇到 ds_qz 关键字时，输出按后继设置进行，图片宽度为100、图片高度为 50、图片 Left 为500、图片 Top 为 -20。后四个参数如果设置null则表示忽略，ds_qz_null_null_500_-20 ，则表示忽略宽度和高度设置，即表示原始大小输出。

定位到的图片输出，采取浮动于文字下方的处理。

范例运行环境

操作系统： Windows Server 2019 DataCenter

操作系统上安装 Office Word 2016

数据库：Microsoft SQL Server 2016

.net版本： .netFramework4.7.2 或以上

开发工具：VS2019  C#

配置Office DCOM

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

实现代码

组件库引入

​

核心代码

public string DataTableToWord(string _filename,string _repeatKey,object _dataset,ArrayList DataSetPictureConfig),该方法提供4个参数，WORD模板文件名、自定义关键字、System.Data.DataSet，配置图片用的 ArrayList 列表指令。

public void DataTableToWord(string _filename,string _repeatKey,object _dataset,ArrayList DataSetPictureConfig){if (DataSetPictureConfig == null) { DataSetPictureConfig = new ArrayList(); }Object Nothing = System.Reflection.Missing.Value;object filename = _filename;//创建一个名为WordApp的组件对象Word.Application WordApp = new Word.Application();//创建一个名为WordDoc的文档对象WordApp.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone;Word.Document WordDoc = WordApp.Documents.Open(ref filename, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing);WordDoc.SpellingChecked = false;//关闭拼写检查WordDoc.ShowSpellingErrors = false;//关闭显示拼写错误提示框WordApp.Selection.WholeStory();WordApp.Selection.Cut();DataSet ds=(DataSet)_dataset;System.Data.DataTable  dt=ds.Tables[0];for(int i=0;i<dt.Rows.Count;i++){WordApp.Selection.Paste();for(int j=0;j<dt.Columns.Count;j++){string _repKey=_repeatKey+dt.Columns[j].ColumnName.ToString();string _repValue=string.Format("{0}",dt.Rows[i][j].ToString());bool isPhoto=false;if(dt.Columns[j].DataType==typeof(System.Byte[])){isPhoto=true;_repValue="";}WordApp.Options.ReplaceSelection=true;Word.Find fnd = WordApp.Selection.Find;fnd.ClearFormatting();Object findText = _repKey;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.Range.Text=_repValue;if(isPhoto==true){string _jpgfile=_path+System.Guid.NewGuid()+".jpg";if (dt.Rows[i][j] == System.DBNull.Value){continue;}byte[] filedata = (byte[])dt.Rows[i][j];System.IO.MemoryStream ms = new MemoryStream(filedata);System.Drawing.Image img1 = System.Drawing.Image.FromStream(ms);img1.Save(@_jpgfile);ms.Close();Word.InlineShape pic= WordApp.Selection.InlineShapes.AddPicture(@_jpgfile,false,true);foreach (string bm in  DataSetPictureConfig){string _findkey=_repKey+"_";int _f1 =bm.IndexOf(_findkey);if(_f1==0 && bm.Length>(_findkey.Length)){string[] _paras=bm.Substring(_findkey.Length,bm.Length-_findkey.Length).Split('_');if(_paras.GetLength(0)>1){if (_paras[0] != "null"){int def_width = int.Parse(_paras[0]);pic.Width = def_width;}if (_paras[1] != "null"){int def_height = int.Parse(_paras[1]);pic.Height = def_height;}}}}Word.Shape pic2 = pic.ConvertToShape();pic2.WrapFormat.Type = Word.WdWrapType.wdWrapThrough;pic2.WrapFormat.Type = Word.WdWrapType.wdWrapBehind;pic2.Left = 0;pic2.Top = 0;foreach (string bm in DataSetPictureConfig){string _findkey = _repKey + "_";int _f1 = bm.IndexOf(_findkey);if (_f1 == 0 && bm.Length > (_findkey.Length)){string[] _paras = bm.Substring(_findkey.Length, bm.Length - _findkey.Length).Split('_');if (_paras.GetLength(0) > 3){if (_paras[2] != "null")pic2.Left = float.Parse(_paras[2]);if (_paras[3] != "null")pic2.Top =float.Parse(_paras[3]);}}}File.Delete(@_jpgfile);}}}object dummy = System.Reflection.Missing.Value;object what = Word.WdGoToItem.wdGoToLine;object which = Word.WdGoToDirection.wdGoToLast;object count = System.Reflection.Missing.Value;
//					WordApp.Selection.GoTo(ref oGoToItem, ref oGoToLast, ref Nothing, ref Nothing);WordApp.Selection.GoTo(ref what, ref which, ref count, ref dummy);//default 表示每行记录之间插入分页符，最后一行时不再插入分页符，以免造成多余一空白页if(i!=dt.Rows.Count-1){object ib = Word.WdBreakType.wdPageBreak; WordApp.Selection.InsertBreak(ref ib);}}}WordDoc.Save();WordDoc.Close(ref Nothing, ref Nothing, ref Nothing);//关闭WordApp组件对象WordApp.Quit(ref Nothing, ref Nothing, ref Nothing);}

调用示例

示例代码如下：

DataSet rv = GetDataSet("select * from tabble");ArrayList picconfig = new ArrayList();   //可配置每个图片字段的大小及位置
picconfig.Add("ds_kg_sign_100_50_500_-20");   //格式为： key_width_height_left_top
string ModuleFile = "d:\\bfile\\word\\面试评分表.docx";  //假设的模板文件
string _lastfile = DataTableToWord(ModuleFile,"ds_",ds,picconfig);MessageBox.Show(string.Format("已成功导出文件：{0}", _lastfile));

运行结果预览如下图：

 

小结

核心代码中需要将 Word.InlineShape 转换为 Word.Shape 后，可以进行环绕文字的操作，如下：

Word.Shape pic2 = pic.ConvertToShape();
pic2.WrapFormat.Type = Word.WdWrapType.wdWrapThrough;
pic2.WrapFormat.Type = Word.WdWrapType.wdWrapBehind;
pic2.Left = 0;
pic2.Top = 0;

使用 ConvertToShape() 方法转换为 pic2 , pic2.WrapFormat.Type = Word.WdWrapType.wdWrapBehind;  可以浮动于文字下方，然后初始图片的 Left 和 Top ，否则有可能无法正常显示位置。

我们可以根据自己的实际情况设置环绕格式，可参阅读如下地址：

https://learn.microsoft.com/zh-cn/office/vba/api/word.wdwraptypemerged

这些代码我们提供了一些操作WORD相关的关键方法，这里仅作参考，欢迎大家评论指教！

http://www.sczhlp.com/news/105408/

相关文章：

  • 余杭区住房与建设局网站一条龙网站建设哪家好
  • 银川网站建设公司排名校园推广是什么工作
  • 网站制作素材专业的官网设计公司
  • 东明网站制作黄一级a做爰片免费网站
  • wordpress 好不好西安seo网站关键词优化
  • 网络存储上做网站东莞华商网络
  • 襄阳网站seo方法网页设计模板网站推荐
  • asp.net做网站怎么样子网站域名ip地址查询
  • 网站建设 华博互联网页设计需要会什么
  • 周口网站制作公司哪家好四川淘宝网站建设方案
  • 壹互联是网站公司吗wordpress 卸载主题
  • 淄博张店网站排名优化网站修改字体尺寸怎么做
  • 读人形机器人13艺术领域
  • 怎么确定电商网站建设的目标成都成达设计院
  • 网上做平面设计的网站成都最近爆发的传染病
  • 无极修仙网站wordpress 删除所有文章
  • 新手如何优化网站排名google 官网入口
  • 网站网上预定功能怎么做工程公司简介范文大全
  • 如何用织梦做网站上海门户网站建设
  • 网站建设如何开票小店网站怎么做
  • 做jsp网站用哪些软件搭建小程序需要什么技术
  • 网站引导页psd游戏动画设计师需要学什么
  • 网站开发就业前景分析提高工作效率的方法
  • 甘肃精神文明建设网站一键lnmp搭建wordpress
  • php网站接口开发广州建立网站的公司网站
  • 常用网站推广方式有哪些做网站需要域名
  • 河北省建设资格执业中心网站网站设计样式
  • 网站建设制作公司 首推万维科技深圳保障性住房网
  • 创意设计公司网站大连爱得科技网站建设公司怎么样
  • 中国建设部官方网站vi设计公司网