复制html可粘贴word文档

作为文本粘贴时，却显示这个，取决于用什么格式去读取剪贴板。

.如果真 (OpenClipboard (0) ≠ 0)
EmptyClipboard ()
data ＝ 编码_Ansi到Utf8 (cs_html)
nLen ＝ 取字节集长度 (data)
data ＝ 到字节集 (格式化文本 (#模板, 到整数 (162 ＋ nLen), 到整数 (129 ＋ nLen))) ＋ data ＋ 到字节集 (“”) ＋ { 0 }
nLen ＝ 取字节集长度 (data)
hMem ＝ GlobalAlloc (0, nLen)
CopyMemory (hMem, 取变量数据地址 (data), nLen)
.如果真 (SetClipboardData (CF_HTML, hMem) ＝ 0)
GlobalFree (hMem)
.如果真结束
nLen ＝ 取文本长度 (cs_text) ＋ 1
hMem ＝ GlobalAlloc (0, nLen)
CopyMemory (hMem, 取变量数据地址 (cs_text), nLen)
.如果真 (SetClipboardData (#CF_TEXT, hMem) ＝ 0)
GlobalFree (hMem)
.如果真结束
CloseClipboard ()