麻烦各位大佬看下哪里出了问题

jiangxsliu

我有300个文件，想实现页眉的部分内容替换，附件里有文件及我修改的代码，麻烦各位大佬看下，哪里出了问题，谢谢。 新建文件夹.zip (16.97 KB, 下载次数: 22)

2021-6-18 11:21 上传

点击文件名下载附件

Sub wordReplace2()
Application.Visible = False
Dim fpath As String, fname As String, doc As Document
fpath = "F:\test\"
fname = Dir(fpath & "*.doc?")
Do While fname <> " "
Set doc = Documents.Open(fpath & fname)
With doc
  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
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "环境监测中心站"
        .Replacement.Text = "生态环境监测站"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
.Save
.Close
End With
fname = Dir
Loop
Application.Visible = True
End Sub

daibao88

Do While fname <> "",分号中没有空格，其它没问题。

jiangxsliu

daibao88 发表于 2021-6-18 11:54
Do While fname  "",分号中没有空格，其它没问题。

修改后还是替换不了内容。，可以麻烦您下载我的文件试一下么，万分感谢。

daibao88

测试的文件需要放在F:\test\下，其它没问题

jiangxsliu

daibao88 发表于 2021-6-18 14:13
测试的文件需要放在F:\test\下，其它没问题

文件我放了，但是我测试了就是不成功，页眉部分的内容还是替换不了，我也不懂。

daibao88

.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
试试这样

sylun

因此时代码中的ActiveWindow并不是doc的ActiveWindow,可在其前加上点号，也可试试如下修改

1. Sub wordReplace3()
   
2.     Dim fpath As String, fname As String, doc As Document
   
3.     fpath = "F:\test"
   
4.     fname = Dir(fpath & "*.doc*")
   
5.     Application.Visible = False
   
6.     Do While fname <> ""
   
7.         Set doc = Documents.Open(fpath & fname)
   
8.         With doc.StoryRanges(wdPrimaryHeaderStory).Find
   
9.             .Text = "环境监测中心站"
   
10.             .Replacement.Text = "生态环境监测站"
    
11.             .Execute Replace:=wdReplaceAll
    
12.         End With
    
13.         doc.Close wdSaveChanges
    
14.         fname = Dir
    
15.     Loop
    
16.     Application.Visible = True
    
17. End Sub

复制代码

jiangxsliu

sylun 发表于 2021-6-19 14:45
因此时代码中的ActiveWindow并不是doc的ActiveWindow,可在其前加上点号，也可试试如下修改

牛逼，谢谢，太强大了，原来是这个问题。
我在activewindow前加了“.”确实就可以了。

jiangxsliu

sylun 发表于 2021-6-19 14:45
因此时代码中的ActiveWindow并不是doc的ActiveWindow,可在其前加上点号，也可试试如下修改

另外还有一个问题，word是否有办法实现特定数字的自动加一呢？我目前是通过通配符查找+穷举替换法的方式来实现的。

daibao88

MatchWildcards没设置吧