VBS 附加 Word 文档

如何解决VBS 附加 Word 文档

我在一个文件夹中有一些 MS Word 文件，我需要在每个 Word 文档的开头附加一个特定的文本。我创建了一个函数 add_title(whatever) 来完成我的任务。我在 for 循环中调用该函数，但它只将文本附加到第一个文件中。

.elementor-element-53dbac3 .elementor-widget-container .elementor-posts--skin-custom article:nth-of-type(2n) .elementor-2361 .elementor-section-wrap .elementor-section .elementor-container
{
    flex-direction: row-reverse;
}

解决方法

我按照上面的链接进行了一些更改，现在一切正常：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWord = CreateObject("Word.Application")
Set objFolder = objFSO.GetFolder("C:\Users\A\D\P")
objWord.Visible = False
wdStory = 6
wdMove = 0
counter = 0
For Each objFile In objFolder.Files
    if objFSO.GetExtensionName(objFile.path) = "docx" then
    Set objDoc = objWord.Documents.Open(objFile.path)
    counter= counter +1
    Set objSelection = objWord.Selection
    objSelection.Font.Size = "10"
    objSelection.HomeKey wdStory,wdMove
    objSelection.TypeText "This text was appended to an existing Word document."
    objSelection.TypeText(Chr(11))
    objSelection.TypeText "Management"
    objSelection.Delete
    objDoc.SaveAs objFSO.BuildPath("C:\Users\A\D\P",objFSO.GetBaseName(objFile.path) 
    &".docx")
    objDoc.Close
    MsgBox counter & " File has been appended successfully!"
end if

 Next