Hi Shyam,

Thanks for responding so quickly. I've tried that and I get the same
result. My cursor doesn't move anywhere near the words "mytext" and
nothing is highlighted. I'm using PowerPoint 2003 with SP2. I read
somewhere there was a bug with the Find feature in PowerPoint? Could
this be affecting it?

Or maybe my approach is wrong? This piece of code is a part 2 of 3 that
I wanted to call when formatting some text. I am a technical courseware
developer and our software is CLI based... like the DOS command prompt.
I frequently copy text from our software and paste it into a text box
on a slide for use as examples.

I've been successful with Part 1 and Part 3. Part 2 (the find and
highlight part) is the glue that I'm missing.

The end result is a macro called CLI_FRAME () that runs PART 1, 2, and
3 sequentially.

If you could help me with this I'm sure lots of other people may find
it useful and would make a great example in the book.

---------------- For PART 1 -----------------
I have been able to successfully format the text box. It adds a border,
sets the basic font, line spacing, paragraph alignments, etc. This is
done, after I click anywhere in the text box and run the macro CLI_box
() as follows:

******************************************
Sub CLI_box()
'
' Formats entire frame to a default font, spacing, color, & line border
'
   ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
   With ActiveWindow.Selection.TextRange.Font
       .NameAscii = "Courier New"
       .NameOther = "Courier New"
       .Size = 12
       .Bold = msoFalse
       .Italic = msoFalse
       .Underline = msoFalse
       .Shadow = msoFalse
       .Emboss = msoFalse
       .BaselineOffset = 0
       .AutoRotateNumbers = msoFalse
       .Color.RGB = RGB(Red:=206, Green:=206, Blue:=206)
   End With

   With ActiveWindow.Selection.TextRange.ParagraphFormat
       .Bullet.Visible = msoFalse
       .LineRuleWithin = msoTrue
       .SpaceWithin = 1#
       .LineRuleBefore = msoFalse
       .SpaceBefore = 0#
       .LineRuleAfter = msoFalse
       .SpaceAfter = 0
    End With

   With ActiveWindow.Selection.ShapeRange
       .Fill.Visible = msoTrue
       .Fill.Solid
       .Fill.ForeColor.RGB = RGB(0, 35, 45)
       .Fill.Transparency = 0#
       .Line.Weight = 4
       .Line.Style = msoLineThinThin
       .Line.Visible = msoTrue
       .Line.ForeColor.SchemeColor = ppAccent3
       .Line.BackColor.RGB = RGB(255, 255, 255)
       .TextFrame.MarginLeft = 3.6
       .TextFrame.MarginRight = 3.6
       .TextFrame.MarginTop = 3.6
       .TextFrame.MarginBottom = 3.6
       .TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignLeft
       .TextFrame.HorizontalAnchor = msoAnchorNone
       .TextFrame.VerticalAnchor = msoAnchorTop
   End With

   ActiveWindow.Selection.ShapeRange.ZOrder msoBringToFront
   ActiveWindow.BlackAndWhite = msoTrue
   ActiveWindow.Selection.ShapeRange.BlackWhiteMode =
msoBlackWhiteAutomatic
   ActiveWindow.BlackAndWhite = msoFalse
   ActiveWindow.View.ZoomToFit = msoTrue
   ActiveWindow.Selection.ShapeRange.AutoShapeType = msoShapeRectangle
   ActiveWindow.Selection.ShapeRange.TextFrame.AutoSize =
ppAutoSizeMixed

End Sub
******************************************

---------------- For PART 3 -----------------
I have been able to successfully format the line of text into two parts

For example:

        TEXT-A = "CompanyX_prompt"
        TEXT-B = "command"

