kindly help where i mistake

balavaka · #1 12-15-2022, 11:43 PM

Code:

Sub RenameCharacterStyles()
    Dim oldNames As Variant
    oldNames = Array("Old Style 1", "Old Style 2", "Old Style 3")

    Dim newNames As Variant
    newNames = Array("New Style 1", "New Style 2", "New Style 3")

    Dim i As Integer
    For i = 0 To UBound(oldNames)
        Dim style As Style
        Set style = ActiveDocument.Styles(oldNames(i))
        style.RenumberList oldNames(i), newNames(i)
    Next i
End Sub

Italophile · #2 12-16-2022, 01:54 AM

Code:

style.RenumberList oldNames(i), newNames(i)

The function RenumberList does not exist.

If you explain what it is you are trying to do, perhaps someone can help you.

balavaka · #3 12-16-2022, 02:05 AM

rename oldNames with newNames

Italophile · #4 12-16-2022, 04:40 AM

Quote:

Originally Posted by balavaka

rename oldNames with newNames

So long as you are not attempting to rename built-in styles that's as simple as

Code:

style.Name = newNames(i)

balavaka · #5 12-16-2022, 09:10 AM

Code:

Sub RenameCharacterStyles()
    Dim oldNames As Variant
    oldNames = Array("Old Style 1", "Old Style 2", "Old Style 3")

    Dim newNames As Variant
    newNames = Array("New Style 1", "New Style 2", "New Style 3")

    Dim i As Integer
    For i = 0 To UBound(oldNames)
        Dim style As Style
        Set style = ActiveDocument.Styles(oldNames(i))
        style.Name = newNames(i)
    Next i
End Sub

Italophile · #6 12-16-2022, 09:50 AM

Either the style you are attempting to rename doesn't exist in the ActiveDocument, or you are trying to rename a built-in style, which isn't possible.

You need to add some error checking, for example:

Code:

Sub RenameCharacterStyles()
    Dim oldNames As Variant
    oldNames = Array("Old Style 1", "Old Style 2", "Old Style 3")

    Dim newNames As Variant
    newNames = Array("New Style 1", "New Style 2", "New Style 3")

    Dim i As Integer
    Dim sty As Style
    For i = 0 To UBound(oldNames)
        Set sty = ActiveDocument.Styles(oldNames(i))
        If Not sty Is Nothing Then
            If Not sty.BuiltIn Then sty.Name = newNames(i)
        End If
    Next i
End Sub

balavaka · #7 12-16-2022, 10:10 AM

compile error

on this line

Code:

If Not sty.BuiltIn Then sty.Name = newNames(i)

Italophile · #8 12-16-2022, 11:21 AM

Quote:

Originally Posted by balavaka

compile error

on this line

Code:

If Not sty.BuiltIn Then sty.Name = newNames(i)

Sorry that should be

Code:

If Not sty.BuiltIn Then sty.NameLocal = newNames(i)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Kindly help references list	balavaka	Word VBA	1	02-11-2022 04:37 AM
Huge Mistake!	markg2	Excel	2	05-12-2014 08:05 AM
Kindly repair these .docx file	alexcj37	Word	1	02-07-2014 08:25 PM
Kindly help me answer these questions	Twene	Excel	1	11-20-2011 02:18 AM
kindly fix my problem its urgent!	SyedaAdil	Office	1	11-04-2009 08:15 AM