Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
djjurok
0 / 0 / 0
Регистрация: 29.08.2017
Сообщений: 1
1

Как во все doc и docx файлы текущего каталога добавить свою строку в начало файла?

13.01.2019, 18:55. Просмотров 428. Ответов 1
Метки нет (Все метки)

Требуется в несколько тысяч документов Word добавить строку в начало файла. В идеале, чтобы опционально можно было добавлять не только в начало, но и после каждого заголовка в документе(но это уже не так принципиально важно). Кто нибудь знает как такое реализовать?
P.S. Я в этом не бум бум)
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2019, 18:55
Ответы с готовыми решениями:

Копировать из текущего каталога все файлы с расширением .txt, кроме одного файла
Написать пакетный файл, который будет копировать из текущего каталога все файлы с расширением .txt,...

Напишите содержимое файла MS-DOS, который при запуске переименовывает все файлы текущего каталога...
1. Напишите содержимое файла MS-DOS, который при запуске переименовывает все файлы текущего...

Создание/склеивание doc\docx файла из шаблона doc\docx с заменой ключевых слов
Подскажите, как можно такое реализовать? Я узнал, что в rtf нельзя делать разрыв страницы, а...

Копировать из текущего каталога все файлы с расширением .txt, кроме одного заданного файла, в заданный каталог
Доброго времени суток, помогите, пожалуйста с решением задачки) Написать командный файл, который...

Как добавить в начало приложения (готового .apk файла) свою сцену?
Подскажите пожалуйста, как добавить в начало приложения (готового .apk файла) свою сцену? Допустим,...

1
Alex77755
10980 / 3438 / 591
Регистрация: 13.02.2009
Сообщений: 10,215
14.01.2019, 01:15 2
Задачу надо разбить на 2 блока. Или даже на 3
1. перебрать все файлы
2. открыть каждый файл
3. Перебрать все заголовки
перебрать файлы можно так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Комманда1_Click()
 Dim FSO As Object
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Search FSO.GetFolder("D:\")
End Sub
 
 Sub Search(Fold As Object)
 Dim SubFold As Object, Fil As Object
   Debug.Print Fold
   On Error GoTo ErrHandle
   For Each SubFold In Fold.SubFolders
     Search SubFold
   Next SubFold
   For Each Fil In Fold.Files
        Debug.Print Fil' Тут вместо печати обработка файла
   Next Fil
   Exit Sub
ErrHandle:
   MsgBox "Нет допуска к папке """ & Fold.Path & """"
   Err.Clear
End Sub
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.01.2019, 01:15

Создать бат-файл, позволяющий добавить в существующий архив текстовые файлы текущего каталога
создать бат файл,позволяющий добавить в уже существующий архив текстовые файлы текущего каталога. В...

Процедура выводящая все текстовые файлы текущего каталога
Всем доброго времени суток)нужно разработать процедуру, которая выводит на экран по страницам все...

В одной учетной записи не открываются файлы *.doc *.xls (При этом все хорошо с *.docx *.xlsx)
Проблема проявляется только в одной учетной записи. В других эти же самые файлы отлично...


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

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

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