如何批量在多个word文件标题后依次添加序号

_溯洄_

最近要出几百个报告，需要在报告标题后面依次添加序号，有没有快捷的方法或者好用的小软件来批量处理

413191246se

ACDSee 呀！

_溯洄_

413191246se 发表于 2015-11-3 11:15
ACDSee 呀！

ACDSee 貌似是个图片修改工具啊

413191246se

楼主，请你百度一下“ACDSEE用法“，它的《工具》菜单——重命名——就可以给若干文件重命名。

_溯洄_

413191246se 发表于 2015-11-4 17:32
楼主，请你百度一下“ACDSEE用法“，它的《工具》菜单——重命名——就可以给若干文件重命名。

对不起，可能我没说清楚，我意思不是修改文件名，我要修改的是word正文里面的报告标题

_溯洄_

最近找到2个vba代码，第一个是查找所有word文件里的关键字的，第二个是加编号的，但是加编号的只能在一个word文件使用，求编程高人把这个两个编程合并一下，搜索（2015）第*号，所有word文件标题后面的（2015）第 号都能依次填入编号
这是第一个
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim myPas As String, myPath As String, i As Integer, myDoc As Document
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "选择目标文件夹"
    If .Show = -1 Then
      myPath = .SelectedItems(1)
    Else
      Exit Sub
    End If
End With
myPas = InputBox("请输入打开密码：")
With Application.FileSearch
    .LookIn = myPath
    .FileType = msoFileTypeWordDocuments
    If .Execute > 0 Then
      For i = 1 To .FoundFiles.Count
        Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
        .Text = "中微子工作室"
        .Replacement.Text = "www.jihetu.com"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
       End With
       Selection.Find.Execute Replace:=wdReplaceAll
       myDoc.Save
       myDoc.Close
       Set myDoc = Nothing
      Next
    End If
End With
Application.ScreenUpdating = True
End Sub  
这是第二个
Sub rank()  
Rem  按顺序插入数字
    Selection.Find.Text = "[]"
    Selection.Find.Forward = True
    For i = 1 To 10
      Selection.Find.Execute
      RS = "[" + Format(i, "##") + "]"
      Selection.Find.Replacement.Text = RS
      Selection.Collapse Direction:=wdCollapseStart
      Selection.Find.Execute Replace:=wdReplaceOne
    Next i
  End Sub

413191246se

建议楼主上传包含 2-3 个文档的示例文档附件，说明要达到的目的。

_溯洄_

我想在每个报告的这个地方加上编号

413191246se

楼主，你的附件都是一个文档，同样的文件名。文档里面可以用两种方法给编号，一个是如果都是同样的结构，当然是第二段落添加编号；如果不是都一样，可以查找关键字来添加编号。——但楼主的文档果真如附件中所示，全是在有编号的文件夹中并且每个文档都是一样的文件名吗？***因为要处理很多文档，就要循环遍历文件夹，要求所有文件在一个总文件夹（目录）中，搜索时包括搜索子文件夹。

_溯洄_

413191246se 发表于 2015-11-7 13:24
楼主，你的附件都是一个文档，同样的文件名。文档里面可以用两种方法给编号，一个是如果都是同样的结构，当 ...

嗯，word文件名都是一样的，在子文件夹中。文档结构相同但内容不同。谢谢你的持续关注