D
don
I would like to be able to edit a webpage using a microsoft word
command in internet explorer and save the document in print format
(which is at bottom of the webpage). I want to do this within an Excel
macro which will continue on with other commands, etc.
I have found code in this group( posted by Jake Marx of
www.longhead.com) which will bring up the page (code shown below)
But I don't know how to invoke the command in ie under file:
edit with Microsoft Word (some ie seem to have the command edit with
Microsoft Frontpage - this may have to do with what word version you
are running)
After invoking the command edit with Microsoft word I would like to
save the page with the command at the bottom of the page, format for
printing.
Any help or where I can get help would be appreciated.
Thanks
Don
Sub test()
'This routine calls the function GETURLPAGETITLE
r = GETURLPAGETITLE("valueclick.com")
MsgBox r
End Sub
Public Function GETURLPAGETITLE(sURL As String) As String
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate sURL
Do Until ie.ReadyState = 4
DoEvents
Loop
GETURLPAGETITLE = ie.Document.Title
ie.Quit
Set ie = Nothing
End Function
command in internet explorer and save the document in print format
(which is at bottom of the webpage). I want to do this within an Excel
macro which will continue on with other commands, etc.
I have found code in this group( posted by Jake Marx of
www.longhead.com) which will bring up the page (code shown below)
But I don't know how to invoke the command in ie under file:
edit with Microsoft Word (some ie seem to have the command edit with
Microsoft Frontpage - this may have to do with what word version you
are running)
After invoking the command edit with Microsoft word I would like to
save the page with the command at the bottom of the page, format for
printing.
Any help or where I can get help would be appreciated.
Thanks
Don
Sub test()
'This routine calls the function GETURLPAGETITLE
r = GETURLPAGETITLE("valueclick.com")
MsgBox r
End Sub
Public Function GETURLPAGETITLE(sURL As String) As String
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate sURL
Do Until ie.ReadyState = 4
DoEvents
Loop
GETURLPAGETITLE = ie.Document.Title
ie.Quit
Set ie = Nothing
End Function