☰

如何在 Word 2010 VBA 导出中保存日语和韩语字符？

tag-icon • tag-icon vba microsoft-word-2010
如何在 Word 2010 VBA 导出中保存日语和韩语字符？

我有一个Word 2010包含 3 列表格的文档。行中带有用于教学视频的隐藏字幕文本。示例行：

在此处输入图片描述

我正在运行虚拟专用网络将三种语言的字幕分别保存到单独的.vtt（文本）文件，将在视频标签中的.html页。

问题是日文和韩文字幕保存成一排问号：?????????????????????

相关代码摘录：

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

我该怎么做才能产生正确的输出？

答案1

您需要创建一个unicode文件并使用unicode安全函数来发出文本。

从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

形式是fs.CreateTextFile(filename(string), Overwrite(boolean), Unicode(boolean))

我认为你可以使用fs.write或fs.writeline。不确定Print #ffunicode 是否安全。你可能需要使用StrConv()

相关内容