word添加c语言代码,为Word中c代码添加行号

Sub 设置代码行号()

'

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

Dim codeLineNumber As Integer

With Selection.Tables(1)

With .Shading

.Texture = wdTextureNone

.ForegroundPatternColor = wdColorAutomatic

End With

.Borders(wdBorderLeft).LineStyle = wdLineStyleNone

.Borders(wdBorderRight).LineStyle = wdLineStyleNone

.Borders(wdBorderTop).LineStyle = wdLineStyleNone

.Borders(wdBorderBottom).LineStyle = wdLineStyleNone

.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone

.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone

.Borders.Shadow = False

.Range.HighlightColorIndex = wdNoHighlight

.Columns(1).Shading.BackgroundPatternColor = wdColorGray20

.Columns(1).Width = 25

.Columns(2).Shading.BackgroundPatternColor = wdColorGray05

.Columns(2).Width = 400

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 = 14

.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

codeLineNumber = Selection.Paragraphs.Count

With Selection.Tables(1).Columns(1)

For i = 1 To codeLineNumber - 1

Selection.TypeText Text:=i

Selection.TypeParagraph

Next

Selection.TypeText Text:=行数

End With

End Sub