VBA - 复制 Word 中内容控件文本框中的文本和数字格式以进行访问

Question

我正在尝试将内容控制文本框中的文本从 Word 文档复制到 ms 访问表。 以下脚本的问题在于它只复制文本而不是格式。

如果有任何编号、项目符号格式或制表符，我还需要复制。

rst.字段("活动"(= 文档。内容控件(10(.范围.文本

几天来我一直在寻找解决方案，但我似乎也无法弄清楚如何复制格式。

感谢对此的任何帮助。

谢谢。

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

关于如何捕获压痕的任何想法？