| Вопрос: Как открыть все doc файлы в текущей папке? | Добавлено: 16.06.05 17:42 |
Автор вопроса:  Garrick
|
|
Необходимо конвертировать в pdf все, находящиеся в папке, где открывается файл со скриптом, doc-файлы. Как их открыть?
То есть имя папки будет постоянно меняться... |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #1 | Добавлено: 16.06.05 18:05 |
| А что, идеи как конвертнуть открытый doc файл в pdf уже есть? | ||
|
Номер ответа: 2 Автор ответа: Garrick Вопросов: 4 Ответов: 8 |
Профиль | | #2 | Добавлено: 16.06.05 18:12 |
| Ну так Acrobat свои скрипты в Word встраивает | ||
|
Номер ответа: 3 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #3 | Добавлено: 16.06.05 18:14 |
| Так тебе на чем надо, на VBA или VBScript? | ||
|
Номер ответа: 4 Автор ответа: GarrickВопросов: 4 Ответов: 8 |
Профиль | | #4 | Добавлено: 16.06.05 18:23 |
Я с ним только сегодня начал знакомиться 
Моя задача - запустить Word, который по очереди (или сразу все?) пооткрывает все doc-файлы в текущей директории, сконвертирует их в pdf и закроется. Вот и мучаюсь... |
||
|
Номер ответа: 5 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #5 | Добавлено: 16.06.05 18:35 |
|
Ну, ежели из самого ворда - тогда проще. Ежели из VBA другого приложения или из проги на VB - можно сделать примерно так:
Option Explicit Dim path As String Private Sub Form_Load() path = "c:\test\" On Error Resume Next Dim WordApp, WordDoc, DocList, i Set DocList = Controls.Add("VB.FileListBox", "File2" 
Set WordApp = CreateObject("Word.Application"
DocList.path = path DocList.Pattern = "*.doc" For i = 0 To DocList.ListCount - 1 Set WordDoc = WordApp.Documents.Open(path & DocList.List(i)) ' 'Convert ' WordDoc.Close False Next i Set WordDoc = Nothing WordApp.Quit False Set WordApp = Nothing Set DocList = Nothing Controls.Remove ("File2"
End Sub Здесь все на позднем связывании, так что и для VBScript не так много переделывать. Акробат щас не стоит, потому с конвертированием вряд ли подскажу. Еще - для скрипта вместо динамического FileListBox'а придется использовать Dir |
||
|
Номер ответа: 6 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #6 | Добавлено: 17.06.05 09:36 |
| У меня был класс для создания pdf'ников. Если надо, то скажи на личку. | ||
|
Номер ответа: 7 Автор ответа: GarrickВопросов: 4 Ответов: 8 |
Профиль | | #7 | Добавлено: 20.06.05 10:23 |
Долго я пытался сделать из этого работающий скрипт, но так ничего и не вышло 
Посему вопрос: Как простейшим путем открыть скриптом в Ворде все doc-файлы в указанной папке? Без всяких ЛистБоксов, просто открыть сразу все файлы в папке? Спасибо! |
||
|
Номер ответа: 8 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #8 | Добавлено: 20.06.05 11:12 |
|
Для скрипта можно так
Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject"
Dim DocFile For Each DocFile In FSO.GetFolder("c:\MyFolder" .Files 'Путь к папке
If FSO.GetExtensionName(DocFile.Path) = "doc" Then 'Тут идет код открытия и конвертации End If Next |
||
|
Номер ответа: 9 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #9 | Добавлено: 20.06.05 11:14 |
| И все-таки уточни, как ты открываешь - VBScript, VBA или VB. Это не одно и то же. | ||
|
Номер ответа: 10 Автор ответа: GarrickВопросов: 4 Ответов: 8 |
Профиль | | #10 | Добавлено: 20.06.05 12:05 |
|
"Редактор Visual Basic" в самом Word'e. VBA, вероятно...
Сам только знакомлюсь... |
||
Страница: 1 |