Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 12-15-2022, 11:43 PM
balavaka balavaka is offline kindly help where i mistake Windows 10 kindly help where i mistake Office 2013
Novice
kindly help where i mistake
 
Join Date: May 2021
Posts: 25
balavaka is on a distinguished road
Default kindly help where i mistake


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
Reply With Quote
 



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 help where i mistake Kindly repair these .docx file alexcj37 Word 1 02-07-2014 08:25 PM
kindly help where i mistake Kindly help me answer these questions Twene Excel 1 11-20-2011 02:18 AM
kindly help where i mistake kindly fix my problem its urgent! SyedaAdil Office 1 11-04-2009 08:15 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 01:22 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft