Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 13.04.2011
Сообщений: 3
1

Поиск word документов с колонтитулами

13.04.2011, 00:18. Показов 1512. Ответов 2
Метки нет (Все метки)

help!
Нужно организовать поиск word документам , которые содержат колонтитулы. Т.е. прошерстить все word доки - при обнаружении связки .doc, .docx + колонтитул = запись в .txt имени файла и его пути.
Умею только batniki клеить - но тут кажется посложнее будет.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.04.2011, 00:18
Ответы с готовыми решениями:

Слияние документов Word
Всем привет ... проблема.....вот вчем есть макрос....которий запускается с ексель но ...

Массовое создание документов Word
необходимо сделать массовое создание документов на основе реестра в Word. функция слияния не...

Печать документов word с добавлением счетчика
Всем привет. Я сам работаю веб программистом. Начальник попросил, если получится разобраться и...

Связывание таблиц из разных документов WORD
Доброго времени суток. Искал, тщательно, решение своей проблемы, по советам смог написать макрос...

2
Заблокирован
13.04.2011, 02:49 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub P1()
    'Tools - References... - Browse... - Scrrun.dll - OK.
    Dim FileSystemObject As New Scripting.FileSystemObject
    Dim Папка As Scripting.Folder
    Dim Файл As Scripting.File
    Dim Документ As Word.Document
    Dim Раздел As Word.Section
    Dim Колонтитул As Word.HeaderFooter
    'Чтобы кода меньше писать, имя папки прямо в коде укажем.
    Set Папка = FileSystemObject.GetFolder("C:\Documents and Settings\Пользователь\Рабочий стол")
    'Далее открываем текстовый файл; нужно указать путь и файл должен быть закрыт.
    Open "C:\Documents and Settings\Пользователь\Рабочий стол\Текстовый документ.txt" _
        For Output As #1
    For Each Файл In Папка.Files
        If Файл.Type = "Документ Microsoft Word" Or _
            Файл.Type = "Документ Microsoft Office Word 2007" Then
            Set Документ = Documents.Open(FileName:=Файл.Path, Visible:=False)
            For Each Раздел In Документ.Sections
                For Each Колонтитул In Раздел.Headers
                    If Колонтитул.Range.Characters.Count > 1 Then
                        Write #1, Файл.Name, Файл.Path
                        Документ.Close SaveChanges:=wdDoNotSaveChanges
                        GoTo metka
                    End If
                Next Колонтитул
                For Each Колонтитул In Раздел.Footers
                    If Колонтитул.Range.Characters.Count > 1 Then
                        Write #1, Файл.Name, Файл.Path
                        Документ.Close SaveChanges:=wdDoNotSaveChanges
                        GoTo metka
                    End If
                Next Колонтитул
            Next Раздел
            Документ.Close SaveChanges:=wdDoNotSaveChanges
        End If
metka:
    Next Файл
    Close #1
End Sub
0
0 / 0 / 0
Регистрация: 13.04.2011
Сообщений: 3
15.04.2011, 00:44  [ТС] 3
Спасибо, "Busine2009"
- завтра с утра попробую.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2011, 00:44

Запуск макроса слияния документов Word
Добрый день! Есть макрос на VBA, который объединяет документы ворд из одной папки, указанной....

Макрос для всех открытых документов ms word
Добрый день. Необходимо написать макрос, который будет устанавливать переплет во всех открытых...

Оптимизация сортировки документов Word по первому слову
Добрый вечер. Столкнулся со следующей задачей: Необходимо отсортировать 60 000 одностраничных...

Как получить список всех открытых документов Word?
как получить список всех открытых документов Word? пишу так: Dim dc As Document ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.