Dim fs: Set fs = CreateObject("Scripting.FileSystemObject") Dim tso: Set tso = fs.OpenTextFile("C:\xxx\AllReportsControls.txt", 2, True) Dim ct As DAO.Container For Each ct In CurrentDb.Containers If ct.Name = "Reports" Then Dim doc As DAO…