C++代码粘贴到word文档中如何保持代码关键字的颜色不变

Posted 2023-05-08

即粘贴后保证类似 void 、static 之类的关键字颜色仍为蓝色。
真的没法啊？那个高亮插件不好用的

参考技术A 无法实现。
编码不同关键字的颜色是由编辑器设定的，复制内容不包括颜色信息 参考技术B 尝试寻找一下WORD可用的语法高亮插件吧。

******************************************************

那就用VC++2008吧！VC++2008可以带格式复制。能满足你的要求。本回答被提问者采纳 参考技术C 你非要用word吗？建议你用Editplus 或者Notpad 试一下

复制/粘贴到 Word 文档中的 Excel VBA 代码导致我的代码失败

【中文标题】复制/粘贴到 Word 文档中的 Excel VBA 代码导致我的代码失败

【英文标题】：Excel VBA code that Copy/Pastes into a word document is causing my code to fail

【发布时间】：2021-06-06 21:28:09

【问题描述】：

我有一张 Excel 表格 这是生成一个word文档（然后被转换成PDF）

代码循环遍历各行数据，并根据数据在word中创建一个页面 循环的一部分从 Excel 中获取一个图表并将其粘贴到单词页面中。

代码一切正常，它以我想要的方式生成 word 文档。但是图表的复制/粘贴导致我出现间歇性问题。

奇怪的行为是： 1 - 我的代码在完成循环数据之前会突然退出。 2 - 我无法在中断模式下使用 F8 单步执行代码，一旦我到达执行粘贴的代码，代码就会运行所有内容。 3 - 如果我在粘贴后放一个断点，让代码停止并连续按f5，那么我不会让代码突然退出。

（抱歉，解释这么长）

这是我出现问题的代码的 sn-p

            IndividualChartSheet.ChartObjects("IndividualCompletionChart").Copy
            DoEvents
            objRange.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdWrapSquare, DisplayAsIcon:=False
            Application.CutCopyMode = False
            DoEvents
            
            Set myShape = objDoc.InlineShapes.Item(objDoc.InlineShapes.Count).ConvertToShape
            myShape.WrapFormat.Type = wdWrapBehind
            myShape.RelativeVerticalPosition = wdRelativeVerticalPositionPage
            myShape.Top = InchesToPoints(2)
            myShape.Left = InchesToPoints(-0.4)

objRange 是对我的 word 对象中的范围的引用。

我可以让代码运行，方法是在 Application.CutCopyMode = False 上放置一个断点，然后按 F5。但我希望将此工具传递给其他用户，因此我无需修复此问题。

经过一番搜索，我添加了 DoEvents 和 CutCopyMode = False。 我还尝试将粘贴命令移动到单独的函数中。 但这没有用。

【参考方案1】：

如果有人感兴趣，我最后会深入了解它。

这么奇怪，我花了很长时间才弄明白。

基本上，我构建 word 文档的部分代码也添加了超链接，因此查看我的最终输出（word 文档转换为 pdf 文件）的人可以在文档中跳转。

我的超链接和书签是基于员工姓名的，而 word 不喜欢我在超链接/书签名称中包含非字母数字字符。一旦我删除了这些代码，现在就可以毫无问题地运行了。