如何写入word
读取C盘的一个txt文档，这个文档有3万多个字

如何建立一个word文章，然后把读取到的这3万多个字符写入到这个word文档里面呢？

[解决办法]
上面我那个代码在单位机器上没问题，在家就不行，乱码，用下面这个可以

VB code

    Dim MyText As String    Dim WDApp As New Word.Application    Dim WDDoc As New Word.Document    Set WDDoc = WDApp.Documents.Add    Open App.Path & "\test.txt" For Binary As #1        MyText = Input(LOF(1), 1)    Close #1    WDApp.Selection.TypeText MyText    WDApp.DisplayAlerts = wdAlertsNone    WDApp.Documents(1).SaveAs App.Path & "\test.doc"    WDApp.Quit '退出Word文件    WDApp.DisplayAlerts = wdAlertsMessageBox    Set WDApp = Nothing