J
Joe
I am using Word 2002. How do I turn off highlighting so that the word " and " and " The system is able to provide 55 MB/s." are not highlighted?
Thanks,
Joe
Code:
Sub Main()
With Selection
' Sizing summary
.TypeText "The server sizing is largely dependent on the number of simultaneous " & _
"retrievals from Vericis Workstations and the number of incoming studies from " & _
"modalities. The system was sized to support "
.Font.Bold = True
.TypeText "3"
.Font.Bold = False
.TypeText " concurrent cath sessions (30 MB/s)"
.MoveLeft wdWord, 10, wdExtend
.Range.HighlightColorIndex = wdRed
.Collapse wdCollapseEnd
.Range.HighlightColorIndex = wdNoHighlight
.TypeText " and "
.Font.Bold = True
.TypeText "3"
.Font.Bold = False
.TypeText " concurrent echo sessions (45 MB/s)"
.MoveLeft wdWord, 10, wdExtend
.Range.HighlightColorIndex = wdRed
.Collapse wdCollapseEnd
.Range.HighlightColorIndex = wdNoHighlight
.TypeText "."
.TypeText " The system is able to provide "
.Font.Bold = True
.TypeText "55"
.Font.Bold = False
.TypeText " MB/s."
.TypeParagraph
.TypeParagraph
.TypeParagraph
End With
End Sub
Thanks,
Joe
Code:
Sub Main()
With Selection
' Sizing summary
.TypeText "The server sizing is largely dependent on the number of simultaneous " & _
"retrievals from Vericis Workstations and the number of incoming studies from " & _
"modalities. The system was sized to support "
.Font.Bold = True
.TypeText "3"
.Font.Bold = False
.TypeText " concurrent cath sessions (30 MB/s)"
.MoveLeft wdWord, 10, wdExtend
.Range.HighlightColorIndex = wdRed
.Collapse wdCollapseEnd
.Range.HighlightColorIndex = wdNoHighlight
.TypeText " and "
.Font.Bold = True
.TypeText "3"
.Font.Bold = False
.TypeText " concurrent echo sessions (45 MB/s)"
.MoveLeft wdWord, 10, wdExtend
.Range.HighlightColorIndex = wdRed
.Collapse wdCollapseEnd
.Range.HighlightColorIndex = wdNoHighlight
.TypeText "."
.TypeText " The system is able to provide "
.Font.Bold = True
.TypeText "55"
.Font.Bold = False
.TypeText " MB/s."
.TypeParagraph
.TypeParagraph
.TypeParagraph
End With
End Sub