MS Word 2013 VBA宏功能

Question

以下VBA代碼不會將打開的文檔保存到活動“我的文檔”文件夾下的子文件夾中。 該代碼從App_DocumentBeforeClose調用，並且在執行時不會拋出故障標志或處理失敗通知。 所有代碼和保存位置字符串的構建均按其應有的方式工作-打開的文檔不會保存到“我的文檔”子文件夾中。 該文件本身是存儲在SDHC芯片上的工作副本-這可能是問題嗎？ 我已經檢查了文件夾權限，並且子文件夾“只讀”屬性已關閉。

Public Sub SaveToTwoLocations()
Dim Res
Dim oDoc As Document, SourceFile As String, DestinationFile As String
Dim strBackUpPath As String, fDialog As FileDialog, Reps, DocName As String

If Right(ActiveWindow.Caption, 4) = "ode]" Then
    DocName = Left(ActiveWindow.Caption, Len(ActiveWindow.Caption) - 21)
ElseIf Right(ActiveWindow.Caption, 5) = ".docx" Then
    DocName = Left(ActiveWindow.Caption, Len(ActiveWindow.Caption) - 5)
End If

On Error GoTo CanceledByUser

Res = MsgBox("Save Source File?", vbQuestion + vbYesNo, "Save Original Prior to Back-Up Interrogative")
If Res = vbYes Then
    Application.ActiveDocument.Save
End If

If GetSetting("My_Books", DocName, "Save_2") = "" Then
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    With fDialog
        .Title = "Select Folder to Save The Copy To & Click Ok"
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewList
        If .Show <> -1 Then
            MsgBox "Canceled By user", , "Save To Two Locatiions"
            Exit Sub
        End If
        strBackUpPath = fDialog.SelectedItems.Item(1) & "\"
        Res = MsgBox("Save File To Selected 'SaveTo' Location?", vbQuestion + vbYesNo, "'SaveTo' Interrogative")
        If Res = vbYes Then
            SaveSetting "My_Books", DocName, "Save_2", strBackUpPath
            strBackUpPath = strBackUpPath & DocName & ".docx"
            Application.ActiveDocument.SaveAs2 (strBackUpPath)
        Else
            Exit Sub
        End If
    End With

Else

    strBackUpPath = GetSetting("My_Books", DocName, "Save_2")
    Res = MsgBox("Save This Document To: " & strBackUpPath & "?", vbQuestion + vbYesNo, "Two Location Save Interrogative")
    If Res = vbYes Then
        If Right(ActiveDocument.Name, 1) = "x" Then
            Application.ActiveDocument.SaveAs2 (strBackUpPath = strBackUpPath & DocName & ".docx")
        Else
            MsgBox "Non-docx Doument File Save Error", vbCritical, "2nd Location File Save Error"
            GoTo CanceledByUser
        End If
    Else
        Set fDialog = Application.FileDialog(msoFileDialogSaveAs)
        With fDialog
            .Title = "Select Folder to Save The Copy To & Click Ok"
            .AllowMultiSelect = False
            .InitialView = msoFileDialogViewList
            If .Show <> -1 Then
                MsgBox "File Save Canceled By User", , "Save To Two Locatiions Canceled"
                Exit Sub
            End If
        End With
    End If

End If

CanceledByUser:
End Sub

Answer 1

Application.ActiveDocument.SaveAs2 (strBackUpPath = strBackUpPath & DocName & ".docx")

應該

Application.ActiveDocument.SaveAs2 strBackUpPath

Answer 2

該代碼應該是：Application.ActiveDocument.SaveAs2（strBackUpPath＆DocName＆“ .docx”）在我的辯護中，我會說，由於其他地方充分記錄的原因，Microsoft通常是自己最大的敵人-至於原始編寫的代碼，它將在標准VB6中工作，但VBA不是VB6。 我要向蒂姆·威廉姆斯表示感謝-盡管從技術上講是錯誤的，但您還是給了我正確的答案，並且可能由於編譯器誤解了書面說明而將其串聯起來。 但是由於效率和緊湊性的原因，仍然需要重新編寫連接。 哦，現在我更正了我的錯誤，它的運行正常！ 謝謝大家！