如何只打印选定的文字（如红色文字）

abcttud

如何只打印选定的文字（如红色文字）


如何只打印选定的文字（如红色文字）.zip (21.74 KB, 下载次数: 8)

2020-8-23 10:21 上传

点击文件名下载附件

遥控器78

其他的改成白色，不知道能不能用VBA实现，我是菜鸟。

abcttud

遥控器78 发表于 2020-8-23 15:42
其他的改成白色，不知道能不能用VBA实现，我是菜鸟。

想象可以，但如何用VBA实现，还有表格等

遥控器78

abcttud 发表于 2020-8-23 18:25
想象可以，但如何用VBA实现，还有表格等

表格可以用VBA改成无线表，如果还有图片的话就不知道了，希望有大神能解答这个问题。

abcttud

遥控器78 发表于 2020-8-23 19:24
表格可以用VBA改成无线表，如果还有图片的话就不知道了，希望有大神能解答这个问题。

朋友，能帮写下吗？空白表格打字，省去对图表了

遥控器78

这个是把所有表格改成无线表，我不会VBA，这是在别人写的代码上修改的，我试了下可以用。

Sub 无线表()
For Each aTable In ActiveDocument.Tables

    With aTable
        aTable.Select
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleNone
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleNone
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleNone
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleNone
        End With
        With .Borders(wdBorderHorizontal)
            .LineStyle = wdLineStyleNone
        End With
        With .Borders(wdBorderVertical)
            .LineStyle = wdLineStyleNone
        End With
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleNone
        .DefaultBorderColor = wdColorAutomatic
    End With
Next aTable


End Sub

遥控器78

这个也可以
Sub 无线表2()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
With tbl.Borders
.OutsideLineStyle = wdLineStyleNone
.InsideLineStyle = wdLineStyleNone
End With
Next tbl
Set tbl = Nothing
End Sub

abcttud

遥控器78 发表于 2020-8-24 09:06
这个是把所有表格改成无线表，我不会VBA，这是在别人写的代码上修改的，我试了下可以用。

Sub 无线表()
...

谢谢朋友，还有黑色文字变成白色文字，那位朋友帮解决下

遥控器78

abcttud 发表于 2020-8-24 09:44
谢谢朋友，还有黑色文字变成白色文字，那位朋友帮解决下

你可以试试查找替换，把黑色替换成白色
可以参考一下这贴 http://club.excelhome.net/thread-1481397-1-1.html

abcttud

遥控器78 发表于 2020-8-24 10:24
你可以试试查找替换，把黑色替换成白色
可以参考一下这贴 http://club.excelhome.net/thread-1481 ...

谢谢朋友，有时间帮看下其他的问题，谢谢！

http://club.excelhome.net/thread-1550446-1-1.html

http://club.excelhome.net/thread-1549699-1-1.html