Пользователи WordPerfect могут быть знакомы с функцией, которая позволяет печатать содержимое каталога. Действительно, может быть очень удобно иметь распечатку всех документов в каталоге. К сожалению, в Word нет встроенной команды, позволяющей выполнять ту же задачу. Однако есть несколько способов решить эту проблему.
Первый – это старый проверенный метод DIR, который использовался “технарями” со времен DOS. Просто откройте окно командной строки, найдите каталог, для которого вы хотите получить список, а затем введите следующую команду:
dir/b> mydir.txt
Это создает текстовый файл (mydir.txt), содержащий только имена файлов в каталоге. Затем вы можете найти файл в Word и загрузить его как документ. Хотя этот подход не является одношаговым, он также не представляет особой сложности.
Если вам нужно макрорешение проблемы, вы можете использовать следующее. Он отображает стандартное диалоговое окно «Открыть», в котором вы можете найти каталог, список которого вам нужен. Когда вы выбираете файл в этом каталоге и нажимаете «Открыть», макрос создает новый документ Word, в котором перечислены все файлы, содержащиеся в каталоге. Обратите внимание, что вы должны выбрать файл из каталога.
Sub ListFiles () Dim PathWanted As String Dim FName As String Dim Temp As String With Dialogs (wdDialogFileOpen) .Name = «*. *» Если .Display = -1 Затем Documents.Add PathWanted = Options.DefaultFilePath (wdDocumentsPath) Selection.TypeText «Файлы в» & PathWanted & «:» & vbCrLf ChDir PathWanted FName = Dir («*. *») While FName «» Temp = FName Пока InStr (Temp, «»)> 0 Temp = Mid (Temp, InStr (Temp, «») + 1) Wend Selection.TypeText Temp & vbCrLf FName = Dir Wend End If End WithEnd Sub
Если вы хотите ограничить количество файлов, возвращаемых макросом (например, только теми, которые заканчиваются на .DOCX), вы можете изменить спецификации файла («*. *») в двух строках программы. .
Источник: