13/02/17 09:02:08.01
>>744をマクロで
Sub test()
Options.PrintHiddenText = True
With ActiveDocument.Content.Find
.Font.Hidden = True
.Replacement.Font.Color = wdColorWhite
.Execute Replace:=wdReplaceAll
ActiveDocument.PrintOut
.Replacement.Font.Color = wdColorAutomatic
.Execute Replace:=wdReplaceAll
End With
Options.PrintHiddenText = False
End Sub