ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / куча *.doc в один
4 сообщений из 4, страница 1 из 1
куча *.doc в один
    #34161732
guest10111011
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest10111011
Гость
подскажите плиз как слить много вордовских файлов в один.
...
Рейтинг: 0 / 0
28.11.2006, 17:20:09
| Ответить | Цитировать | Написать  
куча *.doc в один
    #34162076
guest10111011
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest10111011
Гость
если кому то надо будет:
в открытом файле куда надо слить ("tests.doc") выполнить макрос
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim fs, f, f1, fc, s, Range2
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\!!!\RESULT")
Set fc = f.Files
For Each f1 In fc
    Documents.Open FileName:=f.Path & "\" & f1.Name
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    Selection.Copy
    Documents("Tests.doc").Content.InsertAfter (Left(f1.Name, Len(f1.Name) -  3 ) & vbCrLf)
    Set Range2 = Documents("Tests.doc").Content
    Range2.Collapse Direction:=wdCollapseEnd
    Range2.Paste
    Documents("Tests.doc").Content.InsertAfter (vbCrLf & vbCrLf)
    ActiveDocument.Close
Next
...
Рейтинг: 0 / 0
28.11.2006, 18:53:43
| Ответить | Цитировать | Написать  
куча *.doc в один
    #34162766
Nosorog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nosorog
Участник
авторесли кому то надо будет...
СПАСИБО !!! -- как раз хотел это спросить на форуме... а тут -- на ловца и зверь бежит...
где хочу применить : имею 60 файлов doc -- это билеты для экзамена по технике безопасности если их все распечатать то много бумаги пропадает зря так как каждый билет занимает 1 + Х листа да и время печати сократится.
...
Рейтинг: 0 / 0
29.11.2006, 09:02:44
| Ответить | Цитировать | Написать  
куча *.doc в один
    #34163369
guest10111011
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest10111011
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim fs, f, f1, fc, s, Range2
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\!!!\RESULT")
Set fc = f.Files
Set Range2 = Documents("Tests.doc").Content
For Each f1 In fc
    Documents.Open FileName:=f.Path & "\" & f1.Name
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    Selection.Copy
    Range2.InsertAfter (Left(f1.Name, Len(f1.Name) -  3 ) & vbCrLf)
    Range2.Collapse Direction:=wdCollapseEnd
    Range2.Paste
    Range2.InsertAfter (vbCrLf & vbCrLf)
    ActiveDocument.Close
Next
[/quot]
...
Рейтинг: 0 / 0
29.11.2006, 11:39:44
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / куча *.doc в один
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2183847]:
 0ms
get settings:
 12ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 46ms
get topic data:
 12ms
get first new msg:
 5ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 226ms
total:  363ms
созд. / загр.: 363ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]