VBA - копирование текста и форматирования чисел в текстовом поле ContentControl в Word для доступа

Question

Я пытаюсь скопировать текст внутри текстового поля contentcontrol из текстового документа в таблицу доступа ms.Проблема с приведенным ниже сценарием заключается в том, что он копирует только текст, а не форматирование.

Мне также нужно копировать, если есть какая-либо нумерация, формат маркера или вкладки.

rst.Fields ("Activity") = doc.ContentControls (10) .Range.Text

Я искал решение в течение нескольких дней и не могу понять, как копироватьформатирование.

Благодарим вас за помощь.

Спасибо.

Answer 1

Возможно, я нашел альтернативное решение.
Единственная проблема с этим заключается в том, что он не захватывает отступы.

doc.ContentControls(10).Copy
 rst.Fields("Activity") = Application.HtmlEncode(GetTextFromClipboard)

---

Function GetTextFromClipboard() As String
    Dim objClipboard As Object
    Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    objClipboard.GetFromClipboard
    GetTextFromClipboard = objClipboard.GetText
    Set objClipboard = Nothing
End Function

Любые идеи о том, как захватитьотступы?