VBA help

needhelp2 · #1 07-07-2011, 12:11 PM

Hi guys,

I need to know how i can hit enter by using VBA after a specific word.
Kindly please confirm .I had record below script but unabel to get my result what i need.

I need to insert enter mean all record after </br> move to next time by using enter.

Br,
Smith.

Code:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "<br/>"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "<br/>"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "<br/>"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
End Sub

macropod · #2 07-07-2011, 11:19 PM

Hi needhelp,

If you study the Find/Replace options available through Word's user interface, you'll find that you can include the find text as part of the replacement text (ie Replace = ^&) , which can include a paragraph break (ie ^p). So, you can achieve what it appears you're after, using Find/Replace (ie without a macro), where:
Find = <br/>
Replace = ^&^p

The following revision to your macro achieves the same thing:

Code:

Sub Demo()
With Selection.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = "<br/>"
  .Replacement.Text = "^&^p"
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
  .Execute Replace:=wdReplaceAll
End With
End Sub

needhelp2 · #3 07-08-2011, 12:41 AM

Thanks buddy ,Thank you very very much