1、目标:三种样式相对固定的Word表单,由表头和表格组成。其中部分内容存在系统性错误,需要修改。表单的正确信息以Excel形式存储。
2、方案:C#+Sqlite+?
2.1 先来简单的。准确读取Excel中正确信息,Sqlite比较顺手,直接将Excel转为Sqlite数据库,使用工具Sqlite expert
string dbfilepath = textBox2.Text;
SQLiteConnectionStringBuilder connstr = new SQLiteConnectionStringBuilder
{
DataSource = dbfilepath
};
SQLiteConnection database = new SQLiteConnection
{
ConnectionString = connstr.ToString()
};
database.Open();
SQLiteCommand sql_command = new SQLiteCommand(Dwg_database);
sql_command = new SQLiteCommand("BEGIN TRANSACTION", database);
sql_command.ExecuteNonQuery();
……
// 使用SQL语句查询并将结果存入DataSet
SQLiteDataAdapter dataadapter = new SQLiteDataAdapter();
DataSet ds = new DataSet();
sql_command.CommandText =
string.Format("select a,b,c from db where a = '{0}'", pointName);
dataadapter.SelectCommand = sql_command;
dataadapter.Fill(ds, "bzd");//bzd 自行定义,方便后面取用
……
//关闭Sqlite数据库
sql_command = new SQLiteCommand("COMMIT TRANSACTION", database);
sql_command.ExecuteNonQuery();
2.2 操作word
2.2.1 目标表格重赋值,表格中文字替换
//使用 Microsoft.Office.Interop.Word 操作word
Word.Application wordApp = new Word.Application();
object oFilePath = path;//文件路径
object oReadOnly = false;
object oMissing = Missing.Value;
wordApp.Visible = false ; //打开本地文件可看
Word.Document wordDoc = wordApp.Documents.Open(ref oFilePath, ref oMissing, ref
oReadOnly, ref oMissing, ref oMissing,
ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing,
ref oMissing);
string context = wordDoc.Content.Text;//读取整篇文档的内容
//目标单元格赋值
Word.Table nowTable = wordDoc.Tables[1];//注意[1]索引是从1开始的,不要从0开始喔
nowTable.Cell(2, 4).Range.Text = "a"; //(2,4) 表格的第二行,第四列,再说一遍索引从 1 开始的
nowTable.Cell(3, 4) .Range.Text = "b";
//表格中文字替换
targ = wordDoc.Paragraphs[i].Range.Text.Trim();
if (targ.Contains("种类"))
{
wordApp.Selection.Find.ClearFormatting();
wordApp.Selection.Find.Replacement.ClearFormatting();
wordApp.Selection.Find.Text = targ;
wordApp.Selection.Find.Replacement.Text = string.Format("种类:{0,-32}质料:{1}",
"a","b");
object objReplace = WdReplace.wdReplaceAll;
wordApp.Selection.Find.Execute(ref oMissing, ref oMissing, ref oMissing,
ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing,
ref oMissing, ref oMissing, ref objReplace, ref oMissing, ref oMissing,
ref oMissing, ref oMissing);
}
2.2.2 表头文字替换(失败)
string oldText = wordDoc.Paragraphs[i].Range.Text;
string text = oldText.Replace(" ", "");
if (text.Contains("标准普查登记表"))
{
wordApp.Selection.Find.ClearFormatting();
wordApp.Selection.Find.Text = oldText;
wordApp.Selection.Find.Replacement.ClearFormatting();
wordApp.Selection.Find.Replacement.Text = "标 志 普 查 登 记 表";
object replaceAll = WdReplace.wdReplaceAll;
wordApp.Selection.Find.Execute(ref oMissing, ref oMissing, ref oMissing, ref oMissing,
ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing,
ref replaceAll, ref oMissing, ref oMissing, ref oMissing, ref oMissing);
}
表头中文字替换方法和表格中文字替换使用相同的方法,找到被替换内容,替换之,同样的方法在表格中好使但在替换表头文字时“wordApp.Selection.Find.Execute”返回结果为Ture,但保存后文档中表头未变化,期待高人点拨。
3、Npoi 尝试 以失败告终。
//打开文件
stream = File.OpenRead(path);
FileStream fs = new FileStream(path, FileMode.Open);
fs.Position = 0;
XWPFDocument npoi_Doc = new XWPFDocument(fs);
……
//目标表格重赋值 注意Npoi索引从0开始
XWPFTable table = npoi_Doc.Tables[0];
var para2 = table.GetRow(5).GetCell(1).Paragraphs[0];
para2.ReplaceText(para2.ParagraphText, "a");
……
//文字替换
foreach (var para in npoi_Doc.Paragraphs)
{
string oldText = para.ParagraphText; //获得文本
string text = oldText.Replace(" ", "");
if (text.Contains("标准普查登记表"))
{
para.ReplaceText(oldText, "标志普查登记表");
break;
}
else if (text.Contains("标志普查登记表"))
{
break;
}
}
……
//保存
FileStream file = new FileStream(path, FileMode.Create);
npoi_Doc.Write(file);
file.Close();
丝滑流畅,速度真快。
but but but
部分表格中图片没了,部分文件Word打不开了。 网上一搜,有同学指出Npoi操作Excel还行,操作Word就太勉强了。