能否用以下代码，批量操作n个word文档

zzpsx

能否用以下代码，批量操作n个word文档

也是执行这段代码，弹出选择窗口，能全选文件夹内的所有word文档，执行代码。

Sub 插页码边距()
'
' 插页码边距 Macro
' 宏在 2018-4-1 由 - 录制
'
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(1)
        .BottomMargin = CentimetersToPoints(1)
        .LeftMargin = CentimetersToPoints(1)
        .RightMargin = CentimetersToPoints(1)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.5)
        .FooterDistance = CentimetersToPoints(1.5)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
        .LayoutMode = wdLayoutModeLineGrid
    End With
    Selection.WholeStory
    Selection.ParagraphFormat.LineSpacing = LinesToPoints(1)
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    If Selection.HeaderFooter.IsHeader = True Then
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Else
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    End If
    NormalTemplate.AutoTextEntries("第 X 页 共 Y 页").Insert Where:=Selection. _
        Range, RichText:=True
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

413191246se

楼主，请试试下面的代码（仅对2003版有效）：

1. Sub aaaa循环遍历文件夹_插页码边距()
   
2.     On Error Resume Next
   
3.     Dim fd As FileDialog, i&, doc As Document, p$
   
4.     MsgBox "请双击进入文件夹，直到进入最终要处理的文件夹，确定即可！", vbOKOnly + vbExclamation
   
5.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
6.     If fd.Show = -1 Then p = fd.SelectedItems(1) Else Exit Sub
   
7.     Set fd = Nothing
   
8.     If MsgBox("是否处理文件夹 " & p & " ?", 4 + 48) = vbNo Then Exit Sub
   
9.     With Application.FileSearch
   
10.         .NewSearch
    
11.         .LookIn = p
    
12.         .SearchSubFolders = True
    
13.         .FileName = "*.doc"
    
14.         If .Execute > 0 Then
    
15.             For i = 1 To .FoundFiles.Count
    
16.                 Set doc = Documents.Open(FileName:=.FoundFiles(i)) '打开文档
    
17.                 插页码边距 '引用宏名/设置文档格式
    
18.                 doc.Close savechanges:=wdSaveChanges '保存退出
    
19.             Next i
    
20.             MsgBox "处理完毕！共处理 " & .FoundFiles.Count & " 个文件！", 0 + 48
    
21.         Else
    
22.             MsgBox "未发现文件！", 0 + 16
    
23.         End If
    
24.     End With
    
25. End Sub
    
26. Sub 插页码边距()
    
27.     On Error Resume Next
    
28.     With ActiveDocument.PageSetup
    
29.         .LineNumbering.Active = False
    
30.         .Orientation = wdOrientPortrait
    
31.         .TopMargin = CentimetersToPoints(1)
    
32.         .BottomMargin = CentimetersToPoints(1)
    
33.         .LeftMargin = CentimetersToPoints(1)
    
34.         .RightMargin = CentimetersToPoints(1)
    
35.         .Gutter = CentimetersToPoints(0)
    
36.         .HeaderDistance = CentimetersToPoints(1.5)
    
37.         .FooterDistance = CentimetersToPoints(1.5)
    
38.         .PageWidth = CentimetersToPoints(21)
    
39.         .PageHeight = CentimetersToPoints(29.7)
    
40.         .FirstPageTray = wdPrinterDefaultBin
    
41.         .OtherPagesTray = wdPrinterDefaultBin
    
42.         .SectionStart = wdSectionNewPage
    
43.         .OddAndEvenPagesHeaderFooter = False
    
44.         .DifferentFirstPageHeaderFooter = False
    
45.         .VerticalAlignment = wdAlignVerticalTop
    
46.         .SuppressEndnotes = False
    
47.         .MirrorMargins = False
    
48.         .TwoPagesOnOne = False
    
49.         .BookFoldPrinting = False
    
50.         .BookFoldRevPrinting = False
    
51.         .BookFoldPrintingSheets = 1
    
52.         .GutterPos = wdGutterPosLeft
    
53.         .LayoutMode = wdLayoutModeLineGrid
    
54.     End With
    
55.     Selection.WholeStory
    
56.     Selection.ParagraphFormat.Space1
    
57.     ActiveDocument.StoryRanges(wdPrimaryFooterStory).Frames(1).Cut '删除页码
    
58.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter '插入页码
    
59.     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
60.     NormalTemplate.AutoTextEntries("第 X 页 共 Y 页").Insert Where:=Selection.Range, RichText:=True
    
61.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
62. End Sub

复制代码