Word 中插入 C/C++ 代码

从心里说，我不喜欢 Word；我喜欢 Latex。然而现实就是这样，明明有感情却不能在一起，没感情的绑得牢牢的 ……

由于写文章的需要，需要在文档里插入C/C++代码。我并不需要关键字高亮，因为印刷是灰度的，彩色的字效果反而不好。所以高亮对我没有意义。如果有朋友需要高亮，可以使用Notepad++，把代码复制进去，然后再用“带语法高亮复制”的办法，贴到word里去。

 

 

这条路对我来说行不通，我只需要排出来的代码能对齐就好了。选择字符等宽的字体(Courier New)，得到如下的结果：

 

 

 

 

 

 

看到了吗？ Word 里怎么调整都是对不齐的……去掉Word字符间距调整，还是这个样子，实在是无语。怎么个郁闷了得!

 

痛定思痛，怎么把这个问题解决呢？仔细观察文档，Word无法调整Courier New 字符间距，它调整的是空格的间距，我就想了，能不能在Courier New 字符里找个占位符，替代Word里的空格呢？呵呵，还真就找到了……

 

 

用这个替代空格以后，真的就对齐了。

 

 

 

这里有来了个问题，代码里要用这个看不见的小圆圈替代空格，工作量可不小!怎么办？我想到了用查找替换，试验了一下不行。后来一想，用宏写个小代码不就解决问题了吗？

 

Sub replace_space() ' ' replace_space Macro ' 宏在 2011/5/11 由 雪松 录制 ' Dim outLoop As Boolean Dim i As Integer Dim start As Integer Dim curpos As Integer start = 0 curpos = 0 i = 0 Selection.Find.ClearFormatting Do With Selection.Find .Text = " " .Replacement.Text = "F" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With outLoop = Selection.Find.Execute If (outLoop = True) Then curpos = Selection.start If (i = 0) Then start = curpos End If Selection.InsertSymbol Font:="Courier New", CharacterNumber:=160, Unicode _ :=True i = i + 1 End If Loop While ((outLoop = True) And (((start <> curpos) And (i <> 1)) Or ((i = 1) And (start = curpos)))) End Sub

 

新建一个Word文件，把代码复制进去，执行该宏，所有空格都会被替代成小圆圈，然后再拷贝出来，贴到自己想要的地方……恩，算是解决了这个头疼的问题了……