Word批量转换DOC为DOCX宏无法添加书签问题求助

嘿，我瞅了下你的批量处理宏，问题出在你用了ActiveDocument和Selection这俩家伙——在批量处理多个文档的时候，这俩非常不靠谱，直接导致新书签没加上。

具体问题点 #

1. ActiveDocument不可靠：当你循环打开多个文档时，ActiveDocument指向的是当前激活的文档，但系统可能不会把刚打开的docCurDoc设为活动文档，这时候删除书签和添加书签的操作可能跑到了其他文档上，甚至完全没生效。
2. Selection不适合批量处理：Selection.HomeKey是交互式操作，依赖用户当前的光标位置，但批量处理时文档可能在后台运行，Selection对象的状态不可控，根本没法准确把光标移到文档开头。

修复后的完整代码 #

Sub AddBookmarkInAllOpenedFiles()
    ' Opens all word files in a directory and deletes current bookmarks
    ' and adds one bookmark and saves the file to a docx file
    Dim sSourcePath As String
    Dim sTargetPath As String
    Dim sDocName As String
    Dim docCurDoc As Document
    Dim sNewDocName As String
    Dim sOrigName As String
    Dim intPos As Integer
    
    ' Looking in this path
    sSourcePath = "H:\Mijn Documenten\test\"
    sTargetPath = "H:\Mijn Documenten\test\Converted\"
    
    ' Look for first DOC file
    sDocName = Dir(sSourcePath & "*.doc")
    
    Do While sDocName <> "" ' Repeat as long as there are source files
        'Only work on files where right-most characters are ".doc"
        If Right(sDocName, 4) = ".doc" Then
            ' Open file
            Set docCurDoc = Documents.Open(FileName:=sSourcePath & sDocName)
            
            ' 改动1：用docCurDoc代替ActiveDocument，直接操作目标文档
            ' Deletes all the bookmarks
            For Each bkm In docCurDoc.Bookmarks
                bkm.Delete
            Next bkm
            
            ' 改动2：用Range对象定位文档开头，替代Selection操作，批量处理更稳定
            ' Add new bookmark at the start of the document
            docCurDoc.Bookmarks.Add Name:="testBookmarkAdd", Range:=docCurDoc.Range(Start:=0, End:=0)
            
            'Saves the document as a docx
            sNewDocName = Replace(sDocName, ".doc", ".docx")
            With docCurDoc
                .SaveAs FileName:=sTargetPath & sNewDocName, _
                FileFormat:=wdFormatDocumentDefault
                .Close SaveChanges:=wdDoNotSaveChanges
            End With
        End If
        
        ' Get next source file name
        sDocName = Dir
    Loop
    MsgBox "Finished"
End Sub

关键改动说明 #

• 把所有ActiveDocument替换为docCurDoc：因为docCurDoc是你通过Documents.Open获取到的当前处理文档的直接引用，完全不受活动文档变化的影响，操作更精准。
• 用docCurDoc.Range(Start:=0, End:=0)替代Selection.HomeKey：Range对象是文档内容的直接引用，不需要依赖光标选中状态，直接定位到文档开头（位置0），然后在这个位置添加书签，批量处理时稳定性拉满。

这样修改后，你的批量宏就能像单文档宏一样，准确删除所有旧书签并添加新书签，同时完成DOC转DOCX的保存操作啦。

内容的提问来源于stack exchange，提问作者chan