★★ 汇总，另存为，默认文档原始位置，的三种方法

借助外援法

用到autohotkey。随便哪个版本

然后编一小段，实现目的：

监控WPS，每次按F12

替代为：

按F12，延迟0.5秒，找到“原始文档位置坐标”，点击左键

这样就完成了自动替代手动，每次就可以不用自己按了，

每次另存为，就自动打开文档原始位置。

改注册表法

注册表位置：

计算机\HKEY_CURRENT_USER\SOFTWARE\kingsoft\Office\6.0\common\CloudFileDialog\PathMemoryInfo\saveTypeCommonPathInfo

下面有一个：

LastPath

这个键值就是另存为的位置，你可以改成任何位置。

但是注意，下次它会自动变化（变成最后一次保存位置）。

所以如果你想固定位置（如：桌面），改完了最好把权限改成只读。这样下次它就不会再变了。

如果每次位置都是变化的，就不能变权限，还要保留。

比如：每次另存为原始文档位置。就是变动的

理论上，只要LASTPATH=文档原始位置

就可以了。

但是，这个“文档原始位置”的命令（键值）到底是什么？

很遗憾，我自己盲测了很多键值，一一检测，但最终都没能成功。

到目前为止，仍然无法确认WPS的“文档原始位置”命令是什么。

下次找到了再来加备注。

所以只能再借助宏。

和方法一思路类似，殊途同归。不过不需要再安装别的软件，宏就可以搞掂。

宏命令参考：

Sub 另存为文档原始位置()

Dim wsh As Object

Dim docPath As String

Dim regPath As String

Dim startTimer As Single

If ActiveDocument.FullName <> "" Then

docPath = ActiveDocument.Path

Debug.Print "文档路径: " & docPath

Else

MsgBox "当前文档未保存，无法获取路径。", vbExclamation

Exit Sub

End If

Set wsh = CreateObject("WScript.Shell")

' 注册表路径

regPath = "HKEY_CURRENT_USER\SOFTWARE\kingsoft\Office\6.0\Common\CloudFileDialog\PathMemoryInfo\saveTypeCommonPathInfo\LastPath"

Debug.Print "注册表路径: " & regPath

On Error Resume Next

wsh.RegWrite regPath, docPath, "REG_SZ"

If Err.Number = 0 Then

Else

MsgBox "写入出错: " & Err.Description

End If

On Error GoTo 0

' 等待 1 秒

startTimer = Timer

Do While Timer < startTimer + 1

DoEvents

Loop

' 按 F12，可更换

SendKeys "{F12}"

Set wsh = Nothing

End Sub

保存到通用模板，每次自动加载。这样每次按运行宏就是自动往注册表写入当前路径，然后按F12调出另存为。这样读取的就是文档原始位置路径了。

运行效果：

再给这个宏设置一个快捷键就可以了。

改文件法

这个方法相对简单。但是另存为界面会有变化

找到安装目录：

（你的WPS安装目录）\Kingsoft\WPS Office\（WPS版本号）\office6\mui\default\resource\filedialog

下面有：

treebackgroud_et.png、treebackgroud_wpp.png、treebackgroud_wps.png

三个文件。

改名，比如改成：treebackgroud_et1.png（后面加一个1）、treebackgroud_wps1.png

这样就可以了。

然后打开该版本的WPS，另存为。

发现界面变了。

而且默认自动保存在原路径。