资源描述：
《批量删除一个文件夹下所有word文件的页眉和页脚》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、批量删除一个文件夹下所有Word文件的页眉和页脚'*，，，，，，，，，，，，，，，，，，，，，，，，，，，，，'*CreatedBySHOUROU@ExcelHome2007-12-266:12:17'仅测试于System:WindowsNTWord:11.0Language:2052'?0292^TheCodeCopyIn[ThisDocument-ThisDocument]^''*,,,,,,,,,,,,,,,,,,,,,,,,,,,,,OptionExplicitSubExample()'此代码功能为列出指定文件夹中所有选取的WORD文件全路径名Di
2、mmyDialogAsFileDialog,oDocAsDocument,oSecAsSectionDimoFileAsVariant,myRangeAsRangeOnErrorResumeNext'定义一个文件夹选取对话框SetmyDialog=Application.FileDialog(msoFileDialogFilePicker)WithmyDialog.Filters.Clear'清除所有文件筛选器中的项目.Filters.Add"所有WORD文件","*.doc",1'增加筛选器的项目为所有WORD文件.AllowMultiSelect=Tr
3、ue'允许多项选择If.Show=-1Then'确定ForEachoFileIn.SelectedItems'在所有选取项目中循环SetoDoc=Word.Documents.Open(FileName:=oFile,Visible:=False)ForEachoSecInoDoc.Sections'文档的节中循环SetmyRange=oSec.Headers(wdHeaderFooterPrimary).RangemyRange.Delete'删除页眉中的内容myRange.ParagraphFormat.Borders(wdBorderBottom).
4、LineStyle=wdLineStyleNone'段落下边框线SetmyRange=oSec.Footers(wdHeaderFooterPrimary).RangemyRange.Delete'删除页脚中的内容NextoDoc.CloseTrueNextEndIfEndWithEndSub'----------------------在VBA遍历文件夹和子文件夹中所有文件，常用两种方法，一种是使用VBA的filesercth对象，另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。兰色对代码进行了注解，希望对大家有所
5、帮助第一种方法:使用filesearch对象Submysearch()Dimfs,i,arr(1To10000)Setfs=Application.FileSearch'设置一个搜索对象Withfs.LookIn=ThisWorkbook.Path&"/"'设置搜索路径.Filename="*.xls"'要搜索文件名和类型.SearchSubFolders=True'是否需要搜索子文件夹If.Execute>0Then'如果找不到文件MsgBox"Therewere"&.FoundFiles.Count&_"file(s)found."'显示文件找不到Fo
6、ri=1To.FoundFiles.Count'通过循环把所有搜索到的文件存入到数组中arr(i)=.FoundFiles(i)NextiSheets(1).Range("A1").Resize(.FoundFiles.Count)=Application.Transpose(arr)''把数组内的路径和文件名放在单元格中ElseMsgBox"Therewerenofilesfound."EndIfEndWithEndSub第二种方法:引用FileSystemObject对象注意:要使用FileSystemObject对象，需要首先引用一下，具体方法，VB
7、E--工具--引用--找到miscrosoftscriptionruntime项目并选中代码及注释:DimArrFiles(1To10000)'创建一个数组空间,用来存放文件名称DimcntFiles%'文件个数PublicSubListAllFiles()DimstrPath$'声明文件路径Dimi%'Setfso=CreateObject("Scripting.FileSystemObject")DimfsoAsNewFileSystemObject,fdAsFolder'创建一个FileSystemObject对象和一个文件夹对象strPath=Th
8、isWorkbook.Path&""'"设置要遍历的文件夹目录c
