0

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（私の英語でごめんなさい）

4

1 に答える 1

1

私は私の質問に対する答えを見つけました：

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

解決策は、「Encoding：=msoEncodingUTF8」という部分をsaveAsメソッドに追加することでした。

フローズンヨーグルト

于 2012-08-01T12:34:23.817 に答える