Timothy Rylatt is right, you can refer to his point and implement it, the following code I implemented is a similar one, you can try first:
Sub Paragraph_style_copy_renaming()
Dim destStyleName, sourceStyleName, d As Word.Document, e, i
destStyleName = Array("BT Heading 1", "BT Heading 2", "BT Heading 3")
sourceStyleName = Array(WdBuiltinStyle.wdStyleHeading1,
…
Top comments (0)