主页 / computer / 问题 / 1810996
Accepted
libcub
Asked: 2023-10-03 09:57:15 +0800 CST

如何生成所有Word文档及其模板的列表？

  • 772

我想生成笔记本电脑上所有 Word 文档的列表以及每个文档使用的模板。有没有办法生成这样的列表？如果没有，获取使用指定模板的所有 Word 文档的列表怎么样？这种愿望的部分原因是我想删除不使用的模板。我正在使用 Microsoft 365。

templates

1 个回答

  1. Best Answer

    这对我有用：

    Sub listDocs()
    Dim FileSystem As Object
    Dim HostFolder As String

        'change folder name as needed
    HostFolder = "C:\users\myname"

    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    getDocs FileSystem.GetFolder(HostFolder)
End Sub

Sub getDocs(Folder)
    Dim SubFolder As Object
    
    For Each SubFolder In Folder.SubFolders
        Debug.Print SubFolder
        getDocs SubFolder
    Next
    Dim File
    For Each File In Folder.Files
        If File.Type = "Microsoft Word Document" Then
            
            Documents.Open FileName:=File.Path, ReadOnly:=True
            Debug.Print File.Path, Documents(File.Name).AttachedTemplate
            Documents(File.Name).Close
        End If
    Next
End Sub

    这是基于https://stackoverflow.com/questions/22645347/loop-through-all-subfolders-using-vba。它将打印每个文件夹和每个 Word 文件及其模板名称。

    请注意，这将需要很长时间，因为它需要打开您身上的每个 Word 文件

    • 0

相关问题