![]() |
#1
|
|||
|
|||
![]() 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 |
|
![]() |
||||
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 |
![]() |
alexcj37 | Word | 1 | 02-07-2014 08:25 PM |
![]() |
Twene | Excel | 1 | 11-20-2011 02:18 AM |
![]() |
SyedaAdil | Office | 1 | 11-04-2009 08:15 AM |