使用vba将Word文档的每一页保存到txt文件（utf-8）

Question

我想将Word文档的每一页保存为文本文件。 我做这个用下面的代码：

Sub JedeSeiteEinNeuesDokumentOhneKopfUndFusszeilen() 
    Dim oDoc As Document, nDoc As Document, oRange As Range 
    Set oDoc = ActiveDocument 
    Max = oDoc.ComputeStatistics(wdStatisticPages) 
    For i = 1 To Max 
    oDoc.Activate 
    Selection.GoTo What:=wdGoToPage, Name:=i 
    Set oRange = Selection.Bookmarks("\Page").Range 
    If Right(oRange.Text, 1) = Chr(12) Then 
     oRange.SetRange Start:=oRange.Start, End:=oRange.End - 1 
    End If 
    Set nDoc = Documents.Add(Template:=ActiveDocument.AttachedTemplate.FullName) 
    nDoc.Content.FormattedText = oRange.FormattedText 
    s = nDoc.ComputeStatistics(wdStatisticPages) 
    'Wenn eine 2. Seite mit einem einzigen leeren Absatz entstanden ist 
    If s = 2 And nDoc.Paragraphs.Last.Range.Text = Chr(13) Then 
     nDoc.Paragraphs.Last.Range.Delete 
    End If 
    nDoc.SaveAs FileFormat:=wdFormatUnicodeText, fileName:=Praefix & Format(i, "0"), AddToRecentFiles:=False 
    nDoc.Close 
    Next i 
End Sub 

但我想，txt文件是UTF-8。我该怎么做呢？

感谢
升级Froyo （对不起，我的英语）

Answer 1

我发现我的问题的答案：

nDoc.SaveAs Encoding:=msoEncodingUTF8, FileFormat:=wdFormatUnicodeText, fileName:=Praefix & Format(i, "0"), AddToRecentFiles:=False 

溶液添加部分 “编码：= msoEncodingUTF8” 到SaveAs方法！

froyo