找了一个对word文件批量操作的vb求助变成excl可以使用的

我是谁1100.

Sub 批量对Word操作()
'  A.公共部分的代码
Application.ScreenUpdating = False        '冻结屏幕，以防屏幕抖动，这句好像没作用，窗口仍然会颤抖
Dim mydialog As FileDialog, GetStr(1 To 1000) As String    '1000是工作时的文档上限数，可因需修改，不知没有限制的命令怎样写？
On Error Resume Next
Set mydialog = Application.FileDialog(msoFileDialogFilePicker)
With mydialog
    .Title = "请选择要处理的文档(可多选)"
    .Filters.Clear '过滤掉筛选器中的所有文件类型，然后现在下面用filters.add加上word类型
    .Filters.Add "所有WORD文件", "*.xls", 3
    .AllowMultiSelect = True 'true表示允许多选，如果需要单选，请用false
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
        GetStr(i) = stiSelectedItem
        i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    For j = 1 To i Step 1
        Set Doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
' B可以替换的宏
' 以下是处理格式所录制的宏，可根据所需录制
    Application.Run MacroName:="宏1" '运行名为"单个文件默认打印"的宏，宏命令见后面
' 以上可以换成是你自己录制的宏，
'其中Application.Run MacroName:="单个文件默认打印"'运行名为"单个文件默认打印"的宏，根据需要录制，自行命名

' C公共部分的代码
        ActiveDocument.Save '保存
       ActiveWindow.Close '退出
     Next
    Application.ScreenUpdating = True
    End With
MsgBox "操作完成，请查看！！", 64, "提示"
      'Application.Quit '关闭并退出Word
End Sub