Hi,

IE Object's ExecWB method for Select All and Copy action.

[VBA]Private Sub Command110_Click()
Dim strPath As String, strOCR As String
Dim objIE As InternetExplorer
strPath = FixPath(CurrentProject.Path)
strOCR = strPath & "\temp_ocr.html"

DoCmd.OutputTo acQuery, "Query1", "HTML(*.html)", strOCR, False, ""

Set objIE = New InternetExplorer
With objIE
.Navigate strOCR
.Visible = True
End With

'Select All
objIE.ExecWB 17,2 'OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
'Copy Selection
objIE.ExecWB 12,2 'OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER
'Clear Selection
objIE.ExecWB 18,2 'OLECMDID_CLEARSELECTION, OLECMDEXECOPT_DONTPROMPTUSER

End Sub[/VBA]

I hope helps.
Suat