Selected text - macro help

jeffdavis · 05-15-2009, 06:41 AM

In the "good old" days, macros just recorded your keystrokes. Not so any more.

I need to help with a macro that will work on selected text. I want to select the text. Then, when I run the macro, a left bracket will be put at the beginning of the text I selected, a right bracket will be put at the end of the text I selected, and all (including the brackets) will be highlighted in a particular color, with the cursor ending up at the right of the closing bracket.

I vaguely imaging some version of with. and end with needs to be used but that's about as much as I know.

**macropod** · 05-16-2009, 05:24 AM

Hi Jeff,

What you're asking is really rather basic, and could be gleaned from a simple web search or any half-decent book on macros. Anyway, FWIW:

Code:

Sub Demo()
Selection.InsertBefore "("
Selection.InsertAfter ")"
Selection.Font.Color = wdColorAqua
Selection.Collapse wdCollapseEnd
End Sub

or

Code:

Sub Demo()
With Selection
  .InsertBefore "("
  .InsertAfter ")"
  .Font.Color = wdColorAqua
  .Collapse wdCollapseEnd
End With
End Sub

jeffdavis · 06-01-2009, 11:53 AM

I do realize that what I was asking was basic - searching the 'net brought me to the great folks here. In any case, it turns out that what I needed was either of these (apply highlight color rather than font color). Note, the added spaces between the right bracket and the closing quote should not be there. The BBS software here is inserting them for some reason.

Code:

Sub HighlightSelectedText()
   Selection.InsertBefore "["
   Selection.InsertAfter "]  "
   Selection.Range.HighlightColorIndex = wdTurquoise
   Selection.Collapse wdCollapseEnd
End Sub
'
'or
'
Sub HighlightSelectedText()
   With Selection
      .InsertBefore "["
      .InsertAfter "]  "
      .Range.HighlightColorIndex = wdTurquoise
      .Collapse wdCollapseEnd
   End With
End Sub

05-15-2009, 06:41 AM	#1 (permalink)
jeffdavis Registered User Join Date: May 2009 Location: Ohio Posts: 3 OS: XP	Selected text - macro help In the "good old" days, macros just recorded your keystrokes. Not so any more. I need to help with a macro that will work on selected text. I want to select the text. Then, when I run the macro, a left bracket will be put at the beginning of the text I selected, a right bracket will be put at the end of the text I selected, and all (including the brackets) will be highlighted in a particular color, with the cursor ending up at the right of the closing bracket. I vaguely imaging some version of with. and end with needs to be used but that's about as much as I know.

05-16-2009, 05:24 AM	#2 (permalink)
macropod TSF Enthusiast Join Date: Apr 2008 Location: Australia Posts: 570 OS: Vista	Re: Selected text - macro help Hi Jeff, What you're asking is really rather basic, and could be gleaned from a simple web search or any half-decent book on macros. Anyway, FWIW: Code: Sub Demo() Selection.InsertBefore "(" Selection.InsertAfter ")" Selection.Font.Color = wdColorAqua Selection.Collapse wdCollapseEnd End Sub or Code: Sub Demo() With Selection .InsertBefore "(" .InsertAfter ")" .Font.Color = wdColorAqua .Collapse wdCollapseEnd End With End Sub __________________ Cheers macropod (MS MVP -Word)

06-01-2009, 11:53 AM	#3 (permalink)
jeffdavis Registered User Join Date: May 2009 Location: Ohio Posts: 3 OS: XP	Re: Selected text - macro help I do realize that what I was asking was basic - searching the 'net brought me to the great folks here. In any case, it turns out that what I needed was either of these (apply highlight color rather than font color). Note, the added spaces between the right bracket and the closing quote should not be there. The BBS software here is inserting them for some reason. Code: Sub HighlightSelectedText() Selection.InsertBefore "[" Selection.InsertAfter "] " Selection.Range.HighlightColorIndex = wdTurquoise Selection.Collapse wdCollapseEnd End Sub ' 'or ' Sub HighlightSelectedText() With Selection .InsertBefore "[" .InsertAfter "] " .Range.HighlightColorIndex = wdTurquoise .Collapse wdCollapseEnd End With End Sub Last edited by jeffdavis; 06-01-2009 at 11:56 AM.