Need to do this for more than 20 styles is any option is there. help me on this

[stky]

Sub test_style_exists()

Dim test_style As String
On Error Resume Next
test_style = "Quota"
MsgBox "Style " & test_style & " exists in " & ActiveDocument.Name & "?" & vbCr & _
style_exists(ActiveDocument, test_style)


If Not MyStyle Is Nothing Then
Set MyStyle = Application.ActiveDocument.Styles.Add(test_style, wdStyleTypeParagraph)
End If

End Sub

Function style_exists(test_document As Word.Document, style_name As String) As Boolean



style_exists = False
On Error Resume Next
style_exists = test_document.Styles(style_name).NameLocal = style_name

End Function

[gmayor]

How about. Change the style names as required

Option Explicit

Sub AddStylesFromList()
Dim MyStyle As Style
Dim bExists As Boolean
Dim i As Integer
Dim vStyle(19) As Variant
    vStyle(0) = "Stylename1"
    vStyle(1) = "Stylename2"
    vStyle(2) = "Stylename3"
    vStyle(3) = "Stylename4"
    vStyle(4) = "Stylename5"
    vStyle(5) = "Stylename6"
    vStyle(6) = "Stylename7"
    vStyle(7) = "Stylename8"
    vStyle(8) = "Stylename9"
    vStyle(9) = "Stylename10"
    vStyle(10) = "Stylename11"
    vStyle(11) = "Stylename12"
    vStyle(12) = "Stylename13"
    vStyle(13) = "Stylename14"
    vStyle(14) = "Stylename15"
    vStyle(15) = "Stylename16"
    vStyle(16) = "Stylename17"
    vStyle(17) = "Stylename18"
    vStyle(18) = "Stylename19"
    vStyle(19) = "Stylename20"

    On Error Resume Next
    For i = 0 To 19
        bExists = style_exists(ActiveDocument, CStr(vStyle(i)))
        If bExists = False Then Application.ActiveDocument.Styles.Add CStr(vStyle(i)), wdStyleTypeParagraph
        DoEvents
    Next i
End Sub

Function style_exists(test_document As Word.Document, style_name As String) As Boolean
    style_exists = False
    On Error Resume Next
    style_exists = test_document.Styles(style_name).NameLocal = style_name
End Function

[stky]

can we add font name in that.

(e.g.) Times New Roman, Calibri

if we create same as for characters style

can we add the attributes in that

(e.g.) bold, italic, superscript, subscript.

[gmayor]

You can include any style parameters e.g. as follows

Option Explicit

Sub AddStylesFromList()
Dim MyStyle As Style
Dim bExists As Boolean
Dim i As Integer
Dim vStyle(19) As Variant
    vStyle(0) = "Stylename1"
    vStyle(1) = "Stylename2"
    vStyle(2) = "Stylename3"
    vStyle(3) = "Stylename4"
    vStyle(4) = "Stylename5"
    vStyle(5) = "Stylename6"
    vStyle(6) = "Stylename7"
    vStyle(7) = "Stylename8"
    vStyle(8) = "Stylename9"
    vStyle(9) = "Stylename10"
    vStyle(10) = "Stylename11"
    vStyle(11) = "Stylename12"
    vStyle(12) = "Stylename13"
    vStyle(13) = "Stylename14"
    vStyle(14) = "Stylename15"
    vStyle(15) = "Stylename16"
    vStyle(16) = "Stylename17"
    vStyle(17) = "Stylename18"
    vStyle(18) = "Stylename19"
    vStyle(19) = "Stylename20"

    On Error Resume Next
    For i = 0 To 19
        bExists = style_exists(ActiveDocument, CStr(vStyle(i)))
        If bExists = False Then
            Set MyStyle = Application.ActiveDocument.Styles.Add(CStr(vStyle(i)), wdStyleTypeParagraph)
            With MyStyle
                Select Case i
                    Case 0
                        .Font.Name = "Calibri"
                        .Font.Size = 12
                    Case 1
                        .Font.Name = "Times New Roman"
                        .Font.Bold = True
                        .Font.Size = 16
                    Case 2
                        .Font.Name = "Times New Roman"
                        .Font.Italic = True
                        .Font.Size = 14
                    Case 3
                        .Font.Name = "Times New Roman"
                        .Font.Superscript = True
                        .Font.Size = 12
                        'etc
                End Select
            End With
        End If
        DoEvents
    Next i
End Sub

Function style_exists(test_document As Word.Document, style_name As String) As Boolean
    style_exists = False
    On Error Resume Next
    style_exists = test_document.Styles(style_name).NameLocal = style_name
End Function

[stky]

while i find and replace its only finding and replace in document body, I need to find the in footnote and endnote too.