VBA for selecting given text and moving the whole line

gmayor · #2 06-04-2019, 07:57 PM

You can do this with a simple replacement of
wrote:^p
with
^& Format > Style > Heading 1
and modify the style Heading 1 to produce the format and spacing to require.

If you want a macro you can record the steps e.g.

Code:

Sub Macro1()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("Heading 1")
    With Selection.Find
        .Text = "wrote:^p"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With ActiveDocument.Styles("Heading 1").Font
        .Name = "Times New Roman"
        .Size = 12
        .Bold = True
        .Italic = False
    End With
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Data point and box is not moving when selecting name from slicer	JoemanNville	Excel	0	02-23-2019 07:30 PM
Cursor positioning vs. selecting at end of line	Alpha Zen	Word	1	04-26-2017 02:56 AM
Moving Image Vertically Changes Line Spacing	My-Kl	Word	2	03-31-2017 03:14 PM
Selecting and moving text boxes identified by specific text.	Chayes	Word VBA	8	02-22-2016 07:01 AM
Selecting a Text Box	gajesh	Word	0	09-02-2009 11:45 PM