I want to be able to use the text boxes here on this website: http://mylanguages.org/arabic_romanization.php. But there isn't any ID given in the HTML for the text boxes here. Can you please help?
Sub obj_click()
Dim Initial As Object
Dim Final As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Top = 0
objIE.Left = 0
objIE.Width = 800
objIE.Height = 600
objIE.AddressBar = 0
objIE.StatusBar = 0
objIE.Toolbar = 0
objIE.Visible = False
objIE.Navigate ("http://mylanguages.org/arabic_romanization.php")
Do
DoEvents
Loop Until objIE.readystate = 4
Set Initial = objIE.Document.GetElementByID("")
Initial.OnFocus
Initial.Value = Sheet1.Range("A1").Value
Initial.Onkeyup
Do
DoEvents
Loop Until objIE.readystate = 4
MaxWait = 15
MaxWaitTime = DateAdd("s", MaxWait, Now())
tryagain:
If Now() > MaxWaitTime Then Exit Sub
Set Final = objIE.Document.GetElementByID("")
If Final.Value = "" Then GoTo tryagain
Sheet1.Range("A2").Value = Final.Value
objIE.Quit
End Sub
Bookmarks