1. 首先在word中把要插入到博客中的需要高亮显示代码复制到Notepad++中。
2. 在Notepad++中，设置Setting à Style Configurator… 在跳出的Style Configurator对话框中设置Select theme为Default(style.xml)（如果本来就是选择的default的style，可跳过此步）。
3. 回到Notepad++的主窗口，在Language菜单中选择已经粘贴到Notepad++中的需要高亮显示的代码的种类，对于我们来说，主要是C，C++，Verilog，Perl等。
4. 在Plugins à NppExport à Copy RTF to clipboard。这时rtf格式的代码就已经存放到剪切板了。
5. 再回到word中，用剪切板中的rtf格式的代码替换掉要处理的代码，这时的代码已经可以高亮显示了，但是为了使代码更加美观，需用对它进行进一步的处理。主要包括：
a) 把段落字符转换成换行符。
b) 设置行距到最小，使代码更紧凑。
c) 设置代码底色
d) 设置边框和底纹
6. 可以使用下面的宏来对代码进行设置，首先在word中选择 工具à宏à宏，创建一个宏，把下面的代码贴入。之后，选中待选的代码，工具à宏à宏，运行刚才创建的宏。
Sub Macro1() ' ' Macro1 Macro ' ºêÔÚ 2011-5-4 ÓÉ hlren ¼ÖÆ ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = "^l" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceAtLeast .LineSpacing = 1 .Alignment = wdAlignParagraphJustify .WidowControl = False .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .AutoAdjustRightIndent = True .DisableLineHeightGrid = False .FarEastLineBreakControl = True .WordWrap = True .HangingPunctuation = True .HalfWidthPunctuationOnTopOfLine = False .AddSpaceBetweenFarEastAndAlpha = True .AddSpaceBetweenFarEastAndDigit = True .BaseLineAlignment = wdBaselineAlignAuto End With Options.DefaultHighlightColorIndex = wdNoHighlight Selection.Range.HighlightColorIndex = wdNoHighlight With Selection.ParagraphFormat With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = wdColorGray15 End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone With .Borders .DistanceFromTop = 1 .DistanceFromLeft = 4 .DistanceFromBottom = 1 .DistanceFromRight = 4 .Shadow = False End With End With With Options .DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth050pt .DefaultBorderColor = wdColorAutomatic End With End Sub
7. 选中待处理的代码，设置行距为最小值，0磅。这一点也是我不明白的地方：在宏处理的时候设置成0磅，执行宏的时候会报错，说至少是1磅，而在word中手动修改则可以。
最新评论