Need create style

stky · #1 10-31-2021, 01:55 AM

Need to create style with in e.g: (<H1>, <H2>, <H3>... etc...)

and for character style need create

bold as cBold
italic as cItalic

...etc.

In all stories.

Guessed · #2 10-31-2021, 02:18 PM

This should get you started

Code:

Sub StyleItUp()
  Dim aRng As Range
  Set aRng = ActiveDocument.Range
  With aRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "<CN>"
    .Replacement.Style = "Heading 1"
    .Execute Replace:=wdReplaceAll
    
    .Text = "<CT>"
    .Replacement.Style = "Heading 2"
    .Execute Replace:=wdReplaceAll
    
    .Text = "<TX>"
    .Replacement.Style = "Body Text"
    .Execute Replace:=wdReplaceAll
    'repeat above pattern for all paragraph styles
    
    'now search for font attributes and apply character styles
    .Text = ""
    .Font.Bold = True
    .Replacement.ClearFormatting
    .Replacement.Style = "Strong"
    .Execute Replace:=wdReplaceAll
    
    .ClearFormatting
    .Font.Italic = True
    .Replacement.ClearFormatting
    .Replacement.Style = "Emphasis"
    .Execute Replace:=wdReplaceAll
    
  End With
End Sub

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
need to find and create style	stky	Word VBA	3	04-23-2021 10:51 PM
Create text box in VBA and style content	dpashley	Word VBA	2	08-01-2017 01:40 AM
Modify or create a style	otuatail	Word	3	09-12-2016 12:20 PM
I create a new style but it fails to appear in Quick Style list	veronius	Word	6	06-18-2013 06:29 PM
How do I create a style that changes only the color???	wornways	Word	1	12-21-2011 04:19 PM