vb.net2005 利用创建好的WORD模板制作WORD报表

原创 2008年09月28日 09:26:00

       Dim WordAPP As New Word.Application
        Dim WordDocument As Word.Document
        WordDocument = WordAPP.Documents.Open(Application.StartupPath & "/report.doc")
        WordDocument.Activate()

     '进行查找替换

        With WordAPP.Selection.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = "C1"
            .Replacement.Text = "小样门诊室"
            .MatchCase = True
            .Execute(, , , , , , , , , , Word.WdReplace.wdReplaceAll)
        End With

        With WordAPP.Selection.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = "C2"
            .Replacement.Text = "小样路"
            .MatchCase = True
            .Execute(, , , , , , , , , , Word.WdReplace.wdReplaceAll)
        End With

        With WordAPP.Selection.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = "C3"
            .Replacement.Text = "小样"
            .MatchCase = True
            .Execute(, , , , , , , , , , Word.WdReplace.wdReplaceAll)
        End With

        With WordAPP.Selection.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = "C4"
            .Replacement.Text = "1100101010"
            .MatchCase = True
            .Execute(, , , , , , , , , , Word.WdReplace.wdReplaceAll)
        End With

        With WordAPP.Selection.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = "C5"
            .Replacement.Text = "药品项目^l检查项目"
            .MatchCase = True
            .Execute(, , , , , , , , , , Word.WdReplace.wdReplaceAll)
        End With
        With WordAPP.Selection.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = "C6"
            .Replacement.Text = "小草^l手术费"
            .MatchCase = True
            .Execute(, , , , , , , , , , Word.WdReplace.wdReplaceAll)
        End With
        With WordAPP.Selection.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = "C7"
            .Replacement.Text = "10^l5"
            .MatchCase = True
            .Execute(, , , , , , , , , , Word.WdReplace.wdReplaceAll)
        End With
        With WordAPP.Selection.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = "C8"
            .Replacement.Text = "2^l1"
            .MatchCase = True
            .Execute(, , , , , , , , , , Word.WdReplace.wdReplaceAll)
        End With
        With WordAPP.Selection.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = "C9"
            .Replacement.Text = "20^l5"
            .MatchCase = True
            .Execute(, , , , , , , , , , Word.WdReplace.wdReplaceAll)
        End With

        WordAPP.Visible = True

'^l为手动换行符 1为字母L 也以换个两个数字1 换成数字后如果后面跟数字可能会有点问题。所以建议使用字母

'^p为硬回车

图1为没有替换这前的模板内容

图2为替换了内容后的文档

 

MFC 下开发Office Word2010报表生成方法-- 一、准备工作

官方开发接口帮助文档 https://msdn.microsoft.com/en-us/library/microsoft.office.interop.word(v=office.14).aspx ...
  • qing666888
  • qing666888
  • 2016年07月21日 09:18
  • 1472

用C# 动态生成含有报表图表的word文件

用C# 动态生成含有报表图表的word文件.刚开始,觉得没什么难的,不就是一个图表吗? 原来也做过基于模板的Excel报表,应该没问题..从网上先找一个范例研究一下....给果,大失所望,在网上只找到...
  • yandong19861103
  • yandong19861103
  • 2008年07月08日 15:50
  • 1301

使用jsp实现word、excel格式报表打印-JSP教程,Jsp/Servlet

这里使用一个小技巧,就是先将其转换为可编辑的JSP文件,然后再像操作其它的JSP页面一样操作,就这么简单。因为ms word和excel的文档都支持html文本格式,因此可以先用word或excel做...
  • fenglibing
  • fenglibing
  • 2007年06月27日 15:46
  • 11728

C#通过模板创建Word文件

C#通过模板创建Word文件,模板文件中创建书签bookmark,并在调用时给书签位置赋值。 模板创建文件类 /// ///创建Word格式的Report 的摘要说明 /...
  • enter89
  • enter89
  • 2015年06月26日 09:45
  • 1876

使用 poi 根据 word 模板生成 word 文件

本例子是一个 maven 项目,要引入 poi 的依赖片段如下: org.apache.poi poi 3.13 ...
  • lw_power
  • lw_power
  • 2015年11月17日 17:49
  • 5371

html做的word申请表(样式)

公司项目需求中要做用html做一个word申请表的样式出来。有点意思,贴上来大家看看。...
  • liusaint1992
  • liusaint1992
  • 2015年06月18日 22:25
  • 3005

基于Word模板的快速报表生成

在自动测试项目中,报表生成必不可少,当测试项种类繁多,又需要在Word中添加表格,填写数据时,便十分复杂。因此将一直使用的快速报表生成方法告诉大家,以方便更多人的编程。 大致步骤为: 1、新建一个...
  • daleiceman
  • daleiceman
  • 2016年11月03日 17:06
  • 315

根据模板生成word文档下载

需求:根据数据库已有字段,填入写好的word并下载 工具 :freemark   一种方便生成word的引擎,内置好大量基础方法 思路: 一.将数据库数据按需求(根据id,根据name......)提...
  • zh964822413
  • zh964822413
  • 2017年07月04日 10:36
  • 540

润乾报表插入Word文档

润乾报表 书签 插入word api
  • cainiao_M
  • cainiao_M
  • 2017年03月21日 10:19
  • 577

Java中根据模板导出数据到word的解决方案

Java中根据模板导出数据到word的解决方案我们需求如下:给你一个模板,里面有一个表格,标题已经给好,程序主要就是完成把数据填写到word中并提供给用户下载。   网上找了很久,发现主要两种开源包...
  • u012402926
  • u012402926
  • 2016年12月14日 16:49
  • 2077
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb.net2005 利用创建好的WORD模板制作WORD报表
举报原因:
原因补充:

(最多只允许输入30个字)