Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / куча *.doc в один / 4 сообщений из 4, страница 1 из 1
28.11.2006, 17:20:09
    #34161732
guest10111011
guest10111011
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
куча *.doc в один
подскажите плиз как слить много вордовских файлов в один.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2006, 18:53:43
    #34162076
guest10111011
guest10111011
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
куча *.doc в один
если кому то надо будет:
в открытом файле куда надо слить ("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
| Ответить | Цитировать | Написать  
29.11.2006, 09:02:44
    #34162766
Nosorog
Nosorog
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
куча *.doc в один
авторесли кому то надо будет...
СПАСИБО !!! -- как раз хотел это спросить на форуме... а тут -- на ловца и зверь бежит...
где хочу применить : имею 60 файлов doc -- это билеты для экзамена по технике безопасности если их все распечатать то много бумаги пропадает зря так как каждый билет занимает 1 + Х листа да и время печати сократится.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2006, 11:39:44
    #34163369
guest10111011
guest10111011
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
куча *.doc в один
Код: 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / куча *.doc в один / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 303ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183847]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 29ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 207ms
total:  303ms
x
x
Закрыть


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