2つの "For Each"ループを一緒に使用する - Word VBA

Question

2つの異なる配列を使用して2つの異なるデータポイントをワードドキュメント内の2つの異なるフィールドに入れたいと考えています。 1つの "For Each"ループを実行して、フィールドの1つを取り込むことができますが、2つの "For Each"ループを一緒に実行して、両方のフィールドにドキュメントを保存する前に実行する方法がわかりません。ここに私の現在のコードである：

Sub Numbering() 
' 
' Account Numbering and Naming Macro 
' 
' 
Dim Rng1 As Range 
Dim Rng2 As Range 

Dim AccountNumbers As Variant, AccountNumber As Variant 
    AccountNumbers = Array("20T5555", "20T3333", "20T8888", "20T1111") 

Dim AccountNames As Variant, AccountName As Variant 
    AccountNames = Array("Branch 1", "Branch 2", "Branch 3", "Branch 4") 

Set Rng1 = ActiveDocument.Bookmarks("AccountNumber").Range 
Set Rng2 = ActiveDocument.Bookmarks("AccountName").Range 

    For Each AccountNumber In AccountNumbers 

    AccountNumber1 = AccountNumber 
    Rng1.Delete 
    Rng1.Text = AccountNumber1 

      For Each AccountName In AccountNames 

      AccountName1 = AccountName 
      Rng2.Delete 
      Rng2.Text = AccountName1 

    ' Silent Save_to_PDF Macro 
    ' 
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _ 
    Replace(ActiveDocument.FullName, "template.docx", Trim(AccountNumber1) & ".pdf"), _ 
    ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _ 
    wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:= _ 
    wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _ 
    CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _ 
    BitmapMissingFonts:=True, UseISO19005_1:=False 

      Next AccountName 
    Next AccountNumber 

ActiveDocument.Save 

End Sub 

所望の結果は、第1の出力文書に他の内の1つのフィールドとブランチ1で20T5555を持っているだろう、など20T3333及び第二にブランチ2、

Answer 1

Forループは、同じインデックスを持つアイテムを取得するために使用することができます。

AccountNumbers = Array("20T5555", "20T3333", "20T8888", "20T1111") 
AccountNames = Array("Branch 1", "Branch 2", "Branch 3", "Branch 4") 

For i = 0 To Ubound(AccountNames) 
    Debug.Print AccountNumbers(i), AccountNames(i) 
Next i