Como salvar caracteres em japonês e coreano em uma exportação do Word 2010 VBA?

Question

Eu tenho um documento do Word 2010 com uma tabela de 3 colunas. As linhas têm textos de legenda oculta para uso em um vídeo instrutivo. Exemplo de linha:

EstouexecutandoumsubVBAparasalvaraslegendasemcadaumdostrêsidiomasemumarquivo.vtt(texto)separadoqueseráreferenciadodentrodo>Vídeonapágina.html.

Oproblemaéqueaslegendasemjaponêsecoreanosãosalvascomoumalinhadepontosdeinterrogação:?????????????????????

Extratosdecódigorelevantes:

Open"d:\dropbox\Japanese.vtt" For Output As #1 Set rngTable = ActiveDocument.Range(Start:=TableCell.Range.Start, End:=TableCell.Range.End - 1) Print #1, rngTable.Text

O que posso fazer para produzir o resultado correto?

    

Answer 1

Você precisa criar um arquivo unicode e usar funções seguras de unicode para emitir o texto.

De documentação da Microsoft

Sub CreateAfile
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\testfile.txt", True, True)
    a.WriteLine("This is a test.")
    a.Close
End Sub

O formulário é fs.CreateTextFile(filename(string), Overwrite(boolean), Unicode(boolean))

Acho que você pode usar fs.write ou fs.writeline . Não tenho certeza se Print #ff é seguro para unicode. Talvez seja necessário usar StrConv ()