EXCEL VBA 获取打开的word文件名

Set oDoc = Word.Documents.Open(Filename:=oFile, Visible:=False)
PagesNumber = oDoc.Content.Information(wdNumberOfPagesInDocument)
'NumSum = PagesNumber + NumSum
Cells(aa, 1).Value =？？？？？
Cells(aa, 2).Value = PagesNumber
aa = aa + 1
oDoc.Close False
代码？的地方需要当前打开的WORD 文件名，请问该如何写。

---

Cells(aa, 1).Value =oFile
就凯冲粗好啦，盯镇，
还要怎么判镇写？？
Cells(aa, 1).Value =oDoc.name

---