Onenote代码高亮的实现方法

1. 最终效果图
• 最终的效果图如下：
• 
2. VBA的编写参考
• 主要参考的是这篇博客中的思路:如何在Word中排出漂亮的代码
3. 将VBA脚本复制到Word中并设置快捷键
• Alt+F11 打开Word中的 VBS，将下列的VB代码复制 Normal 模板下的 Microsoft 对象下的 ThisDocument中
• 复制位置
• 
• VB代码

• #If VBA7 Then

      Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long

  #Else

      Private Declare Function timeGetTime Lib "winmm.dll" () As Long

  #End If

   

  Sub EditCode()

      'Word 正文需要设置为无首行缩进

      'Notepad++不能以管理员的身份运行

      'Notepad++中，'Plugin Commands'中的 'Copy HTML to clipboard'需设置快捷键为 ALT + Shift + C

   

      AppActivate "NotePad++"

      SendKeys "%+c"

      ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _

          1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

          wdAutoFitFixed

      Dim Savetime As Double

      Savetime = timeGetTime '记下开始时的时间

      While timeGetTime < Savetime + 5 '循环等待

          DoEvents '转让控制权，以便让操作系统处理其它的事件

  Wend

     

  Selection.Paste

          '删除所有可编辑的区域

      ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

      '添加可编辑区域

      Selection.Tables(1).Range.Editors.Add wdEditorEveryone

      '选中所有可编辑区域

      ActiveDocument.SelectAllEditableRanges wdEditorEveryone

     

     

     

      设置代码表格

     

      Selection.Cut

     

      '删除所有可编辑的区域

      ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

     

      SendKeys ("^%({TAB})")

     

     

  End Sub

   

   

   Sub 设置代码表格()

  ' author: code4101

  ' 设置代码表格 宏

  '

  '

      ' 背景色为morning的配色方案，RGB为(229,229,229)

      With Selection.Tables(1)

          With .Shading

              .Texture = wdTextureNone

              .ForegroundPatternColor = wdColorAutomatic

              .BackgroundPatternColor = 15066597

          End With

          .Borders(wdBorderLeft).LineStyle = wdLineStyleNone

          .Borders(wdBorderRight).LineStyle = wdLineStyleNone

          .Borders(wdBorderTop).LineStyle = wdLineStyleNone

          .Borders(wdBorderBottom).LineStyle = wdLineStyleNone

          .Borders(wdBorderVertical).LineStyle = wdLineStyleNone

          .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone

          .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone

          .Borders.Shadow = False

          .AutoFitBehavior (wdAutoFitContent)  '自动调整大小

      End With

      With Options

          .DefaultBorderLineStyle = wdLineStyleSingle

          .DefaultBorderLineWidth = wdLineWidth050pt

          .DefaultBorderColor = wdColorAutomatic

      End With

       

      ' 段落无首行缩进，行间距为固定值12磅

      With Selection.ParagraphFormat

          .LeftIndent = CentimetersToPoints(0)

          .RightIndent = CentimetersToPoints(0)

          .SpaceBefore = 0

          .SpaceBeforeAuto = False

          .SpaceAfter = 0

          .SpaceAfterAuto = False

          .LineSpacingRule = wdLineSpaceExactly

          .LineSpacing = 12

          .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

          .MirrorIndents = False

          .TextboxTightWrap = wdTightNone

          .AutoAdjustRightIndent = True

          .DisableLineHeightGrid = False

          .FarEastLineBreakControl = True

          .WordWrap = True

          .HangingPunctuation = True

          .HalfWidthPunctuationOnTopOfLine = False

          .AddSpaceBetweenFarEastAndAlpha = True

          .AddSpaceBetweenFarEastAndDigit = True

          .BaseLineAlignment = wdBaselineAlignAuto

      End With

      ' 清除原有的段落底纹

      Selection.ParagraphFormat.Shading.BackgroundPatternColor = wdColorAutomatic

      Selection.Font.Name = "Consolas"

  End Sub

