Что нового

Не работает ни одна функция из библиотеки Word.au3

babanty

Новичок
Сообщения
34
Репутация
1
Добрый день. Помогите пожалуйста, пытаюсь использовать функции из Word.au3, однако ни чего не работает.

Конкретная задача, как здесь.
http://autoit-script.ru/index.php?topic=13043.0
Код отсюда тоже не работает, ошибки 4;3;3

Пробовал почти все функции, работает только _WordCreate ("") и то если стоят только ковычки.

Такой код из справки уже не работает, пишет ошибку "4"
Код:
#include <Word.au3>
$oWordApp = _WordCreate ("")
$oDoc = _WordDocOpen ($oWordApp, @ScriptDir & "\Gg2.docx")


У меня:
Windows 8
Word 2007
Библиотеку качал с оф.сайта

А ВОТ:
Код:
$oWordApp = ObjCreate("Word.Application")
$oWordApp.Visible = True
$oWordApp.Documents.Open(@ScriptDir & "\Gg2.docx")

Таким образом все работает, но я не знаю как сделать что бы он находил и заменял в ворде одни символы на другие, как в той задаче что находится по ссылке.
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
примеры из старой справки могут вполне не работать на последней версии языка. все нужно переделывать
 
Автор
B

babanty

Новичок
Сообщения
34
Репутация
1
joiner сказал(а):
примеры из старой справки могут вполне не работать на последней версии языка. все нужно переделывать

Понятно, однако вопрос всё ровно остается открытым, конкретная задача заключается в:
1) Открыть Word
2) Найти в нем указанные слова
3) Заменить все найденные слова на другие указанные слова
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
ну я вроде бы намекнул уже, что примеры нужно брать из новой справки для новой версии языка.
точно по вопросу "заменить найденные слова на нужное"
Код:
#include <Word.au3>
Local $oWord = _Word_Create()
Local $oDoc = _Word_DocOpen($oWord, @ScriptDir & "\Test.docx", Default, Default, True)
_Word_DocFindReplace($oDoc, "Привет", "До свидания")

у меня офис 2010
 
Автор
B

babanty

Новичок
Сообщения
34
Репутация
1
joiner сказал(а):
ну я вроде бы намекнул уже, что примеры нужно брать из новой справки для новой версии языка.
точно по вопросу "заменить найденные слова на нужное"
Код:
#include <Word.au3>
Local $oWord = _Word_Create()
Local $oDoc = _Word_DocOpen($oWord, @ScriptDir & "\Test.docx", Default, Default, True)
_Word_DocFindReplace($oDoc, "Привет", "До свидания")

у меня офис 2010

:laugh:Очень рад Вашему ответу, спасибо :IL_AutoIt_1:
Жаль только не работает))
Качал библиотеку от сюда http://www.autoitscript.com/forum/topic/30461-microsoft-word-automation-library/
В ней нет функций _Word_Create и прочих, где слова разделены "_"
Версия аутоита в меня 3.3.12 и кучу всего еще докачено, тоже данные функции выделяет в берюзой цвет, но пишет
_Word_Create(): undefined function.
Не подскажете, где такую же библиотеку, что и у Вас скачать?)(догадался)
Перекачал с оф.сайта zip, от туда взял библиотеку, так что мной была указана по ссылке видимо уже устарела (2006г.)
Теперь все работает, спасибо большое!!!
 
Верх