[Office] Re: как сделать список
> О списке файлов
Здравствуйте Ирина
Конечно, лучше всего написать вот такой макрос. Я закомментировал
две строки, которые позволяют определить папку поиска, и определяют "искать
ли в подкаталогах"
Sub VBAFileList()
' Макрос записан 09.11.2007 Boris
Documents.Add DocumentType:=wdNewBlankDocument
With Application.FileSearch
' .LookIn = "D:\temp"
' .SearchSubFolders = True
.FileType = msoFileTypeWordDocuments
If .Execute > 0 Then
Selection.TypeText ("Число найденных файлов = " &
.FoundFiles.Count)
For i = 1 To .FoundFiles.Count
Selection.TypeParagraph
Selection.TypeText (.FoundFiles(i))
Next i
Else
Selection.TypeText "Not founded"
End If
End With
ActiveDocument.SaveAs FileName:="Список.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False,
SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub
--
С уважением, Boris