So it would look like:       CompanyX_prompt#command

   Part A ("CompanyX_prompt)) is formatted in courier font not bolded
   Part B (the command line to type in) is formatted in courier font
BOLD

This is done by clicking in between TEXT-A and TEXT-B and running the
following 3-part macros (PromptFont, CommandFont, and CLI_bullet)

******************************************
Sub CLI_Bullet()
'
' Insert cursor between the prompt symbol (> or #) and the start of the
command to format Blue
' This also adds a space after the prompt and bolds the command portion
'

' to select prompt text
   SendKeys "+{HOME}", True
   PromptFont
ActiveWindow.Selection.TextRange.Font.Italic = False
' to add a space after #
ActiveWindow.Selection.TextRange.InsertAfter " "
  SendKeys "{RIGHT}", True
' to select command text
  SendKeys "+{END}", True
  CommandFont
ActiveWindow.Selection.TextRange.Font.Italic = False
ActiveWindow.Selection.Unselect
End Sub

Sub PromptFont()
   ' This changes the selected font to Blue (not Bold) for the CLI
prompt
ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet = msoFalse
   ActiveWindow.Selection.TextRange.ParagraphFormat.Alignment =
ppAlignLeft
   With ActiveWindow.Selection.TextRange.Font
       .NameAscii = "Courier New"
       .NameOther = "Courier New"
       .Size = 12
       .Bold = msoFalse
       .Italic = msoFalse
       .Underline = msoFalse
       .Shadow = msoFalse
       .Emboss = msoFalse
       .BaselineOffset = 0
       .AutoRotateNumbers = msoFalse
       .Color.RGB = RGB(Red:=0, Green:=102, Blue:=153)
   End With
End Sub

Sub CommandFont()
   ' This changes the selected font to Blue (Bold) for quoting a CLI
command after the prompt
       With ActiveWindow.Selection.TextRange.Font
           .NameAscii = "Courier New"
           .NameOther = "Courier New"
'           .Size = 12
           .Bold = msoTrue
           .Italic = msoFalse
           .Underline = msoFalse
           .Shadow = msoFalse
           .Emboss = msoFalse
           .BaselineOffset = 0
           .AutoRotateNumbers = msoFalse
           .Color.RGB = RGB(Red:=0, Green:=100, Blue:=150)
       End With

   End Sub

******************************************

---------------- Now for PART 2 -----------------

Now, I could've stopped there and just click on each line manually
after the "#" and run CLI_bullet manually each time, but since I was on
a roll with the macros, I thought I could go one step further and look
at each individual line in the macro using a dialog box.

This is done, after I click anywhere in the text box and run the macro
AskLine ()

******************************************
Sub AskLine()
Dim Msg, Style, Title, Response, MyString
    ' to define message:
        Msg = "Do you want to bold the command on this line?"
    ' to define buttons:
        Style = vbYesNoCancel + vbQuestion + vbDefaultButton1
    ' to define title:
        Title = "Bolding Text in a CLI Box"
    ' to display message:
        Response = MsgBox(Msg, Style, Title)
    'If user chose Yes, then search for # and format using CLI_bullet
macro
        If Response = vbYes Then
   'open Find Text dialog box
        SendKeys "%EF", True
   'insert "#" for Find What text in dialog box
        SendKeys "#", True
        SendKeys "+{TAB 2}", True
        SendKeys "{ENTER}", True
            CLI_bullet
   'move cursor down to beginning of next line and prep to find next #
character by running AskLine () macro again:
        SendKeys "{DOWN}", True
        SendKeys "{HOME}", True
' Run this again
            AskLine

' User choses No, so don't find # but don't run AskLine () macro.
Instead just move cursor down one line.
   ElseIf Response = vbNo Then
   'move cursor down to beginning of next line and prep to find next #
character:
        SendKeys "{DOWN}", True
        SendKeys "{HOME}", True
' Run this again
            AskLine
   Else 'user chose Cancel
End If
End Sub

******************************************

Sub CLI_FRAME ()
'
' to use, click anywhere in the text frame and run this macro
'
'

        ' Format text box to CLI style
              CLI_box

        ' move cursor to top left of text frame
              SendKeys "^{HOME}", True

        ' process all lines
              AskLine

End Sub

******************************************

Well, that's it. I tried to input notes to help follow the flow.
Hopefully it makes sense...  Again, the bottleneck is when I try to
find the # character.

Thanks!
Jonathan