excel vba按特定順序查找命名範圍

Question

我使用vba動態創建命名範圍。然後我想在每個頁面的每個命名範圍內導出爲單詞。例如：命名範圍將是Page1，Page2，... Page10等等。當我嘗試導出時，Page1排在第一位，第10頁排在第二位。如何使它第1頁，第2頁，等等

For intCounter = 1 To wbBook.Names.Count 
     MsgBox Names(intCounter).name 
     'If IsNameRefertoSheet(oSht, Names(intCounter)) Then 
     If Names(intCounter).name Like "Page*" Then 
      With objDoc 
       Set rtarget = .Range(.Content.End - 1, .Content.End - 1) 
       'Insert page break if not first page 
       If Names(intCounter).name <> "Page1" Then rtarget.InsertBreak Type:=wdPageBreak 
       'Copy data from named range 
       Range(wbBook.Names(intCounter)).Copy 
       Set rtarget = .Range(.Content.End - 1, .Content.End - 1) 
       rtarget.Paste 
      End With 
     End If 
     'End If 
    Next intCounter 

Answer 1

命題

nbrofpage=10 'set your number of pages 
For intcounter = 1 To nbrofpage 
    With objDoc 
     Set rtarget = .Range(.Content.End - 1, .Content.End - 1) 
     'Insert page break if not first page 
     If intcounter <> 1 Then rtarget.InsertBreak Type:=wdPageBreak 
     'Copy data from named range 
     Range("page" & intcounter).Copy 
     Set rtarget = .Range(.Content.End - 1, .Content.End - 1) 
     rtarget.Paste 
    End With 
Next intcounter