精华内容
下载资源
问答
  • 利用VBA可以轻松地将某文件夹下的所以WORD文档中的某个字符串全部替换为其他字符串。下面是具体操作步骤。  第一,首先将需要批量替换多个Word文档放在同一文件夹下面。  第二,新建一空白Word文档,右击空白...


       

       利用VBA可以轻松地将某文件夹下的所以WORD文档中的某个字符串全部替换为其他字符串。下面是具体操作步骤。

      第一,首先将需要批量替换的多个Word文档放在同一文件夹下面。

      第二,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。

      第三,在控件工具箱上单击“命令按钮”,文档中就放置了一个按钮了。

      第四,双击该按钮,进入VB代码编写模式,将以下代码复制进去。

    Private SubCommandButton1_Click()
    Application.ScreenUpdating = False
    Dim myPas As String, myPath As String, i As Integer, myDoc AsDocument

    WithApplication.FileDialog(msoFileDialogFolderPicker)
        .Title ="选择目标文件夹"
        If .Show =-1 Then
         myPath = .SelectedItems(1)
        Else
         Exit Sub
        End If
    End With
    myPas = InputBox("请输入打开密码:")

    WithApplication.FileSearch
        .LookIn =myPath
        .FileType =msoFileTypeWordDocuments
        If .Execute> 0 Then
         For i = 1 To .FoundFiles.Count
           Set myDoc = Documents.Open(FileName:=.FoundFiles(i),Passworddocument:=myPas)
           Selection.Find.ClearFormatting
           Selection.Find.Replacement.ClearFormatting
           With Selection.Find
           .Text = "中微子工作室"
           .Replacement.Text = "
    www.jihetu.com"
           .Forward = True
           .Wrap = wdFindAsk
           .Format = False
           .MatchCase = False
           .MatchWholeWord = False
           .MatchByte = True
           .MatchWildcards = False
           .MatchSoundsLike = False
           .MatchAllWordForms = False
          End With
          Selection.Find.Execute Replace:=wdReplaceAll
          myDoc.Save
          myDoc.Close
          Set myDoc = Nothing
         Next
        End If
    End With
    Application.ScreenUpdating = True
    End Sub

       第五,保存上面代码,退出VB编辑模式,返回Word文档界面。

      第六,单击选中该按钮,再单击控件工具箱的第一个按钮“退出设计模式”。

      第七,进行测试:点击按钮,选择要放置多个WORD文档所在的文件夹,确定后即可完成!注意如果WORD文档没有加密的话,密码项就不填,直接确认。 你会发现该文件夹下面的所有WORD文档中“中微子工作室”已被替换为“http://www.jihetu.com”了。

     

      说明:在实际使用中,可以更改上面代码中的""引号里的字符内容为实际需要批量替换的内容即可。如下所

    示。
      .Text = "中国"

       .Replacement.Text ="China"

     

    附:相关对象说明

    1.Find对象

    该对象代表查找操作的执行条件,其属性、方法和“替换”对话框中选项一致,具体如下所述:

    (1)Font属性

    该属性由于返回或设置Font对象,代表指定对象的字符格式。

    (2)Wrap属性

    该属性用于设置在搜索时进行的相关操作,可通过常量进行赋值,具体如下所述:

    A、wdFindAsk常量:搜索完毕后,显示是否搜索文档的其他部分的消息框。

    B、wdFindContinue常量:搜索完毕后,继续执行。

    C、wdFindStop常量:搜索完毕后,停止执行。

    (3)Format属性

    该属性用于设置是否在查找操作中包含格式。

    (4)MatchCase属性

    该属性用于设置在查找时是否区分大、小写。

    (5)MatchWholeWord属性

    该属性用于设置是否在查找时仅对完整单词进行匹配。

    (6)MatchByte属性

    该属性用于设置是否在查找时区分全角和半角的字符。

    (7)MatchWildcards属性

    该属性用于设置是否在查找时允许使用查找通配符。

    (8)MatchSoundsLike属性

    该属性用于设置是否在查找时返回与待查文字发音相近的单词。

    (9)Execute方法

    该方法用于执行替换或查找操作。

    (10)ClearFormatting方法

    该方法用于清除替换或查找的内容。

    2.Replacement对象

    该对象代表查找和替换操作的替换条件,其属性、方法和“查找和替换”对话框中的选项一致,具体如下所述:

    (1)Text属性

    该属性用于设置选择内容中需查找或替换的文本。

    展开全文
  • 群里(Word学习交流群:180627193)一位朋友问到,如何一次性批量替换多个word文档中的同一内容。其实,实现多个Word文档的字符进行批量替换的方法有多种。(www.itblw.com)  第一种方法,可以利用第三方软件:...

            群里(Word学习交流群:180627193)一位朋友问到,如何一次性批量替换多个word文档中的同一内容。其实,实现多个Word文档的字符进行批量替换的方法有多种。(www.itblw.com

      第一种方法,可以利用第三方软件:全能字符串批量替换机。在网上可以下载到这款软件,利用该软件可以实现多个Word文档字符进行批量替换。

      第二种方法,使用VBA实现,下面是具体操作步骤。

      第一,首先将需要批量替换的多个Word文档放在同一文件夹下面。

      第二,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。

      第三,在控件工具箱上单击“命令按钮”,文档中就放置了一个按钮了。

      第四,双击该按钮,进入VB代码编写模式,将以下代码复制进去。
    Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim myPas As String, myPath As String, i As Integer, myDoc As Document
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择目标文件夹"
        If .Show = -1 Then
          myPath = .SelectedItems(1)
        Else
          Exit Sub
        End If
    End With
    myPas = InputBox("请输入打开密码:")
    With Application.FileSearch
        .LookIn = myPath
        .FileType = msoFileTypeWordDocuments
        If .Execute > 0 Then
          For i = 1 To .FoundFiles.Count
            Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)
            Selection.Find.ClearFormatting
            Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = "IT部落窝"
            .Replacement.Text = "www.itblw.com"
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
            myDoc.Save
            myDoc.Close
            
            Set myDoc = Nothing
          Next
        End If
    End With
       Application.ScreenUpdating = True
    End Sub

      第五,保存上面代码,退出VB编辑模式,返回Word文档界面。

      第六,单击选中该按钮,再单击控件工具箱的第一个按钮“退出设计模式”。

      第七,进行测试:再次点击按钮,就会发现该文件夹下面的所有WORD文档中的"IT部落窝"被替换为"www.itblw.com"了。

      说明:在实际使用中,可以更改上面代码中的""引号里的字符内容为实际需要批量替换的内容即可。如下所示。
      .Text = "
    IT部落窝"
        .Replacement.Text = 
    www.itblw.com

    展开全文
  • 这种字符串处理的问题,并不是Excel的长处,需要编写VBA来完成,今天我们学习一下借助Word来处理这问题。首先把Excel中的内容复制到Word中;在Word中操作替换,点击更,打开搜索选项,勾选使用通配符,搜索里面...
    a8f1ce9e6e5b5593fd20542ed17aed24.gif

    点击蓝字“方方格子”关注我们

    ac0c94b725bb2f490983f0a438c3b815.gif

    今天这篇文章我们来看一下字符串处理方面的知识,如下图所示,我们需要给大写字母和数字前面加一个空格,连续的数字不需要加。

    a74bb581618beee7b704eb51e744d753.png

    这种字符串处理的问题,并不是Excel的长处,需要编写VBA来完成,今天我们学习一下借助Word来处理这个问题。

    首先把Excel中的内容复制到Word中;

    在Word中操作替换,点击更多,打开搜索选项,勾选使用通配符,搜索里面输入([!A-Z])([A-Z]),替换中输入\1 \2,点击全部替换即可给大写字母前面加上一个空格。

    e593a4920e670c45c925e7911c04a6d7.png

    给数字前面加空格,搜索([!0-9])([0-9]),替换里面输入\1 \2。

    最后把处理结果复制回Excel中即可。

    Word本来就是用于文本处理方面的问题,相比Excel,更为强大简便,以后有类似文本处理的问题,可以考虑使用Word来完成。

    关于Word查找替换方面的实际使用案例,我为大家找了一份文档资料,参考如下:

    a6239972b1fca531c935268622ed5ada.png

    公众号后台回复【Word查找替换】,即可获得此文档,保存以后备查。

    今天的介绍就到这里,我们下次再见。

    想要加入微信交流群一起学习的朋友可以在公众号后台回复【进群】,一起学习,共同进步。

    “在看”我吗?

    ebe3263e81ecc4d75761cfb057a43d09.png
    展开全文
  • 函数作用:查找一字符串(withinstr)在另一字符串中(findstr1)中某一次(startnum)出现时的位置,返回零表示没找到。..................................................57 '31.函数作用:增加文件路径最后的“\”符号....
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧6 替换单元格内字符串 12 技巧7 复制单元格区域 12 技巧8 仅复制数值到另一区域 12 8-1 使用选择性粘贴 12 8-2 直接赋值的方法 12 技巧9 单元格自动进入编辑状态 12 技巧10 禁用单元格拖放功能 12 技巧11 单元格...
  • 50.对多个用同一分隔符分隔的待查找元素,逐一在表区域首列内搜索,将返回选定单元格的值相加,相当于多个vlookup函数相加,对于查找不到的元素在批注中添加,以提醒用户。 51.根据个人所得税(工资)反算工资数 52....
  • 这种字符串处理的问题,并不是Excel的长处,需要编写VBA来完成,今天我们学习一下借助Word来处理这问题。首先把Excel中的内容复制到Word中;在Word中操作替换,点击更,打开搜索选项,勾选使用通配符,搜索里面...
    2b556d6ca83272e1f712c2f79f47a0e2.gif

    点击蓝字“方方格子”关注我们

    959d52795be7094f1369a584f31437f3.gif

    今天这篇文章我们来看一下字符串处理方面的知识,如下图所示,我们需要给大写字母和数字前面加一个空格,连续的数字不需要加。

    4e7dfb2368b43bc466434565f6c71ea0.png

    这种字符串处理的问题,并不是Excel的长处,需要编写VBA来完成,今天我们学习一下借助Word来处理这个问题。

    首先把Excel中的内容复制到Word中;

    在Word中操作替换,点击更多,打开搜索选项,勾选使用通配符,搜索里面输入([!A-Z])([A-Z]),替换中输入1 2,点击全部替换即可给大写字母前面加上一个空格。

    0a27d431c79d694eda8026d1188fb0f4.png

    给数字前面加空格,搜索([!0-9])([0-9]),替换里面输入1 2。

    最后把处理结果复制回Excel中即可。

    Word本来就是用于文本处理方面的问题,相比Excel,更为强大简便,以后有类似文本处理的问题,可以考虑使用Word来完成。

    关于Word查找替换方面的实际使用案例,我为大家找了一份文档资料,参考如下:

    1932d823655f6907d642434c7c5be853.png

    链接:https://pan.baidu.com/s/1icW-X-F9kwnLrLwO4S5NMw

    提取码:3kk5

    展开全文
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧6 替换单元格内字符串 26 技巧7 复制单元格区域 27 技巧8 仅复制数值到另一区域 30 8-1 使用选择性粘贴 30 8-2 直接赋值的方法 31 技巧9 单元格自动进入编辑状态 32 技巧10 禁用单元格拖放功能 32 技巧11 单元格...
  • 04142设置单元格字符串中一部分字符的格式(其他字体属性) 04143设置单元格的下画线 04144设置单元格的字体属性(字体、字号、加粗、斜体、颜色等) 04145设置单元格区域的外部边框 04146设置单元格区域的全部边框 ...
  • 这种字符串处理的问题,并不是Excel的长处,需要编写VBA来完成,今天我们学习一下借助Word来处理这问题。首先把Excel中的内容复制到Word中;在Word中操作替换,点击更,打开搜索选项,勾选使用通配符,搜索里面...
  • VBSCRIPT中文手册

    热门讨论 2010-11-12 10:13:06
    Replace 函数 返回一个字符串,其中某个指定的子串被另一个子串替换替换的次数也有规定。 Replace 方法 替换在正则表达式搜索中已发现的正文。 RGB 函数 返回表示 RGB 颜色值的数。 Right 函数 返回字符串最...
  • VBSCRIP5 -ASP用法详解

    2010-09-23 17:15:46
    ExecuteGlobal 语句 执行一个或多个在全局脚本名字空间中所指定的语句。 Exit 语句 退出 Do...Loop、For...Next、 Function 或 Sub 代码块。 Exp 函数 返回 e (自然对数的底)的多少次方。 自乘运算符 (^) 指数...
  • 这种字符串处理的问题,并不是Excel的长处,需要编写VBA来完成,今天我们学习一下借助Word来处理这问题。首先把Excel中的内容复制到Word中;在Word中操作替换,点击更,打开搜索选项,勾选使用通配符,搜索里面...
  • vb Script参考文档

    2009-07-28 22:13:02
    Replace 函数 返回一个字符串,其中某个指定的子串被另一个子串替换替换的次数也有规定。 Replace 方法 替换在正则表达式搜索中已发现的正文。 RGB 函数 返回表示 RGB 颜色值的数。 Right 函数 返回字符串最...
  • 细分为<用数字顺序或倒序><用EXCEL存储格内容><增加字符串><清除字符串><替换字符串>方式改名,优点明显。例:替换字符串就支持起始长度、替换数、GB2与BIG5码相互转换等选项操作,也支持文件扩展名的修改。现...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    细分为<用数字顺序或倒序><用EXCEL存储格内容><增加字符串><清除字符串><替换字符串>方式改名,优点明显。例:替换字符串就支持起始长度、替换数、GB2与BIG5码相互转换等选项操作,也支持文件扩展名的修改。现...
  • 细分为<用数字顺序或倒序><用EXCEL存储格内容><增加字符串><清除字符串><替换字符串>方式改名,优点明显。例:替换字符串就支持起始长度、替换数、GB2与BIG5码相互转换等选项操作,也支持文件扩展名的修改。现...
  • ║ 【连接字符串】 【屏幕截图】 【任务管理器】 【控制单列不重复值】 【生成系统图标A】 ║ ║ 【隔行或列插入】 【屏幕取色】 【系统功能信息】 【选区转唯一值】 【生成系统图标B】 ║ ║ 【制作工资条】 【万年...
  • 细分为<用数字顺序或倒序><用EXCEL存储格内容><增加字符串><清除字符串><替换字符串>方式改名,优点明显。例:替换字符串就支持起始长度、替换数、GB2与BIG5码相互转换等选项操作,也支持文件扩展名的修改。现...
  • 细分为<用数字顺序或倒序><用EXCEL存储格内容><增加字符串><清除字符串><替换字符串>方式改名,优点明显。例:替换字符串就支持起始长度、替换数、GB2与BIG5码相互转换等选项操作,也支持文件扩展名的修改。现...
  • 5.2.16 在字符串中查找和替换  5.3 高级文本公式 5.3.1 计算单元格中指定字符的个数 5.3.2 计算单元格中指定子串的个数 5.3.3 把数字表示成序数词 5.3.4 为列数确定列字母 5.3.5 从具体路径中提取文件名 ...
  • 5.2.16 在字符串中查找和替换  5.3 高级文本公式 5.3.1 计算单元格中指定字符的个数 5.3.2 计算单元格中指定子串的个数 5.3.3 把数字表示成序数词 5.3.4 为列数确定列字母 5.3.5 从具体路径中提取文件名 ...
  • 8.14. replace:字符串替换实用工具 8.15. mysql_zap:杀死符合某一模式的进程 9. 语言结构 9.1. 文字值 9.1.1. 字符串 9.1.2. 数值 9.1.3. 十六进制值 9.1.4. 布尔值 9.1.5. 位字段值 9.1.6. NULL值 9.2. 数据库、...
  • MYSQL中文手册

    2013-03-11 21:21:34
    8.14. replace:字符串替换实用工具 8.15. mysql_zap:杀死符合某一模式的进程 9. 语言结构 9.1. 文字值 9.1.1. 字符串 9.1.2. 数值 9.1.3. 十六进制值 9.1.4. 布尔值 9.1.5. 位字段值 9.1.6. NULL值 9.2....
  • 8.14. replace:字符串替换实用工具 8.15. mysql_zap:杀死符合某一模式的进程 9. 语言结构 9.1. 文字值 9.1.1. 字符串 9.1.2. 数值 9.1.3. 十六进制值 9.1.4. 布尔值 9.1.5. 位字段值 9.1.6. NULL值 9.2. 数据库、...
  • │ │ 技巧166 字符串比较及清理垃圾字符.xls │ │ 技巧169 计算字符出现的次数.xls │ │ 技巧170 提取字符串.xls │ │ 技巧171 文本合并符号的妙用.xls │ │ 技巧172 重复记录自动加编号.xls │ │ 技巧...
  • excel百宝箱 正版

    2013-04-04 23:39:28
    ║ 【条件背景】 【插入批注背景】 【读取批注内容】 【数字大写转小写】 【多个休闲动画】 ║ ║ 【条件背景选择】 【插入行数】 【监控单元格修改】 【筛选复制可见】 【关闭所有动画】 ║ ║ 【高级背景】 【注解...
  • 3.2 接口................................................ 129 3.2.1 对象接口................................129 3.2.2 辅助接 U ................................130 3.3 抽象性.............................

空空如也

空空如也

1 2
收藏数 28
精华内容 11
关键字:

vba替换字符串多个内容