在Windows资源管理器中选择活动的Word文件

Question

我想要AHK代码，该代码可以允许选择活动Microsoft Word文件的情况下打开资源管理器。 Word似乎没有命令可以直接获取当前打开的文件的路径。 但是，在单词选择文档位置允许显示和选择当前打开文件的完整路径。 后来我尝试按照AHK代码在资源管理器中选择文件。

#If WinActive("ahk_class OpusApp")
;In word highlight the document location box
#,::
send ^c ; copy the file path from document location
clipwait
run explorer.exe /select, "%clipboard%
return

到目前为止，还没有运气，它只是打开了资源管理器，没有按预期选择文件。

Answer 1

我认为您正在以错误的方式进行操作。 编写一个小的VBA宏，您可以将其存储在Normal模板中。

Microsoft Word VBA具有ActiveDocument.Path和ActiveDocument.Name ，可以将它们之间用\\串联，以获取包含其路径的完整文档名称。

Answer 2

要使用组件对象模型在AutoHotkey中检索完整文件路径以及打开的和活动的Word文档的名称，请使用以下代码：

ActiveFileFullName := ComObjActive("Word.Application").ActiveDocument.FullName

在FullName上进一步阅读@ MSDN

此外，这是您使用COM在AutoHotkey中查找的代码。

按F1->检索Open Word文档路径和文件名->打开资源管理器->导航到文件夹->选择文件

;Press F1 while MicroSoft Word is open.  
SetTitleMatchMode, 2
#IfWinExist, ahk_class OpusApp 
F1::
        ActiveDocumentFile := ComObjActive("Word.Application").ActiveDocument.FullName
        SplitPath, ActiveDocumentFile, FileName, FolderPath
        RunWait, Explorer
        sleep 100
        WinActivate, ahk_class CabinetWClass
        WinWaitActive, ahk_class CabinetWClass
        sleep 100
        Explorer_NavSelect(FolderPath, FileName)
Return


Explorer_NavSelect(Path, File,  hwnd="") {  
    hwnd := (hwnd="") ? WinExist("A") : hwnd 
    WinGet, ProcessName, ProcessName, % "ahk_id " hwnd
    if (ProcessName != "explorer.exe")  
        return
    For pExp in ComObjCreate("Shell.Application").Windows
    {
        if (pExp.hwnd = hwnd) { ; matching window found
            pExp.Navigate("file:///" Path) ; Navigate to folder
            sleep 100
            pExp.Document.SelectItem(File, 1 8 16) ; Select our File
            Return
        }
    }
}

在MSDN上了解有关SelectItem的更多信息。