精华内容
下载资源
问答
  • 注意页眉页脚,与正文内容替换方法不同 注意页眉页脚,与正文内容替换不同 Sub replacement() ’ replacement Macro’ Application.ScreenUpdating = False Dim myPath As String Dim FileCount As Integer Dim ...

    注意页眉页脚,与正文内容的替换方法不同

    Sub replacement()
    ’ replacement Macro’ Application.ScreenUpdating = False
    Dim myPath As String
    Dim FileCount As Integer
    Dim i As Integer
    Dim myDoc As Document
    Dim filename As String
    Dim arr(100) As String
    Dim headr As Word.HeaderFooter

    ‘替换页眉’
    With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = “选择目标文件夹”
    If .Show = -1 Then
    myPath =.SelectedItems(1)
    Else
    Exit Sub
    End If
    End With

    filename = Dir(myPath & “*.doc”)
    FileCount = FileCount + 1
    arr(FileCount) = filename

    Do While filename <> “”
    filename = Dir
    If filename ="" Then
    Exit Do
    End If
    FileCount =FileCount + 1
    arr(FileCount) =filename
    Loop

    For i = 1 To FileCount
    Set myDoc =Documents.Open(myPath & “” & arr(i))
    For Each headr In myDoc.Sections(1).Headers
    With headr.Range.Find
    .Text =“E2020”
    .replacement.Text = “E2021”
    .Executereplace:=wdReplaceAll, Forward:=True, Wrap:=wdFindStop
    End With
    Next headr
    myDoc.Save
    myDoc.Close

    ’ Macro 替换正文内容’ myDoc.Windows.Application.Activate’ Selection.Find.ClearFormatting’ Selection.Find.Replacement.ClearFormatting’ WithSelection.Find
    ’ .Text =“E2020”
    ’ .Replacement.Text = “E2021”
    ’ .Forward =True
    ’ .Wrap =wdFindContinue
    ’ .Format =False
    ’ .MatchCase =False
    ’ .MatchWholeWord = False
    ’ .MatchByte =False
    ’ .MatchWildcards = False
    ’ .MatchSoundsLike = False
    ’ .MatchAllWordForms = False
    ’ End With
    ’ Selection.Find.Execute replace:=wdReplaceAll
    ’ ActiveDocument.Save
    ’ ActiveWindow.Close
    Set myDoc =Nothing
    Next
    Application.ScreenUpdating= True
    End Sub

    展开全文
  • 最近在工作中遇到某一文件夹下的许多文件,名字和内容有大量需要替换,一个个手工替换很麻烦,于是修改了一段代码: Sub 批量更改word要素编号及文件名() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 ...

    最近在工作中遇到某一文件夹下的许多文件,名字和内容有大量需要替换,一个个手工替换很麻烦,于是修改了一段代码:

    Sub 批量更改word要素编号及文件名() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置
    Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document
    Dim NewName As String, thisPath As String
    ' On Error Resume Next '忽略错误
    '定义一个文件夹选取对话框
    Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
    With MyDialog
        .Filters.Clear '清除所有文件筛选器中的项目
        .Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件
        .AllowMultiSelect = True '允许多项选择
        If .Show = -1 Then '确定
            myPas = InputBox("请输入替换成的编号:")
            Application.ScreenUpdating = False
          
            For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环
              Set Doc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False)
             'Doc.Name = Replace(Doc.Name, "流程编号+", myPas)
            Doc.ActiveWindow.Selection.Find.Execute "流程编号+", , , , , , , , , myPas, wdReplaceAll
            ' Doc.SaveAs FileName:=Replace(vrtSelectedItem, "流程编号+", myPas)
     
            Doc.Close True
            
            '修改文件名
                    NewName = Replace(vrtSelectedItem, "流程编号+", myPas&" ")
                    If NewName <> "" Then
                        Name vrtSelectedItem As NewName
                    End If
             Next
            Application.ScreenUpdating = True
    
        End If
    End With
    Set Doc = Nothing  '释放变量
    MsgBox "编号更改完毕,请检查", vbInformation
    End Sub


    展开全文
  • 今天和小伙伴们分享一下,用VBA调用Word VBA的Find对象进行批量查找并替换上面Word文档,需要批量按照下面表格的查找内容进行查找,然后替换指定内容第3行的代码,创建一个Word应用程序对象,相当于你启用了...

    今天和小伙伴们分享一下,用VBA调用Word VBA的Find对象进行批量查找并替换

    775de9a0d621f4f1c0db702ebe718f6f.png

    上面Word文档,需要批量按照下面表格的查找内容进行查找,然后替换为指定的内容

    2ea482fa95da24332b7059de0ffd76bd.png

    第3行的代码,创建一个Word应用程序对象,相当于你启用了Microsoft Word软件

    第7行的代码,把当前工作表有数据的单元格区域赋值给数组arr

    第8行的代码,调用文件浏览器对象

    66efbd34d8ec82f70e42fafb4dc71b1b.png

    第9行的代码,设置文件多选还是单选,true可以多选文件,多选文件需要用循环遍历所有选择的文档,false单选,这里设置为单选

    第11行的代码,设置筛选文件,这里设置让所有扩展名包含doc的文件显示在文件浏览器里面,方便选择

    细心的小伙伴应该发现,这个设置对应下图红框部分

    8a46aa1ffec99823711b348f6e3a65e3.png

    第12行的代码,文件浏览器的show方法显示文件浏览器,当你点击打开,show方法返回-1,点击取消show方法返回0

    第13行的代码,.SelectedItems属性表示你所选择的所有文件路径列表,.SelectedItems(1)表示选择的第一个文件的路径

    然后用Word打开这个Word

    第14行的代码,表示Word文档内容,他是Word的一个range对象,表示整个文档

    第16行的代码,就是查找替换的代码了,FindText参数表示查找的内容,ReplaceWith参数表示要替换的内容,replace参数表示替换次数,wdReplaceAll是Word vba的一个固定参数,到Excel vba就不好用了,这里2是表示wdReplaceAll固定常量的值,小伙伴在Word vbe立即窗口输入

    ?wdReplaceAll

    第18行的代码保存Word文档

    第19行的代码关闭Word文档

    Sub my_find()Dim app, wordSet app = CreateObject("Word.Application")Dim arrDim word_contentDim i As Integerarr = ActiveSheet.UsedRangeWith Application.FileDialog(msoFileDialogFilePicker)    .AllowMultiSelect = False    .Filters.Clear    .Filters.Add "Word File", "*.doc*"    If .Show = -1 Then        Set word = app.documents.Open(.SelectedItems(1))        Set word_content = word.Content        For i = 2 To UBound(arr)        word_content.Find.Execute FindText:=arr(i, 1), ReplaceWith:=arr(i, 2), Replace:=2        Next i        word.Save        word.Close    End IfEnd WithEnd Sub

    8cfa40c496c7935755697807734e603f.png

    看完,记得点一下小花哦

    c9f11d0784db30c8a1fc27fdef57dca2.png

    展开全文
  • wps VBA 添加文件内容

    千次阅读 2009-04-21 22:06:00
    通过content来添加Application.ActiveDocument.Content.Text = "没有什么"通过这种方法添加的,会将整个文档的内容替换指定的值。2. 通过Selection.TypeText来添加Application.Selection.TypeText Text:="add

    wps添加内容

    wps添加内容的方式有很多种,以下是几种常用的

    1. 通过content来添加

    Application.ActiveDocument.Content.Text = "没有什么"

    通过这种方法添加的,会将整个文档的内容替换为指定的值。

    2. 通过Selection.TypeText来添加

    Application.Selection.TypeText Text:="add Text"

    在当前光标选定的位置插入内容。


     

     

     

    展开全文
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧6 替换单元格内字符串 12 技巧7 复制单元格区域 12 技巧8 仅复制数值到另一区域 12 8-1 使用选择性粘贴 12 8-2 直接赋值的方法 12 技巧9 单元格自动进入编辑状态 12 技巧10 禁用单元格拖放功能 12 技巧11 单元格...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧6 替换单元格内字符串 26 技巧7 复制单元格区域 27 技巧8 仅复制数值到另一区域 30 8-1 使用选择性粘贴 30 8-2 直接赋值的方法 31 技巧9 单元格自动进入编辑状态 32 技巧10 禁用单元格拖放功能 32 技巧11 单元格...
  • CAD_VBA开发手册

    热门讨论 2008-12-06 17:57:59
    改变视口视图及内容 在图纸空间中缩放线型样式 在被打印视口中的消隐线 打印图纸 执行基本打印 在模型空间中打印 从图纸空间打印 第十章-高级绘图与组织技术 使用光栅图像 附着和缩放光栅图像 管理光栅...
  • 本书的内容分为16章,另有一个附录,从各个方面向读者展示AutoCAD VBA开发的知识。 第1章深入分析了AutoCAD VBA开发中两个重要的知识点——宏和集合对象。宏是AutoCAD VBA开发中一个最基础但又非常重要的概念,而...
  • 【Exel VBA】FIND()

    2019-03-26 09:26:26
    Find语法: Range.Find(What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SearchFormat) ...对应于“查找与替换”对话框中,“查找内容”文本框中的内容。 参数After,可选。指定开...
  • 函数作用:用指定字符替换某字符.....................43 '14.函数作用:从右边开始查找指定字符在字符串中的位置...43 '15.函数作用:从右边开始查找指定字符在字符串中的位置...44 '16.函数作用:计算工龄...............
  • 13.用指定字符替换某字符 14.从右边开始查找指定字符在字符串中的位置 15.从右边开始查找指定字符在字符串中的位置 16.计算工龄 17.计算日期差,除去星期六、星期日 18.将英文字反转的自定函数 19.计算个人所得税 20...
  • 02041通过对话框指定文件名和保存位置并保存工作簿(之一) 02042通过对话框指定文件名和保存位置并保存工作簿(之二) 02043关闭工作簿,不保存 02044关闭工作簿前进行保存 02045关闭所有打开的工作簿,不保存 ...
  • EXCEL多文件查找替换是由金浚软件工作室推出的一款excel多文件查找替换软件,本软件可同时对指定文件夹中的多个excel工作簿文件批量进行查找内容替换,绿色小巧,批量操作,省时省力,需要的朋友欢迎前来下载使用...
  • 可以为以下常量之一:XlWhole或者xlPart,用来指定所查找的数据是与单元格内容完全匹配还是部分匹配,默认值为xlPart。对应于“查找与替换”对话框中,“单元格匹配”复选框。(6)参数SearchOrder,可选。用来确定...
  • 直接用vbs替换比较困难。这里补充下文本型窗体域是什么:窗体域是用来给人填写调查之用。下拉式窗体是只能选择预置的答案,选择式窗体者只能选择是或否,用开关来表示。文字型窗体,只能输入指定文字长度的字符。当...
  • 【快速选定数据】 可瞬间选中与用户指定内容相同的当前工作表中所有存储格,方便选定、清除内容或其他操作,支持选中字体彩色是否着色。 【取型号使用范围】 取MATCH的两列数据(Relating Area)中对应MODEL的使用范围...
  • 【快速选定数据】 可瞬间选中与用户指定内容相同的当前工作表中所有存储格,方便选定、清除内容或其他操作,支持选中字体彩色是否着色。 【取型号使用范围】 取MATCH的两列数据(Relating Area)中对应MODEL的使用...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    【快速选定数据】 可瞬间选中与用户指定内容相同的当前工作表中所有存储格,方便选定、清除内容或其他操作,支持选中字体彩色是否着色。 【取型号使用范围】 取MATCH的两列数据(Relating Area)中对应MODEL的使用...
  • 【快速选定数据】 可瞬间选中与用户指定内容相同的当前工作表中所有存储格,方便选定、清除内容或其他操作,支持选中字体彩色是否着色。 【取型号使用范围】 取MATCH的两列数据(Relating Area)中对应MODEL的使用...
  • 【快速选定数据】 可瞬间选中与用户指定内容相同的当前工作表中所有存储格,方便选定、清除内容或其他操作,支持选中字体彩色是否着色。 【取型号使用范围】 取MATCH的两列数据(Relating Area)中对应MODEL的使用...
  • VBSCRIP5 -ASP用法详解

    2010-09-23 17:15:46
    Replace 函数 返回一个字符串,其中某个指定的子串被另一个子串替换替换的次数也有规定。 Replace 方法 替换在正则表达式搜索中已发现的正文。 RGB 函数 返回表示 RGB 颜色值的数。 Right 函数 返回字符串最...
  • VBSCRIPT中文手册

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

    2009-07-28 22:13:02
    Replace 函数 返回一个字符串,其中某个指定的子串被另一个子串替换替换的次数也有规定。 Replace 方法 替换在正则表达式搜索中已发现的正文。 RGB 函数 返回表示 RGB 颜色值的数。 Right 函数 返回字符串最...
  •  全书分为14章和一个附录,包括如下内容:学习使用Excel 2007图表制作界面,掌握使用图形有效地表示数据的方式,根据要传达的信息选择正确的图表类型,学习可节省时间的解决方案,创建大多数人认为使用Excel无法...
  •  全书分为14章和一个附录,包括如下内容:学习使用Excel 2007图表制作界面,掌握使用图形有效地表示数据的方式,根据要传达的信息选择正确的图表类型,学习可节省时间的解决方案,创建大多数人认为使用Excel无法...
  • PROJECT 2007宝典 9/9

    2012-04-01 19:13:00
     5.4.5 删除或替换资源分配   5.5 处理非正常成本情况   5.5.1 查看项目的成本   5.5.2 分配固定成本   5.5.3 解决资源费率变化   5.6 小结  第3部分 改善项目  第6章 理解视图基础   6.1 ...
  • 1256.2.4 删除表排序次序和解冻列 1256.3 查找表中的匹配记录 1266.4 自动地替换匹配的字段值 1276.5 筛选表数据 1286.5.1 按选定内容筛选 1286.5.2 按窗体筛选 1306.5.3 高级筛选和排序 1326.5.4 添加一个多字段...
  • 1256.2.4 删除表排序次序和解冻列 1256.3 查找表中的匹配记录 1266.4 自动地替换匹配的字段值 1276.5 筛选表数据 1286.5.1 按选定内容筛选 1286.5.2 按窗体筛选 1306.5.3 高级筛选和排序 1326.5.4 添加一个多字段...
  • 1256.2.4 删除表排序次序和解冻列 1256.3 查找表中的匹配记录 1266.4 自动地替换匹配的字段值 1276.5 筛选表数据 1286.5.1 按选定内容筛选 1286.5.2 按窗体筛选 1306.5.3 高级筛选和排序 1326.5.4 添加一个多字段...
  • 1246.2.3 在多个字段上排序数据 1256.2.4 删除表排序次序和解冻列 1256.3 查找表中的匹配记录 1266.4 自动地替换匹配的字段值 1276.5 筛选表数据 1286.5.1 按选定内容筛选 1286.5.2 按窗体筛选 1306.5.3 高级筛选和...

空空如也

空空如也

1 2
收藏数 40
精华内容 16
关键字:

vba替换指定内容