PowerPoint VBA: откройте текстовый файл и покажите каждую строку на отдельном слайде - PullRequest
Новая
       9

PowerPoint VBA: откройте текстовый файл и покажите каждую строку на отдельном слайде

1 голос
/ 25 ноября 2010

Я хочу, чтобы 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, и как лучше всего выполнить оператор if / then?

Ваша помощь будет принята с благодарностью!

1 Ответ

1 голос
/ 28 ноября 2010

Пожалуйста, поймите, я не могу сделать все это для вас, но логика как-то выглядит так: 

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
...