Отправляет email-рассылки с помощью сервиса Sendsay

За 2007-11-09

[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

   2007-11-09 14:13:26 (#702629)

[Office] Re[3]:как сделать список

Здравствуйте, vanil.la.

Вы писали 9 ноября 2007 г., 3:49:47:

vl> Спасибо всем ответившим
vl> Попробовала, но пишет:
vl> Windows не удалось найти 'dir'.Проверьте, что имя было введено
правильно, и повторите
vl> попытку.
cmd

vl> Делаю вот так: Пуск -> Выполнить -> Открывается маленькое окошко "Запуск
программы"
->> там пишу:
Вначале там напишите "cmd" чтобы открыть DOS окно (командную строку)

vl> dir E:\ВАЛЕНТИНА ПЕТРОВНА - ЭТО ТВОЯ ПАПКА\Дипломы.doc >> c:\list.txt
vl> или dir E:\ВАЛЕНТИНА ПЕТРОВНА - ЭТО ТВОЯ ПАПКА\Дипломы /s/b >c:\list.txt
(это
vl> по варианту trabs)
Пишите на клавиатуре, в кавычки заключайте слова со спецсимволами:
dir "E:\ВАЛЕНТИНА ПЕТРОВНА - ЭТО ТВОЯ ПАПКА\Дипломы".doc > c:\list.txt
dir E:\ВАЛЕНТИНА ПЕТРОВНА - ЭТО ТВОЯ ПАПКА\Дипломы /s/b > c:\list.txt

В последнем случае с подкаталогами внутри папки Дипломы

Если не написать c:\list.txt т.е. list.txt
list.txt будет располагаться в каталоге запуска cmd (текущего user-a)
C:\Documents and Settings\user

   2007-11-09 14:13:00 (#702628)

[Office] Re: как сделать список

vanil.la пишет:
> Привет
> Возникла проблема:
>
> Из множества документов Word необходимо составить список их названий.
> Знает ли кто-нибудь способ, как сделать это по-быстрому, а не просто копировать
> название каждого документа.
>
> Заранее спасибо
> Ирина
>
>
Доброго времени суток!
Попробуйте этой программой
http://softsearch.ru/programs/44-207-afonsoft-string-all-download.shtml

   Tiurin Alexander 2007-11-09 13:44:55 (#702625)

[Office] Re[3]:как сделать список

On Fri, 09 Nov 2007 07:49:47 +0600
"vanil.la" <vanil.***@m*****.ru> wrote:

> Спасибо всем ответившим
>
> ~Михаил, к сожалению, у меня в компьютере нет TotalCommander.:(

> Может быть причина в том, что папка у меня называется русскими буквами??
>
> ~Vladimir, наверное, тогда у вас попрошу макрос вот этот:
> " - список полных имен файлов (с дорожкой)" (что значит дорожка?)
>
> ~Да, и andre. Остальные поняли о чем речь:) Мне нужно составить список из названий
> документов Word, которые лежат в одной папке. Просто список названий. Надеюсь
> теперь понятно.

Вленитина. В советах все правильно.
Протосто это DOS команды. А они через оболочку не всегда с ними
корректно работает Это WIn's. : (
Сответственно необходимы средства работающие с командами DOS (Т.Сом..)
или прямая работа с DOS.

Если совсем коротко.. Используйте встроенную в WIN's возможность работы
с DOS - Стандартные командная строка
1) Запустите режим командной строки (стандартные программы)
2) введите dir E:\ВАЛЕНТИНА ПЕТРОВНА - ЭТО ТВОЯ ПАПКА\Дипломы\ *.doc >>
c:\list.txt ( Я понял что дипломы это папка с феобходимыми папками... А
звездочк это символ означающий выбор всех докуметов (заменяет все
символы)
3) C помощью редактора WordPad или других средств работв с текстовыми
файлами в формате DOS посмотрите полученный список. (т.е.list.txt)

Если в автоматическом режиме WordPad не корретно отразиn кодировку
Используте режим выбора необходимого формата.

И будет Вам счастье :)

Фу. вроде все ... Успехов.

   DKuzmin 2007-11-09 13:44:16 (#702624)

[Office] Re[3]:как сделать список

Здравствуйте, vanil.la.

Вы писали 9 ноября 2007 г.,
в 4:49:47: (My Local Time)
> ~Михаил, к сожалению, у меня в компьютере нет
> TotalCommander.:(
А что мешает его установить? Это не дефицит!.. :)

> Делаю вот так: Пуск -> Выполнить -> Открывается маленькое
> окошко "Запуск программы" там пишу: dir E:\ВАЛЕНТИНА
В окне "Запуск программы" надо сначала ввести "cmd", ENTER,
откроется чёрное ("DOSовское") окно. А там - выбрать нужный
диск (например, чтобы было: "C:/>") и через пробел вводить
"dir" и прочее.

> Может быть причина в том, что папка у меня называется
> русскими буквами??
Вот для ЭТОГО и нужен "Total Commander", чтобы работать
с русскими названиями.

> Мне нужно составить список из названий документов Word,
> которые лежат в одной папке. Просто список названий.
> Надеюсь теперь понятно.
FineReader есть у Вас? Если есть, скажу, что сделать.

> 3.Ы.: Извените, что так много получилось
На всякий случай: "извИните" (от слова "вина, виноват").

   2007-11-09 10:07:21 (#702582)

[Office] Re[2]:как сделать список

Спасибо всем ответившим

~Михаил, к сожалению, у меня в компьютере нет TotalCommander.:(

~trabs, спасибо за подробное объяснение про dir.
Yakimus тоже про dir написал.

Попробовала, но пишет:
Windows не удалось найти 'dir'.Проверьте, что имя было введено правильно, и повторите
попытку.

Делаю вот так: Пуск -> Выполнить -> Открывается маленькое окошко "Запуск программы"
-> там пишу:
dir E:\ВАЛЕНТИНА ПЕТРОВНА - ЭТО ТВОЯ ПАПКА\Дипломы.doc >> c:\list.txt
или dir E:\ВАЛЕНТИНА ПЕТРОВНА - ЭТО ТВОЯ ПАПКА\Дипломы /s/b >c:\list.txt (это
по варианту trabs)

Может быть причина в том, что папка у меня называется русскими буквами??

~Vladimir, наверное, тогда у вас попрошу макрос вот этот:
" - список полных имен файлов (с дорожкой)" (что значит дорожка?)

~Да, и andre. Остальные поняли о чем речь:) Мне нужно составить список из названий
документов Word, которые лежат в одной папке. Просто список названий. Надеюсь
теперь понятно.

Ирина

3.Ы.: Извените, что так много получилось

   2007-11-09 09:40:08 (#702579)