C#操作Word（打开创建,选择复制,写入数据,保存关闭）

最新推荐文章于 2022-10-18 19:21:20 发布
最新推荐文章于 2022-10-18 19:21:20 发布
阅读量2.8k 收藏 10
点赞数
分类专栏： C#学习笔记 文章标签： c#word 打开创建 选择复制 数据写入 保存关闭
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/C_xxy/article/details/72820971
版权

(1)必要变量（字段）定义

 private object Nothing = Missing.Value;//缺省值
 private object IsReadOnly = false;//不仅仅可读
 private MSWord._Application wordApp;//Word应用程序
 private MSWord._Document wordDoc;//Word文档
 private int tableCount;//Word表格数目(完整的)
 注：前面4个是操作Word时，必须定义的字段；最后一个适应本程序

(2)读取txt数据

//原始数据读取
        private List<string> TextData = new List<string>();//文本数据（去除41000……）
        private void toolStripMenuItem1_Click(object sender, EventArgs e)
        {
            openFileDialog1.InitialDirectory = "E:\\";
            openFileDialog1.Filter = "GSI(*.gsi)|*.gsi";
            if(openFileDialog1.ShowDialog()==DialogResult.OK)
            {
                TextData = File.ReadAllLines(openFileDialog1.FileName).Where(s => (s[0] != '4') && (s != "")).ToList();
            }
            tableCount = (int)(TextData.Count / 11 * 2 / 7);
            MessageBox.Show("共读取" + TextData.Count / 11 + "测段的数据！");
        }

(3)打开原本的Word文档，并复制其中的表格

