时间戳

首页 > 解决方案 > VBA - 将 Word 中 ContentControl 文本框中的文本和数字格式复制到 Access

ms-access - VBA - 将 Word 中 ContentControl 文本框中的文本和数字格式复制到 Access

问题描述

我正在尝试将 contentcontrol 文本框中的文本从 word 文档复制到 ms 访问表。下面脚本的问题是它只复制文本而不是格式。

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

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

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

感谢您对此的任何帮助。

谢谢你。

标签： ms-accessvbacontentcontrol

解决方案

我可能已经找到了替代解决方案。
唯一的问题是它没有捕获缩进。

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

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

推荐阅读