|
(vbs) Как обработать word файл скриптом в файле *.vbs
|
||
|---|---|---|
Участник
Откуда: Москва
Сообщения: 857 |
||
| 31.07.2007, 14:12 |
|
|
Период между сообщениями больше года.
|
|
|
(vbs) Как обработать word файл скриптом в файле *.vbs
|
|||
|---|---|---|---|
|
#18+
... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.07.2007, 11:32 |
|
||
|
(vbs) Как обработать word файл скриптом в файле *.vbs
|
|||
|---|---|---|---|
|
#18+
Есть скрипт....такой: Sub Макрос1() Selection.Find.Font.Name = "Arial" Selection.Find.Text = "а" Selection.Find.Replacement.Font.Name = "Courier New" Selection.Find.Replacement.Text = "о" Selection.Find.Wrap = wdFindContinue Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Selection.Find.Font.Name = "Arial" Selection.Find.Text = "о" Selection.Find.Replacement.Font.Name = "Courier New" Selection.Find.Replacement.Text = "а" Selection.Find.Wrap = wdFindContinue Selection.Find.Execute Replace:=wdReplaceAll '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' End Sub нужно чтобы он каким нить образом обратился к word файлу и сработал скрипт... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.07.2007, 11:42 |
|
||
|
(vbs) Как обработать word файл скриптом в файле *.vbs
|
|||
|---|---|---|---|
|
#18+
Записать в файл test.vbs и выполнить wdReplaceAll = 2 wdFindContinue = 1 ' Создаем обьект word Set Word = CreateObject("Word.Application") ' Показываем на экране сам ворд Word.Visible = TRUE ' Открываем документ set doc = Word.Documents.Open("C:\0\1.doc") doc.Select Set selection = Word.Selection Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Font.Name = "Arial" Selection.Find.Text = "а" Selection.Find.Replacement.Font.Name = "Courier New" Selection.Find.Replacement.Text = "о" Selection.Find.Wrap = wdFindContinue Selection.Find.Forward = true ' expression.Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl) Selection.Find.Execute ,,, ,,, ,,, , wdReplaceAll Selection.Find.Font.Name = "Arial" Selection.Find.Text = "о" Selection.Find.Replacement.Font.Name = "Courier New" Selection.Find.Replacement.Text = "а" Selection.Find.Wrap = wdFindContinue Selection.Find.Execute ,,, ,,, ,,, , wdReplaceAll ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.07.2007, 14:12 |
|
||
|
(vbs) Как обработать word файл скриптом в файле *.vbs
|
|||
|---|---|---|---|
|
#18+
Привет программирование - давно не моя специальность :) но появилась задача - сделать скриптик, который при исполнении должен открывать мне набор файлов (word, excel, txt), а также запускать несколько приложений. вот что наваял. может можно попроще? и что нужно дописать, чтобы при запуске приложений скрипт ждал ответа "ок, я загрузилося" от приложения? :) и только потом начинал запуск следующего. ================================================================ On Error Resume Next '--------------ЗАПУСК LOTUS NOTES set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "c:\Program Files\lotus\notes\nlnotes.exe" '--------------ЗАПУСК WORD И ОТКРЫТИЕ СПИСКА ФАЙЛОВ 'Set Word = CreateObject("Word.Application") 'Word.Visible = TRUE ' set doc = Word.Documents.Open("_____") ' set doc = Word.Documents.Open("_____") '--------------ЗАПУСК EXCEL И ОТКРЫТИЕ СПИСКА ФАЙЛОВ 'Set Excel = CreateObject("excel.Application") 'excel.Visible = TRUE ' set doc = EXCEL.Documents.Open("_____") ' set doc = EXCEL.Documents.Open("_____") ============================================================ если в случае с вордовскими и екселевскими файлами все ок, то вот лотус запуститься не захотел, ссука... другие экзешники запускаются. Кто-нить знает, в чем ошибка? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.08.2008, 18:58 |
|
||
|
|
start [/forum/topic.php?fid=22&fpage=324&tid=1456035]: |
0ms |
get settings: |
9ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
31ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
21ms |
get tp. blocked users: |
1ms |
| others: | 205ms |
| total: | 289ms |
| 0 / 0 |
