H
Huaqin
i need help please,
i created a macro to do hidden paragraph. i highlight the paragraph mark,
format, font, check the box hidden, make the color red. the macro did not
run, don't know why, can you help, the following is the recorded macro:
Sub HiddenParagraph()
'
' HiddenParagraph Macro
' Macro recorded 11/16/2006 by OWNER
'
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.Font
.NameFarEast = "Times New Roman"
.NameAscii = "Times New Roman"
.NameOther = "Times New Roman"
.Name = "Times New Roman"
.Size = 12
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = True
.SmallCaps = False
.AllCaps = False
.Color = wdColorRed
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
.DisableCharacterSpaceGrid = False
.EmphasisMark = wdEmphasisMarkNone
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
i created a macro to do hidden paragraph. i highlight the paragraph mark,
format, font, check the box hidden, make the color red. the macro did not
run, don't know why, can you help, the following is the recorded macro:
Sub HiddenParagraph()
'
' HiddenParagraph Macro
' Macro recorded 11/16/2006 by OWNER
'
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.Font
.NameFarEast = "Times New Roman"
.NameAscii = "Times New Roman"
.NameOther = "Times New Roman"
.Name = "Times New Roman"
.Size = 12
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = True
.SmallCaps = False
.AllCaps = False
.Color = wdColorRed
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
.DisableCharacterSpaceGrid = False
.EmphasisMark = wdEmphasisMarkNone
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub