有20个word文件，需要对每个文件中的编号更改，有否自动软件替换？

sihai889

比如：20个word文件中，在页眉中所有文件编号为QP-0101~QP0119，分20个文件，有没有什么软件，对20个文件中页眉的文件编号文字进行自动修改成为：HL/QP-0101~HL/QP0119。

谢谢。

LangQueS

建议录制宏再修改一下代码。

sihai889

谢谢版主回复，我是想不一个一个打开文件，直接用软件替换，如windows 搜索功能，虽然可以搜索，但是没替换功能，找到个能替换的，但有不能查找页眉。
    用宏虽然可以实现，那等于跟替换命令差不多了，要一个一个打开，然后按快捷键。

不知道有没有更好的思路，谢谢。

[ 本帖最后由 sihai889 于 2010-11-23 21:58 编辑 ]

LangQueS

这个“批量设置指定目录中所有的Word文件的页面”的代码可以作为参考：

http://club.excelhome.net/viewth ... p;page=1#pid2832467

sihai889

我找到这一段代码，但是是对属性设置的，我对这个一窍不通。烦请版主帮我更改一下，谢谢。
1、我不更改属性内容，只对改查找的文字内容进行替换
2、另外就是在一个文件中建立的宏，如何保存，如何在每个文件中运行？有什么快捷键，谢谢。


Option Explicit

Const g_strRootPath = "C:\Documents and Settings\Administrator\桌面\02 程序文件"    ' 指定存放所有文件的目录，可以有子目录
Const g_strTextToFind = "QP"        ' 需要批量查找修改格式的文字内容

Dim g_oTargetFont As New Font

' 主函数
Sub Main()

    Dim fso, oFolder

    ' 设置需要修改的字体属性
    g_oTargetFont.Size = 18                     ' 字号
    g_oTargetFont.Color = wdColorRed            ' 颜色
    g_oTargetFont.Bold = True                   ' 是否加粗（True加粗，False正常）
    g_oTargetFont.Italic = True                 ' 是否斜体（True斜体，False正常）
    g_oTargetFont.Underline = wdUnderlineDash   ' 下划线风格
    '...    设置其他字体属性
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set oFolder = fso.GetFolder(g_strRootPath)

    ChangeFontStyleForFilesUnderFolder fso, oFolder

    MsgBox "完成！"

End Sub

' 修改指定文件夹（递归）下面的所有Word文件中指定文字的格式
Sub ChangeFontStyleForFilesUnderFolder(fso, oFolder)
   
    Dim oSubFolder, oFile

    For Each oSubFolder In oFolder.SubFolders
        ChangeFontStyleForFilesUnderFolder fso, oSubFolder
    Next

    For Each oFile In oFolder.Files
        Documents.Open oFile.Path
        ChangeFontStyleForActiveDocument
        ActiveDocument.Close True
    Next

End Sub

' 修改当前打开文档里面所有指定文字的格式
Sub ChangeFontStyleForActiveDocument()

    Selection.StartOf wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = g_strTextToFind
        .Replacement.Text = "^&"
        .Replacement.Font = g_oTargetFont
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

szqhb

下面附件是按照你的要求做的，另行复制你的文件到同一个文件夹试试看

sihai889

谢谢：szqhb兄的帮忙，确实可以了。没想到word功能也如此强大，另外还想请教以下几个问题：
1、如果我要替换多处，
   Text = "QP"
       Replacement.Text = "HL/QP"
这两行代码，我可以再复制，修改“”引号里的内容达到目的吗？
2、如果要更换替换后的格式的话，如字体大小，字体，应该怎样加语句。

我不懂VB，只能照抄、修改，
再一次谢谢兄台解决了我工作上的难题。

szqhb

1、单单修改这两句代码是不行的，将下面整一段复制粘贴于此段的后面，再修改查找与替换的值（自己录制也可）
With Selection.Find
        .Text = "QP"'需查找的内容
        .Replacement.Text = "HL/QP"'要替换的内容
.Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .CorrectHangulEndings = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
（将上段复制于此处）
2、字体字号也可自行录制，或将下面代码粘贴在末尾
      Selection.WholeStory'全选页眉内容
    Selection.Font.Name = "黑体" '字体，据需修改
    Selection.Font.Size = 14 '字号，据需修改

[ 本帖最后由 szqhb 于 2010-11-24 20:31 编辑 ]

sihai889

明白了，谢谢

tiantianyikang

很厉害！我们文件都是编号的，相当于中间删除几个，后面的编号全部都得变，只改变数字编号就行，我也下载了这个附件，可是不会用，请求帮助！非常感谢O(∩_∩)O~