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)

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
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