PowerPoint VBA：テキストファイルを開いて別のスライドに各行を表示

Question

PowerPointで外部テキストファイルを開き、このファイルの1行目をプレゼンテーションのスライド1、スライド2の2行目などに表示します。

スライドの数がテキストファイルの行数より大きい場合、私は再び1行目から開始したいと思います。ここで

は、私がこれまで（混合コードと擬似コード）持っているものです。

Dim FileName, FSO, MyFile 
FileName = "C:\test.txt" 
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set MyFile = FSO.OpenTextFile(FileName, 1) 

For i = 1 To ActivePresentation.Slides.Count 

    If LINE(i) EXISTS IN TEXT FILE THEN 

    ActivePresentation.Slides(i).Shapes("myshape").TextFrame.TextRange.Text = LINE(i) 

    ELSE START AT LINE(1) AGAIN 

    End If 

Next 

MyFile.Close 

にはどうすれiを使用してテキストファイルの行を参照するか、そして何があればを行うための最善の方法だろう/ then-statement？

ご協力いただき誠にありがとうございます。

Answer 1

私はあなたのために全体のことを行うことはできませんが、ロジックは何とかこのようになりますので、ご了承ください。

MoreSlides = true 
While moreSlides 

     Open "mytextfile.txt" For Input As 1 
     While Not EOF(1) and moreSlides 
      Line Input #1, myline 

      ' here comes the part inserting the line in the next slide 
      ' You set moreSlides to false if you reach the end 

     Wend 
     close #1 

Wend