WORD读取时候出了＂？ 
＂，小弟不明白，代码如下

Question

代码如下：
Function ReadWordDocument(WordName)
    Dim oWordApp As Word.Application
    Set oWordApp = CreateObject("Word.Application")
        With oWordApp
            .WindowState = wdWindowStateMinimize
            .Documents.Open WordName, ConfirmConversions _
            :=False, ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _
            PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
            WritePasswordTemplate:="", Format:=wdOpenFormatAuto
                With oWordApp
                    ReadWordDocument = .ActiveDocument.content
                    .Quit
                End With
            .Quit
        End With
    Set oWordApp = Nothing
  End Function　　sStr = Trim(Replace(sStr, vbCrLf, ""))
    sStr = Trim(Replace(sStr, Chr(10), ""))
    sStr = Trim(Replace(sStr, Chr(13), ""))
    sStr = Trim(Replace(sStr, "", ""))
    sStr = Trim(Replace(sStr, "
", ""))
    sStr = Trim(Replace(sStr, "", ""))我做了以上的字符替换还有有乱码产生，求教大侠，在ＷＯＲＤ中该如何处理才能使ＷＯＲＤ的那些特有符号，例如回车等全都被屏蔽，是能通过ＡＳＣＩＩ吗？求例子

Answer 1

用 saveas 就行了，这些乱码自动消失。Private Sub Command1_Click()
    Dim ow As New Word.Application
    Dim od As Word.Document    Set od = ow.Documents.Open("c:\test.doc")
    od.SaveAs "c:\test2.txt", wdFormatText
    
    od.Close
    Set ow = Nothing
End Sub