Sub 在选定文档最后加入一句话() '遍历文件 Dim MyDialog As FileDialog On Error Resume Next Application.ScreenUpdating = False Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog ' .InitialFileName = "C:\" .Filters.Clear '清除所有文件筛选器中的项目 .Fi
Sub 在选定文档最后加入一句话() '遍历文件 Dim MyDialog As FileDialog On Error Resume NextApplication.ScreenUpdating = False Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog' .InitialFileName = "C:\" .Filters.Clear '清除所有文件筛选器中的项目 .Filt