精华内容
下载资源
问答
  • 特别适合一些格式化文件,比如合同、产品说明、ISO标准化文档(质量手册、程序文件、管理手册)、项目推广方案等,先做批量替换,再进行修改,可以节省大量时间。需要看代码的可以输入工程密码,密码是我的用户名。
  • word中的文字型窗体域通常在vba中可以通过ActiveDocument.Fields来进行操作但如果遇到表格,并且处于受保护的状态,要填充,还是用这个命令的话就比较麻烦了,如果不受保护还可以用替换的方式...那么怎么解决呢?...

    word中的文字型窗体域通常在vba中可以通过ActiveDocument.Fields来进行操作

    但如果遇到表格,并且处于受保护的状态,要填充,还是用这个命令的话就比较麻烦了,如果不受保护还可以用替换的方式...

    那么怎么解决呢?

    我们可以考虑用ActiveDocument.Tables来实现填充

    aabcf7b13d6b703fbe6cdfedc954c825.png
    Sub 按钮1_Click()         Set objword = GetObject(, "Word.Application")    'objword.Visible = False   '设置为不可见,不然每次打开Word都太费时间了    For j = 1 To ActiveSheet.UsedRange.Rows.Count        ' 填充  本账单日,您所购买的聚赢利率-挂钩中国10年期国债结构性存款192129号(code)        objword.ActiveDocument.Fields(3).result.Text = "本账单日,您所购买的" & Cells(j + 1, 2)        For i = 1 To 7 '从第一列开始遍历到最后第二个,最后一个是要保存的文件名称,可以不遍历            objword.ActiveDocument.Tables(1).Cell(2, i).Range.Text = Cells(j + 1, i).Value        Next                objword.ActiveDocument.SaveAs Cells(j, 8).Value, 17              Next    End Sub
    d97eac486523c4d66e8bc53cd3e91f28.png
    展开全文
  • “拳不离手,曲不离口”(简易批量生成效果)一、实用场景1、批量生成邀请函2、批量生成通知书3...3、关键步骤:(1)在需要替换的位置插入标签(2)对插入书签进行命名,便于之后替换填入相应内容4、EXCEL对应word模板便...

    78eb46e4ac034955df06d4eb185d3502.png

    拳不离手,曲不离口

    925e96218764a8f9886fc3776aa12856.gif

    (简易批量生成效果)

    一、实用场景

    1、批量生成邀请函

    2、批量生成通知书

    3、批量生成宣传稿件

    4、批量生成报告

    5、批量生成合同

    ......

    二、思路及代码

    1、先建立word模板,可以用dot,也可以用dotx,还可以用docx

    2、把固定文字模板写好。

    3、关键步骤:

    (1)在需要替换的位置插入标签

    a13c382a0bca2bfc0eda18db61813ad9.png

    (2)对插入书签进行命名,便于之后替换填入相应内容

    4、EXCEL对应word模板便签建立字段,以便填入数据。

    a66c8b0fb50e5675850d41b8970623bc.png

    5、VBA编程要点

    (1)创建一个WORD生成函数

    (2)主程序通过循环,获取数据,调用word生成函数

    6、word生成函数

    Function createword( ) As Boolean '创建word函数返还的值为逻辑值  Dim myword As Word.Application, mydoc As Word.Document  '定义2个变量,分别为word应用程序,及word文档。word文档必须在word应用程序中使用。    Dim str1 As String    Set myword = New Word.Application    With myword        Set mydoc = .documents.Add(template:="d:\excel批量生成word(模板).docx", Visible:=True)  '此为模板文件及所在位置的绝对引用,可以替换为inputbox输入(可以采用函数变量的传递方式),或者是相对引用。        With .Selection            .Goto what:=wdgotobookmark, Name:="标题"       '对应word文档中的标签位置,输入特定值。本案例采用的是辅助表法。固定辅助表特定位置的值进行数据输入            .typetext Text:=Worksheets("temp").Cells(2, 1)            .Goto what:=wdgotobookmark, Name:="单位名称"            .typetext Text:=Worksheets("temp").Cells(2, 2)             .Goto what:=wdgotobookmark, Name:="内容"            .typetext Text:=Worksheets("temp").Cells(2, 3)            .Goto what:=wdgotobookmark, Name:="日期"            .typetext Text:=Worksheets("temp").Cells(2, 4)        End With    mydoc.SaveAs ThisWorkbook.Path & "\" & Worksheets("temp").Cells(2, 1) & ".docx"  '对应特定内容保存文件名    mydoc.Close         '完成一次调用关闭文档,清空mydoc变量    Set mydoc = NothingEnd Withcreateword = True      ' 函数范围true。本函数可以增加一个判断是否生成下一条的选项,可以自行增加   IF msgbox("具体内容", vbInformation+vbYesNo,'提示') = vbYes then createword = true else createword =falseEnd Function

    7、主程序

    Sub 主程序()Dim i As Integer '定义一个循环变量Dim j As Integer '定义一个变量保存行号Dim shtemp As Worksheet '保存临时表的引用。临时变量表变量Dim sht1 As Worksheet   '导出数据表格变量    On Error GoTo err1    '捕捉文件生成错误    Set shtemp = Worksheets("temp") '判断临时表格是否存在label1:    Set sht1 = Worksheets("sheet1") '引用数据表,sheet1,可以为任意表格名称。    j = sht1.Range("a1").CurrentRegion.Rows.Count ' 获取数据源表活动单位格的行号数量    '复制表头    sht1.Range("a1:c1").Copy  shtemp.Range("a1") '把数据复制到临时表    For i = 2 To j '循环调用数据,生成文档       sht1.Activate       sht1.Range(Cells(i, 1), Cells(i, 4)).Copy   shtemp.Range("a2")  '把特定数据复制到选择张贴单元格       shtemp.Range("a1:c2").Columns.AutoFit       If Not createword() Then Exit For '调用函数,判断是否进入下一个循环。此处是为了配合函数中判断语句使用。    Next    Exit Suberr1:  '捕捉错误 如果没有temp文件,    Set shtemp = Worksheets.Add    shtemp.Name = "temp"    GoTo label1End Sub

    技术交流请加力哥微信:tiny_007

    4a10fc0b671c543708fc1f636a94f44a.png

    展开全文
  • 不过,今天所要教给大家的是比查找替换更高级的通配符,利用通配符我们不仅可以完成一些更高级的替换,还能够批量插入表格文字等内容。1、文字替换为图片上图表格中,我们要将「香蕉」这两个字替换为图片形式。先...

    我们平常在工作中,经常会使用查找替换功能,能够帮助我们快速的查找或替换一些特定的内容。不过,今天所要教给大家的是比查找替换更高级的通配符,利用通配符我们不仅可以完成一些更高级的替换,还能够批量插入表格与文字等内容。

    1、文字替换为图片

    1e5d8e8164b26278d86d1097bc7df024.gif

    上图表格中,我们要将「香蕉」这两个字替换为图片形式。先复制下香蕉图片,然后快捷键「Ctrl + H」打开查找替换功能,勾选「使用通配符」。

    查找内容:香蕉

    替换为:^c

    说明:^c意思是剪贴板的内容,也就是我们刚才复制的内容。

    2、批量插入表格

    9df5bb8c5eee5d62e433746f4e16f7e0.gif

    对于长篇文档排版工作者来说,插入表格是必不可少的,那么如何在指定的位置插入相同表格。如图所示,我希望在文档中出现的「水果市场需求」这段下面插入我制作好的表格。

    查找内容:(水果市场需求)(^13)

    替换为:1^c

    说明:^13是通配符下的换行符。查找内容中为什么要用两个括弧括起来呢?这个我之前有讲过哦!(主要是用来分组,将内容分成两组。比如说:你好,这两个字,只能是1组内容,如果我用括弧(你)(好),那么它就表示2组内容,当然,我们用这种查找内容的话,是需要对应替换为中的1和2的,1对应(你);2对应(好)。)所以,我这里的意思就是查找「水果市场需求」这几个字及换行符,并保留这几个字,然后插入剪贴板中的内容。

    3、批量插入文字

    39839424314599ffd834315c55b60be0.gif

    查找替换中,我们只能够替换一段有限的内容。我们如果利用使用^c 就可以替换或插入你想要的任意段内容了。

    展开全文
  • 解决问题 ...批量去除表格内的英文字母 解决方法 1、第一步,先将要去除字母的那一列复制到word文档,然后替换命令,输入^$ 2、第二步,点击全部替换,然后再复制到原来表格中即可! 大功告成!...

    解决问题

    批量去除表格内的英文字母

    解决方法

    1、第一步,先将要去除字母的那一列复制到word文档,然后替换命令,输入^$


    2、第二步,点击全部替换,然后再复制到原来表格中即可!

    大功告成!

    展开全文
  • 今天我们一起来学习一个Word超实用小技巧,如何批量文字变成图片。举个栗子:在PPT中有一页产品性能测评对比:文字表现力不及图片,所以我希望将最优和最差用图片来进行展示:如果是你,你是如何实现的?删掉文字...
  • 实例43:相连的英文单词、中文批量替换为英文单词、中文各一列的表格 29 实例44:处理西文、中文和标点 29 实例45:电话号码升位 31 实例46:手机号隐藏 31 实例47:移形换位 31 实例48:替换这样的名字 32 实例49:...
  • Excel 的强项是数据处理和分析,但不可否认,工作中也经常会用 Excel 记录文字表格。这就存在一个问题:如果要通篇查找并修改某个关键字的字体、颜色,好像没有什么特别好的办法。如果批量查找替换的话,Excel 会将...
  • 不过,今天所要教给大家的是比查找替换更高级的通配符,利用通配符我们不仅可以完成一些更高级的替换,还能够批量插入表格文字等内容。文字替换为图片上图表格中,我们要将「香蕉」这两个字替换为图片形式。先复制...
  • 如上图所示,文档中标红的文字都属于关键字,是需要替换的。 这里,我们还需要一份excel表格,用来存储报告的关键内容。 到这里,准备工作就做好了,可以开始写代码了。 处理word需要用到python-docx包,先pip安装 ...
  • 首先我们需要有一个word报告模板,模板中内置了一些需要修改的关键字,类似这个样子如上图所示,文档中标红的文字都属于关键字,是需要替换的。这里,我们还需要一份excel表格,用来存储报告的关键内容。到这里,...
  • Word使用技巧

    2020-12-19 22:33:19
    Word文字批量表格添加快捷新建组只打印文档中的某些段落文字多个Word查看生僻字、英文阅读一键速查修改痕迹批量打印奖状、证书、邀请函文档排版大杀器快速统一表格样式一级目录一级目录一级目录 文字批量表格 1...
  • Word

    2018-10-10 16:47:00
    1.下划线和格式刷配套使用," "出空格...4.替换功能可以批量修改内容、批量删除内容、批量修改样式。 5.选择功能可以选择格式相似的文本。 6.表格重复标题栏 7.标记等级功能: 视图--大纲显示--把页面标题定...
  • WordPCLDS_v901.zip

    2020-04-05 17:41:46
    word文档批处理软件,支持多个word文档批量替换文字表格、支持word批量转换为PDF格式,支持批量在word文档上批量涂覆水印。
  • 罗刚君Word精灵 v3.0.rar

    2019-07-13 05:22:16
    导出表格到Excel多表:导出表格时将每一个WORD表格保存在单独的工作表中,即WORD中有多少个表格,则在Excel中生成多少个工作表,逐一存放,同时还生成工作表目录。 批量缩放图片:按指定的倍数批量放大图片,或者按...
  • word使用技巧大全

    热门讨论 2011-03-18 20:37:53
    54、迅速得出Word表格的行列数 91 55、我用Word来拆字 91 56、批量写贺卡和信封 91 57、Word中巧输星期 91 58、输入带圈字符 91 59、过滤网页内容 91 60、快速转换大写金额 92 61、去掉自动编号功能 92 62、去除绘图...
  • 提供了对doc/ppt/txt/asp/html等文档进行智能字符批量替换(支持正则,Word通配符),对txt文本行的添加、删除、提取、统计分割等的处理,对doc/txt类型互转,对xls表合并 ,对ppt转word,Office文档密码筛查, txt...
  • Word中,查找和替换功能是编辑文档时时常要用到的重要功能,它能帮助我们快速将文档或表格中查找到的内容或格式等替换为指定的内容或格式,特别是遇到大量需要修改的相同文字内容或格式时非常实用,可以大大提高...
  • 支持 Word 表格,转换后的文本经过修整,去掉多余的空行空格,你只要简单排版即可打印或保存,软件还支持批量的转换。 支持的操作系统:Windows 2000、Windows XP、Windows 2003 运行环境要求:已安装 Office 2003
  • 介绍了应用Java Web进行程序开发的各个方面的知识和技巧,主要包括Java Web编程基础、文件操作管理、图形图像与多媒体技术、窗体应用技术、JSP操作Word与Excel等。全书分6篇23章,共计600个实例和600个经验技巧。每...
  • 实例045 批量替换某一类字符串 实例046 对字符串进行加密与解密 3.3 常用数字处理技术 实例047 判断输入的货币值是否为数字 实例048 对计算结果进行四舍五入 实例049 商品金额的大小写转换 实例050 设置货币...
  • 实例045 批量替换某一类字符串 实例046 对字符串进行加密与解密 3.3 常用数字处理技术 实例047 判断输入的货币值是否为数字 实例048 对计算结果进行四舍五入 实例049 商品金额的大小写转换 实例050 设置货币...
  • 实例045 批量替换某一类字符串 实例046 对字符串进行加密与解密 3.3 常用数字处理技术 实例047 判断输入的货币值是否为数字 实例048 对计算结果进行四舍五入 实例049 商品金额的大小写转换 实例050 设置货币...
  •  实例045 批量替换某一类字符串 58  实例046 对字符串进行加密与解密 59 3.3 常用数字处理技术 61  实例047 判断输入的货币值是否为数字 61  实例048 对计算结果进行四舍五入 62  实例049 商品金额的大小...
  • 实例045 批量替换某一类字符串 58 实例046 对字符串进行加密与解密 59 3.3 常用数字处理技术 61 实例047 判断输入的货币值是否为数字 61 实例048 对计算结果进行四舍五入 62 实例049 商品金额的大小写转换 63 实例...
  • 实例015 设置批量注释 实例016 如何对齐零乱的代码 实例017 判断代码中的括号是否匹配 实例018 修改可执行文件中的资源 1.3 程序调试 实例019 创建调试程序 实例020 在Release版本中进行调试 实例021 在VC中...
  • 实例015 设置批量注释 实例016 如何对齐零乱的代码 实例017 判断代码中的括号是否匹配 实例018 修改可执行文件中的资源 1.3 程序调试 实例019 创建调试程序 实例020 在Release版本中进行调试 实例021 在VC中...
  • 使用ObjectDBX实现的批量文字替换,与上一个版本比较起来,修正了一些Bug,并且是在不打开文件的情况下完成操作的,速度有了明显的提高。 第6章介绍了标注和公差的使用。新的圆弧长度标注程序涉及到多行文字格式代码...
  • 实例084 批量替换Word文档中指定的字符串 3.2 读取外部数据到Word中 196 实例085 读取文本文件到Word中 实例086 读取多个文本文件到同一Word文档中 实例087 读取Access数据到Word并对数据列进行计算 实例088 ...
  • 7、增加后台内容管理中的批量替换,支持正则替换,内置(end)支持,指定“开始(end)”,即可批量清除采集的内容尾部不干净 8、升级编辑器为最新版本 更多新增功能,用户安装后体验,精迅1.3是一套高效、实用的中小型...

空空如也

空空如也

1 2 3
收藏数 60
精华内容 24
关键字:

word表格批量替换表格文字