精华内容
下载资源
问答
  • 批量替换word文档文字工具,绿色免安装,无需注册码,直接运行
  • 特别适合一些格式化文件,比如合同、产品说明、ISO标准化文档(质量手册、程序文件、管理手册)、项目推广方案等,先做批量替换,再进行修改,可以节省大量时间。需要看代码的可以输入工程密码,密码是我的用户名。
  • A,首先将需要批量替换多个Word文档放在同一文件夹下面。  B,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。  C,在控件工具箱上单击“命令按钮”,文档中...
  • Word文档批量替换工具

    万次阅读 2019-07-01 11:25:01
    作者:iamlaosong 日常工作中可能会碰到这样的情况,就是需要批量替换一些文件的内容,如合同、产品说明、ISO认证...工具用VBA实现,主要是针对ISO认证标准化文档做的,即对多个文件做同样的替换。界面如下: ...

    作者:iamlaosong

    日常工作中可能会碰到这样的情况,就是需要批量替换一些文件的内容,如合同、产品说明、ISO认证标准化文档(质量手册、程序文件、管理手册)、项目推广方案等,先做批量替换,再进行修改,可以节省大量时间。

    本工具可以实现一键完成批量替换,只需按键前将要替换的内容输入表格当中。工具用VBA实现,主要是针对ISO认证标准化文档做的,即对多个文件做同样的替换。界面如下:

     

    功能简单,实现起来也容易。也就是读取表格内容到数组,选择要替换的文件,然后逐个替换即可。

    1、文件夹替换:点击按钮选择一个文件夹,工具对文件夹下所有Word文档进行替换,替换后的文件保留在当前文件夹下新建的new文件夹下,文件名和源文件相同。

    2、文件替换:点击按钮后选择一个或多个Word文档,工具对对选中的文档进行替换,替换后的文件保留在当前文件夹下新建的new文件夹下,文件名和源文件相同。

    本来想用Excel VBA做的(毕竟这个我比较熟),可是Excel VBA代码写完后,打开Word文档没问题,其他代码执行没问题,就是替换功能那部分代码执行了完不成替换,而同样的代码在Word VBA中却可以实现所需的功能,不知道问题出在哪儿。

    核心代码如下:

    1、读取表格内容:

        '读取替换内容
        For k = 2 To 100
           tmp = ActiveDocument.Tables(1).Cell(k, 1)
           sFind(k) = Left(tmp, Len(tmp) - 2)
           tmp = ActiveDocument.Tables(1).Cell(k, 2)
           sRepl(k) = Left(tmp, Len(tmp) - 2)
           If sFind(k) = "" Then Exit For
        Next k
        WordNo = k - 1
    

    2、批量替换

        If Dir(sPath & "\new", vbDirectory) = "" Then MkDir sPath & "\new"
        '开始替换
        For kk = 1 To FileNo
            Target = sPath & "\" & myFile(kk)
            Debug.Print Target
            Documents.Open Target
                
            For k = 2 To WordNo
                Selection.Find.ClearFormatting
                Selection.Find.Replacement.ClearFormatting
                With Selection.Find
                    .Text = sFind(k)
                    .Replacement.Text = sRepl(k)
                    .Forward = True
                    .Wrap = wdFindContinue
                    .Format = False
                    .MatchCase = False
                    .MatchWholeWord = False
                    .MatchByte = True
                    .MatchWildcards = False
                    .MatchSoundsLike = False
                    .MatchAllWordForms = False
                    '执行替换
                    .Execute Replace:=wdReplaceAll
                End With
            Next k
            ActiveDocument.SaveAs2 FileName:=sPath & "\new\" & myFile(kk)
            'ActiveDocument.Save
            ActiveDocument.Close
        Next kk
        
        MsgBox "共有" & FileNo & "个文件替换完毕!"
    

     

    感兴趣朋友可以下载试试:Word文档批量替换工具.doc

    补记:

    后来发现,Excel之所以不行,是因为Excel环境下wdReplaceAll、wdFindContinue都是空值。而这些参数为空值,是因为我们没有引用Word对象,引用一下就不是空值了(如果把wdReplaceAll、wdFindContinue等常量换成其值2、1,不引用也可以),如下图:

    Excel下面的关键代码如下:

            '查找并替换
            For k = 1 To Strno
                With docApp.Selection.Find
                    .ClearFormatting
                    .Text = arrStr(k, 1)
                    .Replacement.Text = arrStr(k, 2)
                    .Forward = True
                    .Wrap = wdFindContinue
                    .MatchWildcards = False
                End With
                docApp.Selection.Find.Execute Replace:=wdReplaceAll
            Next k
    

    注意:docApp是Word应用对象,即:Set docApp = CreateObject("Word.Application")

     

    展开全文
  • 批量修改替换多个Word文档中同一内容的方法
  • 批量替换word文字

    2018-08-11 11:53:12
    此工具用于批量替换多个word中指定的相同文字,省时省力
  • 通过nodejs 和第三方类库批量分割word文件多个word文件
  • txt,html,php,asp,word等各类文件文字内容查找并替换,网站使用多年,非常好用
  • NULL 博文链接:https://parra.iteye.com/blog/899893
  • 可以轻松地将某文件夹下的所有WORD文档中的某个字符串全部替换为其他字符串。下面是具体操作步骤。
  • 需频繁批量替换文档的可以试试,可选定待替换文件夹,替换doc,xls文档,一次性替换多个字符串
  • 奈末Office批量转PDF助手,能快速性将多个Word,Excel,PowerPoint文档批量转换成pdf文件,无需打开文件即可转换,可选择MS OFFICE或WPS。软件简单易用,绿色软件,解压即可用,无需安装,同时
  • #coding=utf-8 importos fromdocximportDocument old_file_path='C:\\Users\\lgs\\Desktop\\docx\\' new_file_path='C:\\Users\\lgs\\Desktop\\new_docx\\' replace_dict={ "2015年版一部":"2020年版一......

    # coding=utf-8

    import os

    from docx import Document

     

    old_file_path='C:\\Users\\lgs\\Desktop\\docx\\'

    new_file_path='C:\\Users\\lgs\\Desktop\\new_docx\\'

     

    replace_dict={

        "2015年版一部":"2020年版一部",

        "2012年版":"2020年版",

        "SDFLX/A/":"SDFLX/B/"

        }

    def check_and_change(document,replace_dict):

        for para in document.paragraphs:

            for i in range(len(para.runs)):

                for key,value in replace_dict.items():

                    if key in para.runs[i].text:

                        print(key+"-->"+value)

                        para.runs[i].text=para.runs[i].text.replace(key,value)

        return document    

     

    def main():

        for name in os.listdir(old_file_path):

            print(name)

            old_file = old_file_path + name

            new_file = new_file_path + name[:18]+"(B00版).docx"

            if old_file.split(".")[1] == 'docx':

                document = Document(old_file)

                document = check_and_change(document, replace_dict)

                document.save(new_file)

            print("^"*30)  

     

    if __name__ == '__main__':

        main()          

     

    展开全文
  • Word多个文档批量替换工具,不用安装,简单实用SR_240.zip
  • '''此函数用于批量替换合同中需要替换的信息 doc:文件 old_info和new_info:原文字和需要替换的新文字 ''' #读取段落中的所有run,找到需替换的信息进行替换 for para in doc.paragraphs: # for...

    定义函数info_update。只需要向其中传入目标文件路径,待替换的词和新词即可

    import docx
    def info_update(doc,old_info, new_info):
        '''此函数用于批量替换合同中需要替换的信息
        doc:文件
        old_info和new_info:原文字和需要替换的新文字
        '''
        #读取段落中的所有run,找到需替换的信息进行替换
        for para in doc.paragraphs: #
            for run in para.runs:
                run.text = run.text.replace(old_info, new_info) #替换信息
        #读取表格中的所有单元格,找到需替换的信息进行替换
        for table in doc.tables:
            for row in table.rows:
                for cell in row.cells:
                    cell.text = cell.text.replace(old_info, new_info) #替换信息

    传入需要替换的原文件

    import os #用于获取目标文件所在路径
    path="data/" # 文件夹路径
    files=[]
    for file in os.listdir(path):
        if file.endswith(".docx") and file.startswith("公司"): #排除文件夹内的其它干扰文件,只获取word文件
            files.append(path+file) 
    files
    
    #打印结果
    ['data/公司001合同.docx',
     'data/公司002合同.docx',
     'data/公司003合同.docx',
     'data/公司004合同.docx',
     'data/公司005合同.docx',
     'data/公司006合同.docx',
     'data/公司007合同.docx',
     'data/公司008合同.docx',
     'data/公司009合同.docx',
     'data/公司010合同.docx']

    根据替换条件替换后保存

    for file in files:
        doc = docx.Document(file)
        info_update(doc,"商贸", "仁和")
        doc.save("data/替换结果/{}".format(file.split("/")[-1]))
        print("{}替换完成".format(file))
    
    #打印结果
    data/公司001合同.docx替换完成
    data/公司002合同.docx替换完成
    data/公司003合同.docx替换完成
    data/公司004合同.docx替换完成
    data/公司005合同.docx替换完成
    data/公司006合同.docx替换完成
    data/公司007合同.docx替换完成
    data/公司008合同.docx替换完成
    data/公司009合同.docx替换完成
    data/公司010合同.docx替换完成

    如果要替换指定地方的关键字,先获取关键字所在段落。

    #获取词"商贸"所在段落
    import docx #导入docx库
    doc = docx.Document("data/含干扰词/特殊_含干扰词.docx") #打开word文件
    text=[] #新建一个空列表text,然后将word文档中的所有段落对应的文本提取并存入这个列表。
            #列表是可以使用索引函数的,而列表里面元素的索引正好对应段落的索引。
    for para in doc.paragraphs: #读取word中的每个段落
        text.append(para.text)
    print(len(text))
    
    target_index=[] #空列表target_index,用于存储包含“商贸”一词的字符串在列表text中的索引
    for i in text:
        if "商贸" in i:
            target_index.append(text.index(i))
    target_index
    
    #77
    #[15, 26, 32, 38, 66]

    为了验证是否准确,我们可以打印看一下相应索引对应的段落是否真的包含“商贸”一词。如下打印结果显示,结果很理想。

    for j in target_index:
        print(doc.paragraphs[j].text)
    
    ’‘’乙方:ABC商贸有限责任公司
    1.交货方法:由乙方送货(国家主管部门规定有送货办法的,按规定的办法执行;没有规定送货办法的,按双方协议执行);商贸
    1.所有货物由乙方送到交货地点且甲方确认收货后5天内,由甲乙双方共同对货物的包装、
    外观、数量、商标、型号、规格及性能等进行验收,签署检验报告。如乙方未按约定到甲
    方指定地点参加检验的,应视为乙方对甲方单方检验的结果予以确认。验收标准执行合同
    规定的货物质量标准。商贸
    总价指甲方的交货价格,该价格应包含货物价格、通关费、包装费、物流费、装卸费、
    保险费、在甲方指定场所的安装调试费、必要的培训费以及增值税等一切费用。在乙
    方完全履行本合同下全部义务的情形下,除非另有书面约定,否则合同金额是甲方应
    当向乙方支付的全部费用 。商贸
    本合同自双方法定代表人或委托代理人签字盖章后生效,至合同条款履行完毕时终止。商贸‘’‘

    因为我们只替换第一、第三、第六个“商贸”为“仁和”,而第六个在表格中。所以需要改一下原来的替换函数info_update,命名为新的函数info_update_new,我们在函数内指定只替换段落15和32中的目标词,表格中的目标词也继续替换。

    import docx
    def info_update_new(doc,old_info, new_info):
        '''此函数用于批量替换合同中需要替换的信息
        doc:文件
        old_info和new_info:原文字和需要替换的新文字
        '''
        #读取段落中的所有run,找到需替换的信息进行替换
        for i in [15,32]:
            para=doc.paragraphs[i]
            for run in para.runs:
                run.text = run.text.replace(old_info, new_info) #替换信息
        #读取表格中的所有单元格,找到需替换的信息进行替换
        for table in doc.tables:
            for row in table.rows:
                for cell in row.cells:
                    cell.text = cell.text.replace(old_info, new_info) #替换信息

    用于获取目标文件所在路径

    import os #用于获取目标文件所在路径
    path="data/含干扰词/" # 文件夹路径
    files=[]
    for file in os.listdir(path):
        if file.endswith(".docx"): #排除文件夹内的其它干扰文件,只获取word文件
            files.append(path+file) 
    
    for file in files:
        doc = docx.Document(file)
        info_update_new(doc,"商贸", "仁和")
        doc.save("data/替换结果/{}".format(file.split("/")[-1]))
        print("{}替换完成".format(file))
    
    #data/含干扰词/特殊_含干扰词.docx替换完成

     

     

     

     

    展开全文
  • word多个文档替换内容

    万次阅读 热门讨论 2018-09-05 14:51:57
    替换文件夹下所有文档的内容,需要替换的文档不能打开,采用宏进行批量替换,亲测成功,测试是word2016 根据简书作者改编https://www.jianshu.com/p/9d348b8015b6?utm_campaign=maleskine&utm_content=note...

    替换文件夹下所有文档的内容,需要替换的文档不能打开,采用宏进行批量替换,亲测成功,测试是word2016
    根据简书作者改编https://www.jianshu.com/p/9d348b8015b6?utm_campaign=maleskine&utm_content=note&utm_medium=seo_notes&utm_source=recommendation
    第一步:新建一个Word并打开,点击工具栏视图–宏(下边的倒三角)–查看宏
    第一步
    第二步:填写一个文件名,点击创建
    第二步
    第三步:复制以下代码,替换新创建的宏代码(如果以前有宏注意不要误删),注意代码格式,保存

    Sub CommandButton1_Click()
    Application.ScreenUpdating = False  '关闭屏幕闪
    Dim myFile$, myPath$, i%, myDoc As Object, myAPP As Object, txt$, Re_txt$
    Set myAPP = New Word.Application
    With Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个文件夹
        .Title = "选择目标文件夹"
        If .Show = -1 Then
            myPath = .SelectedItems(1) '读取选择的文件路径
        Else
            Exit Sub
        End If
    End With
    myPath = myPath & ""
    myFile = Dir(myPath & "\*.docx")
    txt = InputBox("需要替换的文字:")
    Re_txt = InputBox("替换成:")
    myAPP.Visible = True '是否显示打开文档
    Do While myFile <> "" '文件不为空
    Set myDoc = myAPP.Documents.Open(myPath & "\" & myFile)
    If myDoc.ProtectionType = wdNoProtection Then '是否受保护
        With myDoc.Content.Find
            .Text = txt
            .Replacement.Text = Re_txt
            .Forward = True
            .Wrap = 2
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=2
        End With
    End If
    myDoc.Save
    myDoc.Close
    myFile = Dir
    Loop
    myAPP.Quit '关掉临时进程
    Application.ScreenUpdating = True
    MsgBox ("全部替换完毕!")
    End Sub
    
    

    第三步
    第四步:回到Word文档,点击视图–宏,运行宏
    第四步
    第五步:弹出窗口,选择需要替换文档的文件夹(文件夹下不会显示文件名)
    第五步
    第六步:要替换的文字
    第六步
    第七步:替换成
    第七步
    第八步:需要等待一会,显示全部替换完毕即可
    第八步

    展开全文
  • 1,可批量替换word中的指定内容 ,亲测,实用。 ps:目录的深度超过3级后,有时替换不了。
  • VBA批量替换多个WORD文档中的内容.docx
  • VS2010下c#操作word进行批量查找和替换。选择路径后程序自动进行批量查找和替换,去持子目录搜索、大小写匹配、整字匹配、通配符匹配。
  • NULL 博文链接:https://bianrongxin.iteye.com/blog/1571146
  •  第一,首先将需要批量替换多个Word文档放在同一文件夹下面。  第二,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。  第三,在控件工具箱上单击“命令按钮”...
  • 1、用python批量替换word文件中的文字。 会议文件。每次的会议文件格式比较固定,但是会议时间、会议届次不同,想用python实现批量替换。 例如:用“第二届”替换“第一届”,“第二次会议”替换“第一次会议”,...
  • 背景:朋友工作中有多个Word文件,每次做更新时都要更新文档内的日期,每次手工更改都比较耗费时间,加上公司电脑不能装未授权的软件,且只支持英文,于是就根据这个需求,参考一些网上的代码,并做了一些升级,增加...
  • WordSR 在多个Word文件批量查找替换

    热门讨论 2011-04-30 12:24:17
    WordSR 在多个Word文件批量查找替换 版本 0.1 版权所有(C) 2011 lzy0168@gmail.com 保留所有权利 此程序为免费软件,仅为使用目的发布,而无任何担保 暂时在 windows 7 安装有 word 2007 的环境下测试通过,...
  • Delphi开发的Word文档批量处理程序,可批量Word文字替换批量字体修改、批量插入图片,批量合并Word文档、删除指定页等功能,还可以批量新建文档。关于本程序的使用说明:  1、系统将根据样版文件复制成多个文件;...
  • 蓝梦WORD批量替换是可以同时替换多个WORD文档到相同或不同内容的办公辅助程序。 在日常办公中经常遇到形式化word文件,仅需要替换指定的几处文本 该软件免去了一个个打开、一个个关闭的麻烦,只需要填写 替换和 被...
  • VBA宏批量处理多个Word文档

    千次阅读 2021-01-20 11:19:45
    工作里面需要处理上百个Word文档,所以就开始在网上查找宏相关的代码 由于第一次接触宏相关的代码,所以写得肯定不会很好。不过,最后勉强算是解决了问题,为了以后方便查找,就把代码贴上来。     开启、...
  • 奈末Word批量替换助手,能一次性将多个Word,Excel,PowerPoint文档批量转换成pdf文件,无需打开文件即可转换,可选择MS OFFICE或WPS。软件简单易用,绿色软件,解压即可用,无需安装,同时支持WPS和MS OFFICE。  奈...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 10,468
精华内容 4,187
关键字:

多个word文档批量替换