Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Вытянуть ссылку с документа MS Word в IE

Ответить
Настройки темы
Вытянуть ссылку с документа MS Word в IE

Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать


Здравствуйте!

Проблема в следующем - у меня есть много ссылок типа http://www.rts-tender.ru/DFile.ashx?...1-04152506e117 по ним в Internet Explorer открывается документ MS Word в котором нужно вытянуть ссылку организации, то есть http://www.rts-tender.ru/Participant...w.aspx?id=7982

Проблема в том что я не могу корректно (без изврата) вытянуть нужную мне ссылку. Подскажите как это можно сделать.

Отправлено: 00:41, 19-04-2011

 

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


sniper_super, примерно так:
Код: Выделить весь код
#Include <File.au3>

AutoItSetOption("MustDeclareVars", 1)

Local $sUrl          = "http://www.oszone.net/go.php?url=http://www.rts-tender.ru/DFile.ashx?guid=87864c7c-1741-4e0b-9a81-04152506e117"
Local $sTempFileName = _TempFile()


If InetGet($sUrl, $sTempFileName, 1) = 0 Then
	ConsoleWriteError("Can't download link [" & $sUrl & "] into local file [" & $sTempFileName & "]" & @CRLF)
	Exit(1)
EndIf

Local $oWord     = ObjCreate("Word.Application")
Local $oDocument = $oWord.Documents.Open($sTempFileName, False, True)
Local $oTable    = $oDocument.Tables.Item(3)

Local $oHyperlink
Local $i

For $i = 2 To $oTable.Rows.Count
	For $oHyperlink In $oTable.Cell($i, 5).Range.Hyperlinks
		ConsoleWrite($oHyperlink.TextToDisplay & ":[" & $oHyperlink.Address & "]" & @CRLF)
	Next
Next

$oTable    = 0
$oDocument.Close()
$oDocument = 0
$oWord.Quit()
$oWord     = 0

FileDelete($sTempFileName)

Exit(0)
Цитата:
Код: Выделить весь код
ООО Дельрус-Новосибирск:[http://www.rts-tender.ru/Participant/ParticipantView.aspx?id=7982]
Это сообщение посчитали полезным следующие участники:

Отправлено: 06:04, 19-04-2011 | #2



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

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


sniper_super,
*click*
Это сообщение посчитали полезным следующие участники:

Отправлено: 09:38, 19-04-2011 | #3


Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать


Iska, СПАСИБО! То что нужно

Отправлено: 00:49, 20-04-2011 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Вытянуть ссылку с документа MS Word в IE

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - [решено] Как открыть ссылку из WORD dodo110 Microsoft Office (Word, Excel, Outlook и т.д.) 5 16-06-2010 15:38
2010 - Параметры документа Word 2010 (Часть 1) OSZone Microsoft Office (Word, Excel, Outlook и т.д.) 0 19-03-2010 02:30
2010 - Режимы отображения документа Word 2010 OSZone Microsoft Office (Word, Excel, Outlook и т.д.) 0 18-03-2010 01:30
2003/XP/2000 - Word | Открытие документа Word в режиме чтения Qwe1 Microsoft Office (Word, Excel, Outlook и т.д.) 4 24-02-2010 16:41
создание нового документа MS Word Nodir Bek Microsoft Windows 95/98/Me (архив) 2 13-02-2004 10:45




 
Переход