• 设置宏 EditCode的快捷键
• 在Word选项的自定义功能区，选项自定义键盘快捷键
• 
• 将EditCode设置为自己想要的快捷键，我设置的是 Alt + 1，注意不要与现存的快捷键冲突
• 
4. NotePad++设置
• 确保NotePad++安装了NppExport插件，并设置 Copy HTML to clipboard 的快捷键为 Alt + Shift + C
• 
5. 宏的使用
• 首先确保只打开一个NotePad++窗口，并且把当前的文件设置为要复制的文件，而且要确保NotePad++ 中的代码是高亮状态。
• 然后在Word中按之前设置好的快捷键，我设置的是ALt+1，等到出现Alt + Tab 页面时，就说明复制完成。
• 
• 此时，直接在Onenote中按 Ctrl + V 即可完成复制
• 使用注意事项
• Word 正文需要设置为无首行缩进
• 'Notepad++不能以管理员的身份运行
6. 后续改进方向
• 本来想让Word宏自动识别出Onenote窗口，并完成复制操作。但是Appactive好像不能很好的识别桌面版的 Onenote 窗口，测试了下，可以识别应用商店版的Onenote窗口，但是发送组合键Ctrl+V时，有时会出现失效，所以只是把相应的代码贴出来供大家参考吧。
• 代码

• #If VBA7 Then

      Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long

  #Else

      Private Declare Function timeGetTime Lib "winmm.dll" () As Long

  #End If

   

  Sub EditCode()

      'Word 正文需要设置为无首行缩进

      'Notepad++不能以管理员的身份运行

      'Notepad++中，'Plugin Commands'中的 'Copy HTML to clipboard'需设置快捷键为 ALT + Shift + C

     

      AppActivate "NotePad++"

      SendKeys "%+c"

      ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _

          1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

          wdAutoFitFixed

      Dim Savetime As Double

      Savetime = timeGetTime '记下开始时的时间

      While timeGetTime < Savetime + 5 '循环等待

      DoEvents '转让控制权，以便让操作系统处理其它的事件

      Wend

         

      Selection.Paste

          '删除所有可编辑的区域

      ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

      '添加可编辑区域

      Selection.Tables(1).Range.Editors.Add wdEditorEveryone

      '选中所有可编辑区域

      ActiveDocument.SelectAllEditableRanges wdEditorEveryone

     

     

     

      设置代码表格

     

      Selection.Cut

     

      '删除所有可编辑的区域

      ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

     

      'SendKeys ("^%({TAB})")

      AppActivate "OneNote"

      SendKeys ("{ESC}{ESC}^v")

     

     

  End Sub

   

   

   Sub 设置代码表格()

  ' author: code4101

  ' 设置代码表格 宏

  '

  '

      ' 背景色为morning的配色方案，RGB为(229,229,229)

      With Selection.Tables(1)

          With .Shading

              .Texture = wdTextureNone

              .ForegroundPatternColor = wdColorAutomatic

              .BackgroundPatternColor = 15066597

          End With

          .Borders(wdBorderLeft).LineStyle = wdLineStyleNone

          .Borders(wdBorderRight).LineStyle = wdLineStyleNone

          .Borders(wdBorderTop).LineStyle = wdLineStyleNone

          .Borders(wdBorderBottom).LineStyle = wdLineStyleNone

          .Borders(wdBorderVertical).LineStyle = wdLineStyleNone

          .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone

          .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone

          .Borders.Shadow = False

          .AutoFitBehavior (wdAutoFitContent)  '自动调整大小

      End With

      With Options

          .DefaultBorderLineStyle = wdLineStyleSingle

          .DefaultBorderLineWidth = wdLineWidth050pt

          .DefaultBorderColor = wdColorAutomatic

      End With

       

      ' 段落无首行缩进，行间距为固定值12磅

      With Selection.ParagraphFormat

          .LeftIndent = CentimetersToPoints(0)

          .RightIndent = CentimetersToPoints(0)

          .SpaceBefore = 0

          .SpaceBeforeAuto = False

          .SpaceAfter = 0

          .SpaceAfterAuto = False

          .LineSpacingRule = wdLineSpaceExactly

          .LineSpacing = 12

          .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

          .MirrorIndents = False

          .TextboxTightWrap = wdTightNone

          .AutoAdjustRightIndent = True

          .DisableLineHeightGrid = False

          .FarEastLineBreakControl = True

          .WordWrap = True

          .HangingPunctuation = True

          .HalfWidthPunctuationOnTopOfLine = False

          .AddSpaceBetweenFarEastAndAlpha = True

          .AddSpaceBetweenFarEastAndDigit = True

          .BaseLineAlignment = wdBaselineAlignAuto

      End With

      ' 清除原有的段落底纹

      Selection.ParagraphFormat.Shading.BackgroundPatternColor = wdColorAutomatic

      Selection.Font.Name = "Consolas"

  End Sub

• 使用时，要先将Onenote中的光标放在要插入代码的位置，运行宏后可以实现自动插入。