如何解决使用 VBA Excel 将 RTF 文本转换为纯文本
我使用 Excel PowerQuery 从数据库中读取文本。
这显示为 RTF 文本。
示例:
{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fswiss\fprq2\fcharset0 Arial;}}
{\colortbl ;\red0\green0\blue0;}
\viewkind4\uc1\pard\cf1\f0\fs18\bullet Geradheit 0,5 mm/m bis auf 100 mm vor Stabende \par
\pard\tx568\tx1136\tx1704\tx2272\tx2840\tx3408\tx3976\tx4544\tx5112\tx5680\bullet Rm max. 950 N/mm\'b2\par
\pard\bullet OGK 2\par
\bullet US-Pr\'fcfung KSR 1,5 mm\par
\pard\tx568\tx1136\tx1704\tx2272\tx2840\tx3408\tx3976\tx4544\tx5112\tx5680\bullet inkl. APZ 3.1 nach DIN EN 10204\par
\par
Erg\'e4nzend zum Bestelltext gelten folgende Dokumente in dieser Rangfolge:\par
\bullet Spezifikation: ...\par
\bullet ... Fassung\par
\bullet ... / ...\par
}
现在我想使用 Excel VBA 转换文本,使其显示为普通文本。
示例:,
• Geradheit 0,5 mm/m bis auf 100 mm vor Stabende
• Rm max. 950 N/mm²
• OGK 2
• US-Prüfung KSR 1,5 mm
• inkl. APZ 3.1 nach DIN EN 10204
Ergänzend zum Bestelltext gelten folgende Dokumente in dieser Rangfolge:
• Spezifikation: ...
• ... Fassung
• ... / ...
不幸的是,我在这里遇到了一个无法解决的问题。我已经搜索了几个论坛和网站,但找不到适合自己的解决方案。
因此我请求你帮助我。
非常感谢!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。