プロセスAPIがmsワードプロセスのすべてのインスタンスを返していません

Question

ワードプロセスインスタンスをチェックしていますが、ワードインスタンスのインスタンスを複数開いていますが、ワードの最初のインスタンスのみを返してprocessを返します。私はメモ帳をプロセスとして使用すると動作しますが、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 

Answer 1

私はこの問題を解決しました。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