Word邮件合并快速制作询证函(转)

Word邮件合并快速制作询证函(转)

  作为一名财务人员,笔者负责单位往来账项的询证工作。查阅凭证、合同台账和合同原件,笔者费了九牛二虎之力,总算把本单位与百余家公司的往来账项搞清楚了,并编辑成了一张Excel表格,接下来就要根据这些数据编制百余份询证函。难道还要笔者再费力地重复劳动吗?不,我们自有办法。 

  技术看点:邮件合并功能。

  一、制作明细表

  首先按照图1的格式制作“往来账项明细表.xls”。笔者使用Office 2003,在其他版本的Office中操作略有不同,请朋友们注意。

20060507115250470.jpg

  二、询证函的格式

  为了叙述清楚,我们假设询证函的格式如图2所示(实际的询证函长达3页,编号中的最后一位数字即表示该询证函有3页内容),该文件名称为“询证函.doc”。在这张询证函中有5处内容取自“往来账项明细表.xls”,即图2中标注的①、②、③、④、⑤处。

20060507115250967.jpg  
    三、进行“邮件合并”

  1.启动Word,打开“询证函.doc”,执行“工具→信函与邮件→邮件合并”命令,打开“邮件合并”任务窗格。

  2.选择“信函”项,单击“下一步”;选择“使用当前文档”项,单击“下一步?选取收件人”;选择“使用现有列表”项,单击“下一步?撰写信函”。

  3.进入“选取数据源”对话框,在“文件类型”框中选择“Excel文件”,然后在文件列表框中,双击“往来账项明细表.xls”。

  4.在“选择表格”对话框中,单击所需要的工作表,勾选“数据首行包含列标题”复选框,单击“确定”按钮。

  5.在“邮件合并收件人”对话框中,对数据进行编辑后,单击“确定”按钮。

  6.执行“工具→信函与邮件→显示邮件合并工具栏”命令,打开“邮件合并”工具栏。单击“询证函.doc”文档中的①处,然后在“邮件合并”工具栏中单击“插入域”按钮,进入“插入合并域”窗口;选择“数据库域”,然后在“域”栏中单击“顺序号”,依次单击“插入”和“关闭”按钮。

  同理,将文档中的②、③、④、⑤处分别指定为“公司名称”、“项目”、“贵公司欠”和“欠贵公司”。

  至此,“询证函.doc”文档显示如图3所示。文档中书名号及里面的部分就对应着“往来账项明细表.xls”文件的相关项目。

20060507115250802.jpg

  四、完成“邮件合并”

  在“邮件合并”任务窗格中,单击“下一步?撰写信函”,然后单击“下一步? 预览信函”,再单击“下一步? 完成合并”,至此邮件合并完成。

  想看看合并后的结果吗?在“邮件合并”窗格中单击“编辑个人信函”,此时Word将弹出“合并到新文档”对话框,选择“全部”,点击“确定”按钮后就可以看到合并后的信函文档了。

  编后:上例使用Word的“邮件合并”功能把Word文档和Excel二维表格完美地合并到一处,实现了数据的批量处理,有效减轻了工作量。在财务工作中经常遇到类似情况,朋友们不妨一试。

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/14102/viewspace-115519/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/14102/viewspace-115519/

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
1. 在datagridview中添加一个button列,并为该列的每个单元格添加控件按钮。 2. 在控件按钮的Click事件中,使用以下代码打开名为“银行询证”的word文档。 ```c# private void dataGridView1_CellContentClick(object sender, DataGridViewCellEventArgs e) { if (e.ColumnIndex == dataGridView1.Columns["btnOpenWord"].Index && e.RowIndex >= 0) { Microsoft.Office.Interop.Word.Application wordApp = new Microsoft.Office.Interop.Word.Application(); object missing = System.Reflection.Missing.Value; object readOnly = false; object isVisible = true; Microsoft.Office.Interop.Word.Document doc = wordApp.Documents.Open("C:\\银行询证.docx", ref missing, ref readOnly, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref isVisible, ref missing, ref missing, ref missing, ref missing); doc.Activate(); wordApp.Visible = true; } } ``` 3. 在datagridview的CellClick事件中,使用以下代码实现复选框选中行的第8列和第10列值导入word的相应位置。 ```c# private void dataGridView1_CellClick(object sender, DataGridViewCellEventArgs e) { if (e.ColumnIndex == dataGridView1.Columns["checkBoxColumn"].Index && e.RowIndex >= 0) { if ((bool)dataGridView1.Rows[e.RowIndex].Cells[e.ColumnIndex].EditedFormattedValue == true) { Microsoft.Office.Interop.Word.Application wordApp = new Microsoft.Office.Interop.Word.Application(); object missing = System.Reflection.Missing.Value; Microsoft.Office.Interop.Word.Document doc = wordApp.ActiveDocument; doc.Activate(); doc.Bookmarks["bookmark1"].Range.Text = dataGridView1.Rows[e.RowIndex].Cells[7].Value.ToString(); doc.Bookmarks["bookmark2"].Range.Text = dataGridView1.Rows[e.RowIndex].Cells[9].Value.ToString(); } } } ``` 其中,bookmark1和bookmark2是word文档中的书签,用于定位导入数据的位置。在word文档中添加书签的方法为:选中要添加书签的位置,点击插入->书签,输入书签名称,点击添加。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值