如何使用 Excel 生成包含同名 wordfile 的文件夹？

Question

我是一名技术作家，我正在寻找一种方法来简化我的软件发布工作流程。在每个版本中，我们都会获得一个包含请求编号和描述的 Excel 更改文件。我们部门为每次更改创建一个 word 文档，并使用请求编号和描述作为每个文档的标题。由于这些文件包含图像和其他文件，我总是从这个 Excel 表中创建一个同名文件夹来保存每个版本的所有更改。我使用这段代码来生成文件：

Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub

我想知道：有没有办法在每个文件夹中都生成一个同名的 word 文件？

Answer 1

Office 默认命名空间应该已经能够创建 Word 文档、Excel 工作簿、PowerPoint 等。该功能有点隐藏，因为您需要使用接受字符串标识符的 CreateObject 函数，最终是键入要创建的对象的名称。在这种情况下，您需要"Word.Application"。 Word.Application 还不是一个 Word 文档，它就像它听起来的样子（对 Microsoft Word 应用程序本身的对象引用）。这应该可以帮助您入门。

Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.Documents.Add
With wordDoc
    .SaveAs ("C:/SomeDirectory/SomeDoc.docx")
    ' VERY IMPORTANT TO CLOSE THE DOCUMENT
    .Close
End With

' Close the Microsoft Word Application
wordApp.Quit 

' Always cleanup your variables when you are done
Set wordDoc = Nothing
Set wordApp = Nothing