有个宏,求遍历文件夹和子文件夹中的WORD文档怎么写?

Sub 编辑图片()
For Each t In ActiveDocument.InlineShapes
t.PictureFormat.Contrast = 0.9
Next
End Sub
最新回答
一身正气结果漏气

2024-09-13 03:37:39

在VBA遍历文件夹和子文件夹中所有文件,常用两种方法,一种是使用VBA的Filesercth 对象,另外一种是使用FilesystemObject(windows文件管理工具)和递归方法。兰色对代码进行了注解,希望对大家有所帮助
第二种方法:引用FileSystemObject对象
注意:要使用FileSystemObject对象,需要首先引用一下,具体方法,VBE--工具--引用--找到miscrosoft scription runtime项目并选中
代码及注释:
Dim ArrFiles(1 To 10000) '创建一个数组空间,用来存放文件名称
Dim cntFiles% '文件个数
Public Sub ListAllFiles()
Dim strPath$ '声明文件路径
Dim i%
'Set fso = CreateObject("Scripting.FileSystemObject")
Dim fso As New FileSystemObject, fd As Folder '创建一个FileSystemObject对象和一个文件夹对象
strPath = ThisWorkbook.Path & "\" '"设置要遍历的文件夹目录
cntFiles = 0