vba - 是否可以知道excel中其他文件的字数？

Question

我想要一个带有 .docx 文档文件路径的 Excel 表格。除此路径外，还应列出字数。例如：

+----------------------------+------------+
| File Path                  | Word Count |
+----------------------------+------------+
| C:\MyDocs\summary.docx     | 42         |
+----------------------------+------------+
| C:\MyDocs\certificate.docx | 1337       |
+----------------------------+------------+

那么是否可以只在一个字段中写入一个文件路径，而 Excel 只是用宏或类似的东西读出字数

Answer 1

我从这个开始：

并使用此宏在下一列中输出字数：

Sub GetMatchCount()
  Dim WordFileName As String

  WordFileName = Range("A1").Text

  With CreateObject("Word.Application")
    .Documents.Open (WordFileName)
    Text = .ActiveDocument.Words.Count
    .Quit
  End With

  Range("B1").Value = Text - 1
End Sub

---

要遍历动态范围，试试这个。

Sub GetMatchCount()
  Dim numofrows As Integer
  numofrows = Sheet1.Range("A1").Offset(Sheet1.Rows.Count - 1, 0).End(xlUp).Row

  Dim rng As Range
  Set rng = Range("A2:A" & numofrows)

  Dim WordFileName As String

  For Each cell In rng
    WordFileName = cell.Text

    With CreateObject("Word.Application")
      .Documents.Open (WordFileName)
      Text = .ActiveDocument.Words.Count
      .Quit
    End With

    cell.Offset(0, 1).Value = Text - 1
  Next
End Sub