No idea how to test with actual Japanese, but this might get you started....

Tim

'#####################################
Option Explicit

Sub Tester()
MsgBox Translate("some text here")
MsgBox Translate("some other text here")
End Sub

Function Translate(sText As String)

Dim ie As Object


Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate2 "http://honyakuinfoseek.infoseek.co.jp/amitext/indexUTF8.jsp"

Do While ie.ReadyState < 4
DoEvents
Loop

With ie.document.forms("translateForm")
.elements("sourceText").Value = sText
.elements("translate").Click
End With

Do While ie.ReadyState < 4
DoEvents
Loop

Translate = ie.document.forms("translateForm").elements("trans latedText").Value
ie.Quit

End Function
'################################################# #######




"Diabloz" wrote in message
...

Hi, my mom is a translator and she currently has a huge job involving
Excel that I think could be more automated.

In the Excel file, there is a database of over 9000 addresses in column
all in Japanese. The task entails that she manually copy each address
and paste it in a Japanese to English translator located at
http://honyakuinfoseek.infoseek.co.j.../indexUTF8.jsp

Then she has to copy the translated English address and paste it back
into Excel to replace the Japanese address. I believe that this task is
very menial and could somehow be automated but I don't know how to go
about doing it and the deadline is on Tuesday.


Any help would be appreciated, I've helped her manually input 600
addresses but that took me several hours to do. I am 17 years old and I
think it'd make a good mother's day for me to help her out since this is
so stressful and menial.


--
Diabloz
------------------------------------------------------------------------
Diabloz's Profile: http://www.excelforum.com/member.php...o&userid=34437
View this thread: http://www.excelforum.com/showthread...hreadid=542011