Пользователи 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 = "."

If .Display = -1 Then             Documents.Add             PathWanted = Options.DefaultFilePath(wdDocumentsPath)

Selection.TypeText "Files in " & PathWanted & ":" & vbCrLf

ChDir PathWanted             FName = Dir(".")

While FName <> ""

Temp = FName                 While InStr(Temp, "\") > 0                     Temp = Mid(Temp, InStr(Temp, "\") + 1)

Wend                 Selection.TypeText Temp & vbCrLf                 FName = Dir             Wend         End If     End With End Sub

Если вы хотите ограничить количество файлов, возвращаемых макросом (например, только теми, которые заканчиваются на .DOCX), вы можете изменить спецификации файла («.») В двух строках программы.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1466) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для пользователей старый интерфейс меню Word здесь:

link: / word-Printing_a_File_List [Печать списка файлов].