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

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

Привет
Возникла проблема:

Из множества документов Word необходимо составить список их названий.
Знает ли кто-нибудь способ, как сделать это по-быстрому, а не просто копировать
название каждого документа.

Заранее спасибо
Ирина

Ответить   Thu, 08 Nov 2007 12:03:54 +0600 (#702400)

 

Ответы:

Добрый день!

Я бы сделал так. Заходим в TotalCommander или другой похожий файловый
менеджер. Находим нужную папку. Пишем в командной строке
DIR *.doc >> listdoc.txt
После этого весь список можно посмотреть в файле listdoc в текстовом
редакторе. Только кодировка может не совпадать, но там уже догадаетесь.
С уважением, Михаил

Ответить   Thu, 8 Nov 2007 12:13:37 +0500 (#702402)

 

Доброго времени суток, Mike_Ural!
Thu, 8 Nov 2007 12:13:37 +0500 от Вас было получено следующее письмо:

Я сразу тоже подумал о тотале, есть даже функция в нем встроенная: при
выделенных файлах можно копировать их название (с путем или без) в буфер
обмена.

Но можно сделать список и если нет тотала под рукой.
Пуск - выполнить -
dir c:\путь\к\папке\с\файлами\*.doc >> c:\list.txt

После чего Вы можете увидеть список доков на диске С в файле list.txt

--
С бестами и регардами,
Yakimus.

Ответить   Thu, 8 Nov 2007 11:20:23 +0200 (#702471)

 

vanil.la пишет:

Доброго времени суток!
Попробуйте этой программой
http://softsearch.ru/programs/44-207-afonsoft-string-all-download.shtml

Ответить   Tiurin Alexander Fri, 09 Nov 2007 12:06:23 +0300 (#702625)

 

> О списке файлов
Здравствуйте Ирина
Конечно, лучше всего написать вот такой макрос. Я закомментировал
две строки, которые позволяют определить папку поиска, и определяют "искать
ли в подкаталогах"
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

Ответить   Fri, 9 Nov 2007 10:54:05 +0300 (#702629)

 

Здравствуйте уважаемые участники рассылки!
У меня подходит к концу большая работа над многостраничным документом в
котором расставлено около 200 ссылок на литературные источники.
Можно ли как то сделать, чтобы при удалении или перемещении ссылки в
тексте в списке литературы были соответствующие изменения.

всего хорошего.
--
С уважением
Владислав Демьянов
vgd-home@r*****.ru
ICQ: 409211720

Ответить   Thu, 26 Jun 2008 01:02:20 +0600 (#755915)

 

Приветствую, Владислав Демьянов!

среда, 25 июня 2008 г., Вы писали:

Каким конкретно способом расставлены ссылки?
Вариант концевых сносок рассматривался?

Ответить   Thu, 26 Jun 2008 11:01:16 +0300 (#755932)