使用vba将Word文档的每一页保存到txt文件(utf-8)
问题描述:
我想将Word文档的每一页保存为文本文件。 我做这个用下面的代码:使用vba将Word文档的每一页保存到txt文件(utf-8)
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 (对不起,我的英语)
答
我发现我的问题的答案:
nDoc.SaveAs Encoding:=msoEncodingUTF8, FileFormat:=wdFormatUnicodeText, fileName:=Praefix & Format(i, "0"), AddToRecentFiles:=False
溶液添加部分 “编码:= msoEncodingUTF8” 到SaveAs方法!
froyo