Sub 粗綠14()
'
' 粗綠14 巨集
'
'
Selection.Font.Size = 14
Selection.Font.Bold = wdToggle
Selection.Font.Color = RGB(0, 128, 0)
End Sub
Sub 粗咖啡16()
'
' 粗咖啡16
'
'
Selection.Font.Size = 16
Selection.Font.Bold = wdToggle
Selection.Font.Color = RGB(192, 0, 0)
End Sub
Sub 兩列異色無格線CPP()
'
' 兩列異色無格線CPP 巨集
'
'
Selection.Font.Bold = False
Selection.Font.Color = wdColorBlack
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
.Borders.Enable = False ' <--- 加入這行，強制關閉所有自動產生的格線
If .Style <> "表格格線" Then
.Style = "表格格線"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False
End With
Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
Selection.Shading.Texture = wdTextureNone
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = -671023309
Selection.Shading.Texture = wdTextureNone
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = -654246093
Selection.TypeText Text:="CPP"
Selection.Font.Bold = wdToggle
Selection.Font.Size = 14
End Sub
