gvim -p <list of file names using absolute paths>

这是好和好，除了有几组文件，我可能想在任何给定时间之间移动(我当前的项目使用Ruby on Rails，因此解释)。真正真棒的是，如果我可以将新的选项卡附加到现有的gvim实例。在我最后的位置，我在Vista上工作;我通过在gvim中打开一堆空标签，让我右键单击文件名并选择“在现有的无名gvim中打开”。现在我使用Ubuntu和上下文菜单上没有这样的东西。有没有办法从命令行做到这一点？

$ gvim --servername GVIM  # GVIM is the server name. It can be anything.

要在此实例中打开更多选项卡，可以运行以下命令：

$ gvim --servername GVIM --remote-tab file1 file2 file3 ...

vim中的clientserver特性非常方便。它不限于打开文件;它可以用于使用命令行向vim发送任何命令。例如，要远程关闭vim实例，可以使用：

$ gvim --servername GVIM --remote-send '<Esc>:wqa<CR>'

您可能想考虑控制创建的 Word 应用程序实例的数量。下面的函数从 Excel 调用，将返回现有的 Word 实例或仅在不存在的情况下创建一个新的实例。

Private Function GetWord(ByRef WdApp As Word.Application) As Boolean
    '' 256
    '' return True if a new instance of Word was created
    
    Const AppName As String = "Word.Application"
    On Error Resume Next
    Set WdApp = GetObject(,AppName)
    If Err Then
        Set WdApp = CreateObject(AppName,"")
    End If
    WdApp.Visible = True
    GetWord = CBool(Err)
    Err.Clear
End Function

该函数是为早期绑定而设计的，这意味着您需要添加对 Microsoft Word 对象库的引用。在开发过程中，最好以这种方式工作。在您的代码完全开发和测试之后，您可以更改为后期绑定。

请注意行 WdApp.Visible = True。我添加它是为了证明可以修改对象。 If Err 括号内所做的修改仅适用于新创建的实例。无论 WdApp 是如何创建的，它都会适用于我放置的位置。

下一个过程演示如何在您的项目中使用该函数。 （您可以按原样运行它。）

Sub Test_GetWord()
    '' 256
    
    Dim WdApp       As Word.Application
    Dim NewWord     As Boolean
    Dim MyDoc       As Word.Document
    
    NewWord = GetWord(WdApp)
    If NewWord Then
        Set MyDoc = WdApp.Documents.Add
        MsgBox "A new instance of Word was created and" & vbCr & _
               "a document added named " & MyDoc.Name
    Else
        MsgBox "Word is running and has " & WdApp.Documents.Count & " document open."
    End If
End Sub

如您所见，变量 WdApp 在此处声明并传递给函数。该函数为其分配一个对象并返回该对象之前是否存在的信息。如果实例已创建，我将使用此信息关闭该实例，如果用户在运行宏之前将其打开，则将其保持打开状态。

这两个消息框仅用于演示。您可以使用它们占用的逻辑空间来做其他事情。而且，是的，我更愿意将我正在查看的实例中的每个文档分配给一个对象变量。在使用早期绑定时，您将获得 Intellisense 的额外好处。

编辑

您的过程会枚举进程。我无法找到确定将流程转换为应用程序实例的方法。换句话说，您可以枚举进程并找出正在运行的 Word 实例的数量，但我无法将这些实例中的任何一个转换为应用程序的特定功能实例，以便访问其中打开的文档。因此，我决定枚举窗口，然后从那里返回到文档。下面的函数专门省略了隐形打开的文档。

Option Explicit
Private Declare PtrSafe Function apiGetClassName Lib "user32" Alias _
                "GetClassNameA" (ByVal Hwnd As Long,_
                ByVal lpClassname As String,_
                ByVal nMaxCount As Long) As Long
Private Declare PtrSafe Function apiGetDesktopWindow Lib "user32" Alias _
                "GetDesktopWindow" () As Long
Private Declare PtrSafe Function apiGetWindow Lib "user32" Alias _
                "GetWindow" (ByVal Hwnd As Long,_
                ByVal wCmd As Long) As Long
Private Declare PtrSafe Function apiGetWindowLong Lib "user32" Alias _
                "GetWindowLongA" (ByVal Hwnd As Long,ByVal _
                nIndex As Long) As Long
Private Declare PtrSafe Function apiGetWindowText Lib "user32" Alias _
                "GetWindowTextA" (ByVal Hwnd As Long,ByVal _
                lpString As String,ByVal aint As Long) As Long
Private Const mcGWCHILD = 5
Private Const mcGWHWNDNEXT = 2
Private Const mcGWLSTYLE = (-16)
Private Const mcWSVISIBLE = &H10000000
Private Const mconMAXLEN = 255
 
Sub ListName()
'' 256
    '' adapted from
    '' https://www.extendoffice.com/documents/excel/4789-excel-vba-list-all-open-applications.html
    
    Dim xStr            As String
    Dim xStrLen         As Long
    Dim xHandle         As Long
    Dim xHandleStr      As String
    Dim xHandleLen      As Long
    Dim xHandleStyle    As Long
    Dim WdDoc           As Word.Document
    Dim Sp()            As String
    
    On Error Resume Next
    xHandle = apiGetWindow(apiGetDesktopWindow(),mcGWCHILD)
    Do While xHandle <> 0
        xStr = String$(mconMAXLEN - 1,0)
        xStrLen = apiGetWindowText(xHandle,xStr,mconMAXLEN)
        If xStrLen > 0 Then
            xStr = Left$(xStr,xStrLen)
            xHandleStyle = apiGetWindowLong(xHandle,mcGWLSTYLE)
            If xHandleStyle And mcWSVISIBLE Then
                Sp = Split(xStr,"-")
                If Trim(Sp(UBound(Sp))) = "Word" Then
                    ReDim Preserve Sp(UBound(Sp) - 1)
                    xStr = Trim(Join(Sp,"-"))
                    Set WdDoc = Word.Application.Documents(xStr)
                    '' this applies if the document was not saved:-
                    If WdDoc.Name <> xStr Then Set WdDoc = GetObject(xStr)
                    Debug.Print xStr,Debug.Print WdDoc.Name
                End If
            End If
        End If
        xHandle = apiGetWindow(xHandle,mcGWHWNDNEXT)
    Loop
End Sub

请注意，将 API 函数放在模块顶部很重要 - 上面没有代码。您的问题不涉及您想对文件做什么，但您希望将它们列出来，这已经完成。