|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Вытянуть ссылку с документа MS Word в IE |
|
Вытянуть ссылку с документа MS Word в IE
|
Новый участник Сообщения: 2 |
Профиль | Отправить 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
|
Профиль | Отправить 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) |
Отправлено: 06:04, 19-04-2011 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 812
|
Профиль | Отправить PM | Цитировать sniper_super,
*click* |
Отправлено: 09:38, 19-04-2011 | #3 |
Новый участник Сообщения: 2
|
Профиль | Отправить PM | Цитировать Iska, СПАСИБО! То что нужно
|
Отправлено: 00:49, 20-04-2011 | #4 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - [решено] Как открыть ссылку из 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 |
|