Пользователи WordPerfect могут быть знакомы с функцией, позволяющей печатать содержимое каталога. Действительно, может быть очень удобно иметь распечатку всех документов в каталоге. К сожалению, в Word нет встроенной команды, позволяющей выполнить ту же задачу. Однако есть несколько способов решить эту проблему.

Первый — это старый проверенный метод DIR, который использовался «технарями» со времен DOS. Просто откройте командную строку (MS-DOS)

, найдите каталог, для которого вы хотите получить список, и введите следующую команду:

dir /b > mydir.txt

При этом создается текстовый файл (mydir.txt), содержащий только имена файлов в каталоге. Затем вы можете найти файл в Word и загрузить его как документ. Хотя этот подход — не одношаговый, но и не особо сложный.

Если вам нужно макрорешение проблемы, вы можете использовать следующее. Он отображает стандартное диалоговое окно «Открыть», в котором вы можете найти каталог, список которого вам нужен. Когда вы выбираете файл в этом каталоге и нажимаете «Открыть», макрос создает новый документ Word, в котором перечислены все файлы, содержащиеся в каталоге. Обратите внимание, что вы должны выбрать файл из каталога.

Sub ListFiles()

Dim PathWanted As String     Dim Temp As String     Dim i As Integer

With Dialogs(wdDialogFileOpen)

.Name = "."

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

Selection.TypeText "Files in " & PathWanted & ":" & vbCrLf             With Application.FileSearch                 .LookIn = PathWanted                 .FileName = "."

If .Execute > 0 Then                     For i = 1 To .FoundFiles.Count                         Temp = .FoundFiles(i)

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

Wend                         Selection.TypeText Temp & vbCrLf                     Next                 End If             End With         End If     End With End Sub

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

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1148) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

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