Process API不返回ms字处理的所有实例

Posted 2021-05-03

我正在检查单词流程实例，我打开了多个单词实例的实例，但它只返回单词的第一个实例并返回process.Count 1，当我使用记事本作为进程然后它工作但是使用winword它没有作品。

For Each a In p
    If Not pName.Equals("") And I <= p.Count Then
        Console.WriteLine(a)
        Console.WriteLine(p.Count)
        pName = p(I).MainWindowTitle.ToString
        File.WriteLine("Word Process Name : {0} is started on time {1}", pName, p(I).StartTime)
        fullPath = Path.GetFullPath(pName)
        File.WriteLine("Path Of the file is  : {0}", fullPath(0))
    End If
Next

答案

我已经用Word.Application API解决了这个问题，你可以添加表单引用添加。

Dim wordApp As Microsoft.Office.Interop.Word.Application
wordApp = Marshal.GetActiveObject("Word.Application")
For Each f In wordApp.Documents
          pName = Path.GetFileName(f.FullName).ToString()
           pPath = f.Path.ToString()
           File.WriteLine("Word Process Name : {0}  ", pName)
           File.WriteLine("File Path is: {0} ", pPath)
           File.WriteLine("File Starting Time is {0}", pTime)                                
Next