Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Определить сократимость дроби Всем привет:) я тут впервые нашел такой замечательный форум в поиске а теперь к делу... помогите пожалуйста сделать такую программу https://www.cyberforum.ru/ vba/ thread275390.html Вывести данные на лист VBA
как сделать что бы программа выдавала таблицу не на экран а на лист в Excel ??? Option Explicit Sub Prog_7() Dim a As Single, b As Single, xn As Single, xk As Single, dx As Single, T As String...
VBA MO Word макрос сравнения! https://www.cyberforum.ru/ vba/ thread275225.html
Всем добрый вечер! Хочу у вас спросить, как написать макрос в MO Word который сравнит меж строчный интервал в тексте, и если он не равен одинарному, то выдать сообщение о не соответствии! Как...
VBA Система Добрый день, помогите решить систему! Спасибо заранее!))) https://www.cyberforum.ru/ vba/ thread275132.html
ListBox : выделенные элементы VBA
Всем привет. Такая проблема: Есть листбокс на листе excel. В нем включен мультиселект. И в нем много элементов (не знаю точную границу, проблема проявляется точно при тысячи, может и меньше). Выделим...
VBA Произведение Добрый день, помогите решить произведение. Спасибо заранее!) https://www.cyberforum.ru/ vba/ thread275126.html
VBA Ж/д вокзал(Excel) Здравствуйте! Помогите плиз начинающему!!! При нажатии на кнопку "Добавить рейс" вылазит окно, которое я заполняю. Нажимаю "Добавить" и Данные заполняют строку. При повторном нажатии на "добавить"... https://www.cyberforum.ru/ vba/ thread275080.html VBA ошибка в коде
всем привет ! написал как то давно макрос , сейчас пробую запустить и ничего не работает , постоянно какие то нелепые ошибки . ситуация следующая : в колонке А перечисленны IP адреса , макрос...
VBA VBA в Access https://www.cyberforum.ru/ vba/ thread275025.html
Ребят, нужна помощь следующего плана... На MS Access нужно сделать форму, одну единственную, чтобы из нее можно было делать следующее: По нажатию на кнопку "Импорт" выбиралась папка, в которой...
VBA логический вопрос https://www.cyberforum.ru/ vba/ thread274809.html
как Разделить элементы каждого столбца матрицы Р(6,8) на последний элемент столбца.
Макрос в MO Word VBA
Помогите пожалуйста! Очень нужна ваша помощь,нужен макрос в MO Word (2003 или 2007), который сравнит текст документа и выдаст сообщение - "шрифт документа не соответствует Times New Roman", если...
VBA Создание кнопки на рабочем листе и соединение модулей https://www.cyberforum.ru/ vba/ thread274605.html
Столкнулся с 2-мя небольшими проблемами: 1) как создать кпонку на рабочем листе? (кнопка нужна для вызова Userform) 2) как соединить модуль и userform? (к примеру создал модуль, который при...
Заблокирован
13.04.2011, 02:49 0

Поиск word документов с колонтитулами - VBA - Ответ 1547486

13.04.2011, 02:49. Показов 1539. Ответов 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


Вернуться к обсуждению:
Поиск word документов с колонтитулами VBA
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.04.2011, 02:49
Готовые ответы и решения:

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

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

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

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

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.04.2011, 02:49

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

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

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

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

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