如何在Windows 10中以编程方式更改office的默认保存位置

Sub ChangeDefaultSaveLocation()
    Dim regKey As Object
    Dim newValue As String
    
    ' 设置新的默认保存位置
    newValue = "C:\Documents\MyOfficeFiles"
    
    ' 打开注册表项
    Set regKey = CreateObject("WScript.Shell").RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\General\DefaultFileLocation", newValue, "REG_SZ")
    
    ' 刷新注册表
    Application.Wait (Now + TimeValue("0:00:02"))
    
    ' 关闭注册表项
    Set regKey = Nothing
    
    ' 显示消息框，提示更改成功
    MsgBox "默认保存位置已更改为：" & newValue, vbInformation
End Sub