//加载水准簿(并进行表格复制)
        private void toolStripMenuItem2_Click(object sender, EventArgs e)
        {
            openFileDialog2.InitialDirectory = "e:\\";
            openFileDialog2.Filter = "文档(*.docx)|*.docx|(*.doc)|*.doc";
            if(openFileDialog2.ShowDialog()==DialogResult.OK)
            {
                try
                {
                    foreach (Process item in Process.GetProcessesByName("WINWORD"))
                    { item.Kill(); }//如存在打开的Word则先关闭(一个应用程序实例就是进程)
                    object filePath=openFileDialog2.FileName;
                    wordApp = new MSWord.Application(); //应用程序实例化
                    //wordApp.Visible = true;//可见(用的是wordApp显示)
                    wordDoc = wordApp.Documents.Open(ref filePath, ref Nothing, ref IsReadOnly, 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.Tables[1].Select();//选择与复制：文档用Sections[节]/应用程序用Selection[选择]
                    wordApp.Selection.Copy();
                    //////还可以是：（会复制文档第一部分所有内容--包括标题）
                    //wordDoc.Select();
                    //wordDoc.Sections[1].Range.Copy();
                    //wordDoc.Sections[1].Range.InsertBreak(ref myType); //以页为单元,表格连续(只复制表格)
                    //wordDoc.Sections[1].Range.PasteAndFormat(MSWord.WdRecoveryType.wdPasteDefaul);//复制语句：文档形式

                    object myType = MSWord.WdBreakType.wdSectionBreakContinuous;//换行符
                    object myUnit = MSWord.WdUnits.wdStory;
                    object pBreak = (int)MSWord.WdBreakType.wdPageBreak;//下一页(上一页最后一行空,否则跳入下下页)

                    //object start = wordApp.ActiveWindow.Selection.End;//定位文档末尾
                    //object end = wordApp.ActiveWindow.Selection.End;
                    //MSWord.Range rng = wordDoc.Range(ref start, ref end);
                    //rng.Select();  
                    //rng.Paste();  

                    for (int i = 0; i < tableCount-1;i++ )//原本手簿已存在一个，则复制减1个
                    {
                        wordApp.Selection.EndKey(ref myUnit, ref Nothing);
                        wordApp.Selection.InsertBreak(ref pBreak);
                        wordApp.Selection.PasteAndFormat(MSWord.WdRecoveryType.wdPasteDefault);//复制语句：应用程序形式
                        //wordApp.Selection.Paste();//复制语句：简单形式
                    }
                        MessageBox.Show("手簿加载完成！");
                }
                catch(Exception ex)
                {
                    MessageBox.Show(ex.Message);
                }
            }
        }

(4)将txt数据写入变化后的Word文档并保存

//原始数据：TextData中
        private void toolStripMenuItem3_Click(object sender, EventArgs e)
        {
            try
            {
                #region 文档头
                object bm1 = "云量";
                wordDoc.Bookmarks.get_Item(ref bm1).Range.Text = "多云";
                object bm2 = "风向风速";
                wordDoc.Bookmarks.get_Item(ref bm2).Range.Text = "无风";
                object bm3 = "天气";
                wordDoc.Bookmarks.get_Item(ref bm3).Range.Text = "晴朗";
                #endregion
                List<string> Data = TextData.Where(s => s.ToCharArray().Count() > 35).ToList();//全部都是5行5行的 
                int tabturn = 0;//表格计数
                foreach(MSWord.Table table in wordDoc.Tables)
                {
                    for (int i = 1; i < 8; i++)
                    {
                        List<string> tempData = new List<string>();
                        for (int j = 35 * tabturn + (i - 1) * 5; j < 35 * tabturn + i * 5; j++)
                        {
                            tempData.Add(Data[j]);
                        }
                        #region 文档表格赋值
                        table.Cell(4 * i + 1, 1).Range.Text = i + "测站";
                        table.Cell(4 * i + 1, 5).Range.Text = (double.Parse(tempData[0].Trim().Split(' ')[2].Substring(6, 9)) / 100.0).ToString();//后尺基本(mm)
                        table.Cell(4 * i + 2, 5).Range.Text = (double.Parse(tempData[1].Trim().Split(' ')[2].Substring(6, 9)) / 100.0).ToString();//前尺基本(mm)
                        table.Cell(4 * i + 2, 6).Range.Text = (double.Parse(tempData[2].Trim().Split(' ')[2].Substring(6, 9)) / 100.0).ToString();//前尺辅助(mm)
                        table.Cell(4 * i + 1, 6).Range.Text = (double.Parse(tempData[3].Trim().Split(' ')[2].Substring(6, 9)) / 100.0).ToString();//后尺辅助(mm)
                        table.Cell(4 * i + 3, 2).Range.Text = ((double.Parse(tempData[0].Trim().Split(' ')[1].Substring(6, 9)) / 1e2 + double.Parse(tempData[3].Trim().Split(' ')[1].Substring(6, 9)) / 1e2) / 2).ToString();//后视距离(mm)
                        table.Cell(4 * i + 3, 3).Range.Text = ((double.Parse(tempData[1].Trim().Split(' ')[1].Substring(6, 9)) / 1e2 + double.Parse(tempData[2].Trim().Split(' ')[1].Substring(6, 9)) / 1e2) / 2).ToString();//前视距离(mm)
                        table.Cell(4 * i + 4, 2).Range.Text = ((int)(((double.Parse(tempData[0].Trim().Split(' ')[1].Substring(6, 9)) / 1e5 + double.Parse(tempData[3].Trim().Split(' ')[1].Substring(6, 9)) / 1e5) / 2 - (double.Parse(tempData[1].Trim().Split(' ')[1].Substring(6, 9)) / 1e5 + double.Parse(tempData[2].Trim().Split(' ')[1].Substring(6, 9)) / 1e5) / 2) * 10000 + 0.5) / 10000.0).ToString();//后前视距离差(m)
                        table.Cell(4 * i + 4, 3).Range.Text = (double.Parse(tempData[4].Trim().Split(' ')[3].Substring(6, 9)) / 1e5).ToString();//前后视距差累积(m)
                        table.Cell(4 * i + 1, 7).Range.Text = ((int)((double.Parse(tempData[0].Trim().Split(' ')[2].Substring(6, 9)) / 100.0 - double.Parse(tempData[3].Trim().Split(' ')[2].Substring(6, 9)) / 100.0) * 1000 + 0.5) / 1000.0).ToString();//基+K-辅(mm)
                        table.Cell(4 * i + 2, 7).Range.Text = ((int)((double.Parse(tempData[1].Trim().Split(' ')[2].Substring(6, 9)) / 100.0 - double.Parse(tempData[2].Trim().Split(' ')[2].Substring(6, 9)) / 100.0) * 1000 + 0.5) / 1000.0).ToString();//基+K-辅(mm)
                        table.Cell(4 * i + 3, 5).Range.Text = ((int)((double.Parse(tempData[0].Trim().Split(' ')[2].Substring(6, 9)) / 100.0 - double.Parse(tempData[1].Trim().Split(' ')[2].Substring(6, 9)) / 100.0) * 10000 + 0.5) / 10000.0).ToString(); //后-前（基本mm）
                        table.Cell(4 * i + 3, 6).Range.Text = ((int)((double.Parse(tempData[3].Trim().Split(' ')[2].Substring(6, 9)) / 100.0 - double.Parse(tempData[2].Trim().Split(' ')[2].Substring(6, 9)) / 100.0) * 10000 + 0.5) / 10000.0).ToString(); //后-前（辅助mm）
                        table.Cell(4 * i + 3, 7).Range.Text = ((int)((double.Parse(tempData[0].Trim().Split(' ')[2].Substring(6, 9)) / 100.0 - double.Parse(tempData[3].Trim().Split(' ')[2].Substring(6, 9)) / 100.0 - (double.Parse(tempData[1].Trim().Split(' ')[2].Substring(6, 9)) / 100.0 - double.Parse(tempData[2].Trim().Split(' ')[2].Substring(6, 9)) / 100.0)) * 1000 + 0.5) / 1000.0).ToString(); //检核
                        table.Cell(4 * i + 4, 6).Range.Text = (double.Parse(tempData[4].Trim().Split(' ')[5].Substring(6, 9)) / 1e5).ToString();//高差
                        #endregion
                    }
                    tabturn += 1;
                }

                //文档另存为并退出
                saveFileDialog1.Filter = "文档(*.docx)|*.docx|(*.doc)|*.doc";
                if(saveFileDialog1.ShowDialog()==DialogResult.OK)
                {
                    object filePath = saveFileDialog1.FileName;
                    object format = MSWord.WdSaveFormat.wdFormatDocumentDefault;//docx
                    //object format = MSWord.WdSaveFormat.wdFormatDocument;//doc
                    wordDoc.SaveAs(ref filePath, ref format, 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);
                    ((MSWord._Document)wordDoc).Close(ref Nothing, ref Nothing, ref Nothing);
                    ((MSWord._Application)wordApp).Quit(ref Nothing, ref Nothing, ref Nothing);
                }
            }
            catch(Exception ex)
            {
                MessageBox.Show(ex.ToString());
            }
            finally
            {
                if (wordApp != null)
                {
                    Marshal.FinalReleaseComObject(wordApp);
                    wordApp = null;
                }

                if (wordDoc != null)
                {
                    Marshal.FinalReleaseComObject(wordDoc);
                    wordDoc = null;
                }
            }
        }
注：当向Word表格中输入数据时，循环处代码较多，但本质上并不复杂。

(5)部分txt文本数据（莱卡数字水准仪数据）

410001+?......2 
110002+000000A1 83..28+00000000 
110003+000000A1 32...8+01471340 331.08+00096547 390...+00000002 391.08+00000000 71....+00000001 
110004+00000001 32...8+01457115 332.08+00144543 390...+00000002 391.08+00000005 
110005+00000001 32...8+01456595 336.08+00144553 390...+00000002 391.08+00000002 
110006+000000A1 32...8+01470969 335.08+00096549 390...+00000002 391.08+00000001 
110007+00000001 571.08+00000008 572.08+00000008 573..8+00014300 574..8+02928010 83..08-00048000 
110008+00000001 32...8+01616093 331.08+00143847 390...+00000002 391.08+00000001 
110009+00000002 32...8+01626730 332.08+00136480 390...+00000002 391.08+00000000 
110010+00000002 32...8+01626589 336.08+00136477 390...+00000002 391.08+00000001 
110011+00000001 32...8+01616202 335.08+00143831 390...+00000002 391.08+00000024 
110012+00000002 571.08+00000013 572.08+00000021 573..8+00003788 574..8+06170816 83..08-00040640 
410013+?......2 
110014+000000A1 83..08+00000000 
110015+000000A1 32...8+01625880 331.08+00136485 390...+00000002 391.08+00000003 
110016+00000001 32...8+01617791 332.08+00143837 390...+00000002 391.08+00000004 
110017+00000001 32...8+01617711 336.08+00143834 390...+00000002 391.08+00000003 
110018+000000A1 32...8+01624988 335.08+00136499 390...+00000002 391.08+00000002 
110019+00000001 571.08-00000017 572.08-00000017 573..8+00007683 574..8+03243185 83..08-00007344 
110020+00000001 32...8+01460178 331.08+00144567 390...+00000002 391.08+00000001 
110021+00000002 32...8+01469076 332.08+00096601 390...+00000002 391.08+00000000 
110022+00000002 32...8+01469139 336.08+00096599 390...+00000002 391.08+00000002 
110023+00000001 32...8+01460232 335.08+00144565 390...+00000002 391.08+00000001 
110024+00000002 571.08-00000001 572.08-00000018 573..8-00001220 574..8+06172497 83..08+00040622

(6)部分结果截图

result

C_xxy
关注
  • 0
    点赞
  • 踩
  • 10
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
C#操作word文档(多种方法)
08-25
平时学习时注意做笔记,赫赫,上传上来跟大家分享!内容概要:1、运用 Range 对象处理 Word 文档内容；2、如何使用C#在Word文档中插入图片以及读取Word文档中的图片？3、提取word 文档中的图片信息；4、提取WORD中的所有InlineShape图片并保存成文件；5、C#编程实现动态生成Word文档{1、2}；6、C#读取Word文档的详细例子
c#操作word
szg3827的专栏
11-17 723
 C#代码 using System;   using System.ComponentModel;   using System.Data;   using System.Windows.Forms;     using Word = Microsoft.Office.Interop.Word;     namespace ImportExport
C# 操作Word
c_c33的博客
10-18 3965
C#操作Word
在Delphi中很精确地控制生成的WORD文档的格式
han99yi的专栏
08-05 4473
var    WordApplication1: TWordApplication; 通过以下的方式就可以在DELPHI中很精确地控制生成的WORD文档的格式。     //-----------------打开WORD-------------------------------      Wordapplication1.visible := true;    //显示WROD    
C#生成Word笔记
weixin_30553837的博客
02-13 85
新公司的一个项目,刚开始分析发现需要使用C#生成Word文档,由于以前没有这方面的经验,所以要在项目还没有开始之前,先试探一下怎么使用.由于下面这个类的代码是东找西找的,所以也不做什么解释,只是加了一些注释而以!在此做个笔记而以! 　　public class WordHelp 　　{ 　　/// <SUMMARY></SUMMARY> 　　/// wor...
Java语言如何将word表格中的数据取出来存放数据库
一只蜗牛的博客
09-14 806
前言: 我们大家都知道,在Java的环境中进行office的操作是需要office的接口来实现的.目前比较流行的解决方案有POI和openoffice.首先说POI方案,它的功能局限性很大,对于excel的读取和写入挺方便,但是在对word文档操作功能显的很鸡肋.其次是openoffice,功能比POI强大,但是对于word的操作能力依然很有限,且部署麻烦,学习成本较高,文档格式易错乱. 今天...
C#中操作Word（2）—— 新建、打开、保存和关闭文档
Hyman的博客
11-09 1万+
本文中主要介绍C#中对word文档进行新建、打开、保存、关闭的方法。在本次试验之前，先布置试验环境。首先，先新建一个winform的工程WordTest：         然后，在界面中添加一个按钮，按钮文本就叫做“测试”：         在按钮的点击事件处理函数中，我们先创建一个Application对象，并将对象的Visible属性设置为True： private vo
C#：简单实现动态数据生成Word文档并保存
热门推荐
摩根墓地
04-02 2万+
今天正好有人问我，怎么生成一个报表式的Word文档。就是文字的样式和位置相对固定不变，只是里面的内容从数据中读取。 我觉得类似这种的一般用第三方报表来做比较简便。但既然要求了Word，只好硬着头皮来。 网上的方法大多数都是从一个GridView或表中获得数据后向Word中添加一个表格。 但不方便实现下面的效果(图1)。(以下插图可能需要CSDN用户登录后才能看到) 
word文档保存到服务器,读取SQL表数据保存到Word并将Word文档保存到服务器代码
weixin_39647787的博客
08-03 236
代码如下：引用 Microsoft Word 11.0 Object Librarypublic bool ExportWord( DataTable Table ){object Missing = System.Reflection.Missing.Value;int NumRows, NumColumns, rowIndex, colIndex;object FileName = Word文...
C#全能速查宝典
04-26
《C#全能速查宝典》共分为8章，分别介绍了C#语言基础、Windows窗体及常用控件、Windows高级控件、控件公共属性、方法及事件、数据库开发、文件、数据流与注册表、GDI+绘图技术和C#高级编程，共包含562个C#编程中常用...
C#程序开发范例宝典（第2版）.part02
11-12
实例064 借助绑定控件实现数据选择录入 79 实例065 设置ListBox控件选择项 80 2.5 选择类控件应用 83 实例066 利用选择控件实现权限设置 83 实例067 利用选择控件实现复杂查询 85 2.6 ListView控件应用 87 ...
[转]C#操作Word的超详细总结
m0_67187094的博客
08-14 4431
C# Word .NET
vba 在光标插入文字_Word vba:把从excel拷贝来的文字粘贴到word中并进行排版（添加多级列表+添加目录+设置标题副标题作者及段落样式）...
weixin_39791349的博客
12-11 1450
此代码可能运行几次才能成功 重启一下电脑容易一次成功 Excel中的文字如下(A列和B列) 结果如下： vba代码如下： Sub把从excel拷贝来的文字粘贴到word中并进行排版() '主程序,此代码在word中执行 Dim a As Object '定义一个object型变量 Dim m, n, i As Long '定义3个long型整数变量 Set a = CreateObjec...
Word VBA(批量复制Excel表格和Word表格到Word中)
weixin_30475039的博客
05-11 523
unction Test() '使用双字典 SearchPath = FolderDialog("请选择文件夹") If SearchPath = "" Then Exit Function End If WordName = SplitPath(CStr(SearchPath), 1) ...
java 实现保存Word文档中指定位置的数据,又保存整篇文档
chuanluo2225的博客
11-30 1285
1:需求 用户在线编辑完word 文档后希望保存整篇文档, 同时把保存文档中指定位置的数据 2:方案 用 pageoffice 实现既保存Word文档中指定位置的数据,又保存整篇文档 4:核心思想及代码 (1)既然要保存数据,那么就要用文档的提交模式打开文档 //打开Word文...
C#实现word创建并写入内容
最新发布
07-08
Here's an example of how you can create a Word document and write content using C#: ```csharp using System; using System.IO; using Word = Microsoft.Office.Interop.Word; namespace ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

C_xxy

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值