У меня есть динамический именованный диапазон ячеек. Мне нужно вставить каждый именованный диапазон на одну страницу слова и перейти на следующую страницу для следующего именованного диапазона. Я попробовал связку кода, но не могу. Данные каждого именованного диапазона перекрывают друг друга. Кто-нибудь может мне помочь.
Set wbBook = ActiveWorkbook
Set rs = wbBook.Names(1).RefersToRange
For i = 2 To wbBook.Names.Count
Set rs = Union(rs, wbBook.Names(i).RefersToRange)
Next
rs.Copy
With wd.Range
.Collapse Direction:=0
.InsertParagraphAfter
.Collapse Direction:=0
.PasteSpecial False, False, True
Application.CutCopyMode = False
End With