Короче - обыкновенный ворд и экзел открывают URL, в том числе и запросы к ПШП.
Можно написать тупой скрипт на VB
Например так:
---
Sub Макрос1()
'
' Открыть документ:
'
Documents.Open FileName:="http://www.evangelie.ru/forum/t77549-10.html", _
ConfirmConversions:=True, ReadOnly:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
'
' Сохранить документ:
'
ActiveDocument.SaveAs FileName:="t77549-10.html", FileFormat:=wdFormatHTML _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
'
' Открыть следующий документ:
'
Documents.Open FileName:="http://www.evangelie.ru/forum/t77549-11.html", _
ConfirmConversions:=True, ReadOnly:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
'
' Сохранить документ:
'
ActiveDocument.SaveAs FileName:="t77549-11.html", FileFormat:=wdFormatHTML _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End Sub
---
Чего теперь делаем:
- добавляем диалоговое окно, ввод номера темы и номера скачиваемых страниц.
Но это всё фигня - медленно и не удобно. К тому же "wdFormatHTML" меня не устраивает - шибко тяжеловесный.
Чешем репу дальше.
.
Можно написать тупой скрипт на VB
Например так:
---
Sub Макрос1()
'
' Открыть документ:
'
Documents.Open FileName:="http://www.evangelie.ru/forum/t77549-10.html", _
ConfirmConversions:=True, ReadOnly:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
'
' Сохранить документ:
'
ActiveDocument.SaveAs FileName:="t77549-10.html", FileFormat:=wdFormatHTML _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
'
' Открыть следующий документ:
'
Documents.Open FileName:="http://www.evangelie.ru/forum/t77549-11.html", _
ConfirmConversions:=True, ReadOnly:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
'
' Сохранить документ:
'
ActiveDocument.SaveAs FileName:="t77549-11.html", FileFormat:=wdFormatHTML _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End Sub
---
Чего теперь делаем:
- добавляем диалоговое окно, ввод номера темы и номера скачиваемых страниц.
Но это всё фигня - медленно и не удобно. К тому же "wdFormatHTML" меня не устраивает - шибко тяжеловесный.
Чешем репу дальше.
.
Комментарий