Почему .SaveAs rtf уничтожает стили в документе (Word 2016) - PullRequest
Новая
       27

Почему .SaveAs rtf уничтожает стили в документе (Word 2016)

0 голосов
/ 28 ноября 2018

У меня есть документ (европейская юриспруденция) в виде файла DOCX.Когда я сохраняю его в RTF, после повторного открытия он имеет разные стили нумерации.Почему?

Мой рабочий процесс:

  1. Открыть файл
  2. Макрос SaveAsRtfTest - все выглядит нормально
  3. Закрыть файл
  4. Открыть зановоRTF-файл - не в порядке

Мой простой макрос: 

Private Sub SaveAsRtfTest()
  Dim fileName1 As String
  fileName1 = Replace(ActiveDocument.fullName, ".docx", ".rtf", , , vbTextCompare)
  ActiveDocument.SaveAs fileName:=fileName1, FileFormat:=wdFormatRTF, AddToRecentFiles:=False
End Sub

Но при сохранении вручную возникает та же проблема.

Очень важно!Нумерация отображается только после закрытия и открытия файла RTF.

screen

Файлы (docx и rtf): https://1drv.ms/f/s!AnanHEI101rbhf8vgkipTUNwvXUQ4w

edit ____

Я сравнил содержимое ActiveDocument.Range.xml.

Это часть, показанная на скриншоте из файла RTF: 

<w:p wsp:rsidR="0026237B" wsp:rsidRPr="004F6791" wsp:rsidRDefault="0026237B" wsp:rsidP="0026237B">
    <w:pPr>
        <w:pStyle w:val="ECHRHeading1"/>
        <w:listPr>
            <wx:t wx:val="Artykuł I."/>
            <wx:font wx:val="Times New Roman"/>
        </w:listPr>
    </w:pPr>
    <w:r wsp:rsidRPr="004F6791">
        <w:t>I.  THE CIRCUMSTANCES OF THE CASE</w:t>
    </w:r>
</w:p>

по сравнению с DOCX:

<w:p wsp:rsidR="00A32B8B" wsp:rsidRPr="004F6791" wsp:rsidRDefault="00A32B8B" wsp:rsidP="00A32B8B">
    <w:pPr>
        <w:pStyle w:val="ECHRHeading1"/>
    </w:pPr>
    <w:r wsp:rsidRPr="004F6791">
        <w:t>I.  THE CIRCUMSTANCES OF THE CASE</w:t>
    </w:r>
</w:p>
...