Setfso=CreateObject("scripting.filesystemobject")Setfp=fso.getfolder(ThisWorkbook.Path)ReDimarr(1Tofp.Files.Count,1To2)arr(1,1)="文件号":arr(1,2)="标题"Setwd=CreateObject(...

SetApp=CreateObject("Word.Application")'用Set关键字创建Word应用成序对象！MyFile=Dir(Mypath)'获得第一个WORD文档dowhileMyFile<>""'遍历Mypath下面的所有WORD文档App.Visible=True...

Functionregf(origiText,myPattern)Setregex=CreateObject("VBScript.RegExp")Withregex.Pattern=myPattern.Global=True.IgnoreCase=FalseSetmatchs=.Execute(origiText)EndWithForEachmInmat...

：比如：ABA先搜B，再搜A，替换的不是第一个A用是第二个A。未仔细研究根源，仅此备注。Excel、WordVBA学习笔记_笑虾的博客-CSDN博客VBA操作文件和文件夹步骤_w3cschool...

1、用scripting.filesystemobject对象打开一个文件夹，遍历其中的所有WORD文件2、打开WORD文件，读取文件中table(i)对象的一个具体的单元格完了。至于上面i的值及读取单元格的地址，要看你具体的文件...

第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个...

第一，提取：之前的字符DIMs,arrs="War_ID:SM3766R12-CA88770.9-23"arr=split(s,":")msgboxarr(0)得到的是：分号前的字符串，第二个问题Subaaa()Dims,arrs="War_ID:SM3766R12-C...

pos2).Copy'选中找到的两个字段中间的内容mydoc.CloseFalsewordapp.QuitWorksheets("Sheet2").SelectRange("A1").SelectActiveSheet.PasteApplication.ScreenUpdating=TrueApplication....

在word工具栏中找到“式样”（就在）“字体”的旁边，选择“清除格式”所有标题就都没了。就可以随便提取了。

如果格式固定可以不用VBA，excel2个工作表，现复制，黏贴到excel第一个工作表里，之后在第二个工作表你需要的地方输入公式连接第一个表的内容就可以