read and write chinese words

[john smith]

Hi,

I want to read chinese, traditional chinese,korean,japanese words from word
doc and write it into text file. But I have no luck up till now. I have no
problems with french and german languages but these other 4 languages just
can't be written into the text file. It'll leave some empty blank spaces
into my text file.

Code so far:
Const ForWriting = 2
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\TCS.mtp", ForWriting)
Dim counter as integer

do while
lineArray = Split(theTable.Cell(caseStartRow, 2).Range.Text,
Chr$(13))
objFile.writeLine (lineArray(counter))
counter = counter + 1
wend

objFile.close

Please help if there is anyone know how to solve the problem. Thank you so
much!
John

 

[Russ]

Hi John,

Hi,

I want to read chinese, traditional chinese,korean,japanese words from word
doc and write it into text file. But I have no luck up till now. I have no
problems with french and german languages but these other 4 languages just
can't be written into the text file. It'll leave some empty blank spaces
into my text file.

Code so far:
Const ForWriting = 2
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\TCS.mtp", ForWriting)
Dim counter as integer

do while
lineArray = Split(theTable.Cell(caseStartRow, 2).Range.Text,
Chr$(13))

If not linearray = "" then
( or linearray = trim(linearray) I'm not sure what you mean by 'empty blank
spaces')