BagaBaga
Если из командной строки, то можно так
dir *.doc
вот такая процедура возвращает содержимое папки в массив
код
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.
Public Sub ПрочитатьПапку(ByVal path As String, ByRef spisoK As Variant)
Dim DPath As String
Dim x As Integer
Dim FName As String
Erase spisoK
x = 0
FName = Dir(path, vbNormal)
Do While FName <> ""
If FName <> "." And FName <> ".." Then
x = x + 1
End If
FName = Dir
Loop
If x > 0 Then
ReDim spisoK( 1 To x) As string
x = 0
FName = Dir(path, vbNormal)
Do While FName <> ""
If FName <> "." And FName <> ".." Then
x = x + 1
spisoK( 1 To x) = Dir
End If
FName = Dir
Loop
End If
End Sub
синтаксис
ПрочитатьПапку [Путь], [Массив] , массив должен быть объявлен.
BagaBaga2. Основная проблема Я не понимаю, как сделать это:
открытие файла раскурите макрорекордером, а просмотр свойств это же совсем просто
ещё код
1.
2.
3.
4.
For Each property In w.BuiltinDocumentProperties
If property.Name = "Author" Then property.Value = "Me"
If property.Name = "Manager" Then property.Value = "MyBoss"
If property.Name = "Hyperlink base" Then property.Value = "www.ru/base"
Next property
где w- это ваш активдокумент, в смысле тот, который открыт. Можно конечно и не открывать, но это гораздо сложнее для новичка и смысла особо не имеет.
BagaBagaПравильно ли я понял:
в некотором документе пишу макрос (на VBA), который получает список документов на обработку, открывает каждый документ из списка, меняет в нем то, что нужно, закрывает/сохраняет
да, создаете пустой документ, Alt+F11 - , в нем создаете свой модуль, в нем свою процедуру типа MySub.
Там пишете код в том порядке, который я указал. Потом запускаете код, он открывает все документы проделывает нужные изменения, сохраняет, закрывает. Вуаля - задача решена.
