forループが最初のステーションに対して継続しないのはなぜですか？

Question

私はExcelからWordにデータを転送するコードを作成しています。それを試すために、私は配列リストを使ってコードを作りました。単語の各配列をチェックし、リストの隣に文字列を配置するにはしかし、それはループ内の配列を取っていません。

Sub CreateNewWordDoc() 

    Dim wrdApp As Word.Application 
    Dim wrdDoc As Word.Document 
    Dim i As Integer 
    Dim arr(12) 

    arr(0) = "(249_L), 38,7 %" 
    arr(1) = "(248_R), 38,7 %" 
    arr(2) = "(249_M), 38,7 " 
    arr(3) = "(3560), 38,7 " 
    arr(4) = "(3550), 38,7 %" 
    arr(5) = "(349_), 38,7 %" 
    arr(6) = "(348_), 38,7 %" 
    arr(7) = "(451), 38,7 %" 
    arr(8) = "(450L), 38,7 " 
    arr(9) = "(450R), 38,7 " 
    arr(10) = "(151), 38,7 %" 
    arr(11) = "(150L), 38,7 %" 
    arr(12) = "(150R), 38,7 %" 

    Set wrdApp = CreateObject("Word.Application") 

    wrdApp.Visible = True 
    Set wrdDoc = wrdApp.Documents.Open("E:\ShareDrive_Ruehl\full-flexible-MBS-models_report\example-report\FullFlexibleGearbox - Copy (2).docx") 


    For i = 0 To 12 


    wrdDoc.Application.Selection.Find.Text = arr(i) 
    wrdDoc.Application.Selection.Find.Execute 
    wrdDoc.Application.Selection.InsertBefore arr(i) & "test" 

    Next 
    End Sub 

図のように出力が表示されています。私の意図は、 "arr(i)"を見つけて、その前にarr(i)というテキストを置くことでした。ただ、array (0)と貼り付けているのはarr(i)のテキストです。ここで

Answer 1

あなたのコードは、少し調整しています。次を検索する前に選択をリセットするために見て、「クリーンアップ」もう少し、およびHomeKeyためWithブロックの使用に注意してください：

Dim wrdApp As Word.Application 
Dim wrdDoc As Word.Document 
Dim i As Integer 
Dim arr(12) 

arr(0) = "(249_L), 38,7 %" 
arr(1) = "(248_R), 38,7 %" 
arr(2) = "(249_M), 38,7 " 
arr(3) = "(3560), 38,7 " 
arr(4) = "(3550), 38,7 %" 
arr(5) = "(349_), 38,7 %" 
arr(6) = "(348_), 38,7 %" 
arr(7) = "(451), 38,7 %" 
arr(8) = "(450L), 38,7 " 
arr(9) = "(450R), 38,7 " 
arr(10) = "(151), 38,7 %" 
arr(11) = "(150L), 38,7 %" 
arr(12) = "(150R), 38,7 %" 
Set wrdApp = CreateObject("Word.Application") 
Set wrdDoc = wrdApp.Documents.Open("E:\ShareDrive_Ruehl\full-flexible-MBS-models_report\example-report\FullFlexibleGearbox - Copy (2).docx") 
wrdDoc.Activate 
wrdApp.Selection.HomeKey unit:=wdStory 

For i = 0 To 12 
    With wrdApp.Selection 
     With .Find 
      .ClearFormatting 
      .MatchWildcards = False 
      .MatchWholeWord = False 
      .text = arr(i) 
      .Execute 
     End With 
     .InsertBefore arr(i) & "test" 
     .HomeKey unit:=wdStory 
    End With 
Next 

注：ニーズはおそらくSelectionが、さらなる情報を使用することなく達成することができますそのために必要となるだろう。