помогите написать макрос

loks-po

Есть презентация PowerPoint. Около 200 слайдов, по несколько слов на каждом. Нужно перегнать это в Word сплошняком.
Исходный файл презентации лежит вот здесь: файл
Возможно ли написать соответсвующий макрос? Может кто-нибудь с этим помочь?
Безусловно, в PowerPoint есть возомжность экспорта в ворд, но все предложенные варианты не подходят и вообще, хотелось бы более гибкого контроля над процессом экспорта (пусть сложнее, но я сам выберу, что и куда).

enochka1145

Я наверно, не совсем по делу, но всё-таки. Если тебе нужен только текст, то достаточно выбрать вкладку Outline. Если нужны именно слайды, то первое, что приходит в голову - перегнать в PDF, а если всё-таки надо в Word - то затем в Word.

loks-po

Нужен текст слайдов, т.к. на каждом по одному предложению. Слайды сами не нужны. А вообще задача именно в том, чтобы узнать, как можно програмно перегнать данные между двумя этими программами, не приминительно к данной презентации.

Svyatogor

Это делается примерно так:
test.vbs :

Dim excelApplication

Dim wordApplication 



Function init

  Set wordApplication = CreateObject("Word.Application")

  Set excelApplication = CreateObject("PowerPoint.Application")

  excelApplication.Visible = true

  init = true

End Function



sub finalize

  if wordApplication <> Empty then

    wordApplication.Quit

  end if

  excelApplication.Quit

end sub



Sub writeTable

	wordApplication.Documents.Add

  for x = excelApplication.ActivePresentation.Slides.Count to 1 step -1 

    excelApplication.ActivePresentation.Slides(x).Select

    excelApplication.ActiveWindow.Selection.Copy

    wordApplication.ActiveWindow.Selection.Paste

  next

end sub



Sub process

	Dim ea 

	set ea = CreateObject("Excel.Application")

  fileName = ea.GetOpenFilename

  if fileName=False then

    exit Sub

  end if

  excelApplication.Presentations.Open (fileName)

  writeTable

  fn = ea.GetSaveAsFilename("imd", "Doc (*.doc (*.doc)")

  wordApplication.ActiveDocument.SaveAs fn

	ea.Quit

'  wordApplication.ActiveDocument.SaveAs fn, 2 'it's a cheat :(

End Sub



Sub go

  if not init then

    return

  end if

  call process

  finalize

  call MsgBox("All done", vbExclamation)

End Sub



go