帮助实现红白转换

ldl---

红文件头和横线随时红白转换，方便套打。

duquancai

没明白，黑白打印或者彩打不就行了吗？

ldl---

duquancai 发表于 2017-1-13 15:46
没明白，黑白打印或者彩打不就行了吗？

用红色文件头打印黑白，套打减少成本

ldl---

录制了个宏，但有对话框，还是不方便。
Sub 宏2()
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = -603914241
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRed
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0)
    Selection.ShapeRange.Line.Visible = msoTrue
End Sub
Sub 宏1()
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorRed
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = -603914241
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.ShapeRange.Line.ForeColor.ObjectThemeColor = _
        wdThemeColorBackground1
    Selection.ShapeRange.Line.ForeColor.TintAndShade = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
End Sub

413191246se

1. Sub 红白套打()
   
2.     With ActiveDocument.Tables(1).Range
   
3.         If .Characters(1).Font.Color = wdColorRed Then
   
4.             .Font.Color = wdColorWhite '白色
   
5.             ActiveDocument.Shapes(1).Select
   
6.             Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 255, 255) '白色
   
7.         Else
   
8.             .Font.Color = wdColorRed '红色
   
9.             ActiveDocument.Shapes(1).Select
   
10.             Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0) '红色
    
11.         End If
    
12.     End With
    
13. End Sub

复制代码