PowerPointで発表の原稿を作る

ぱわぽいとではスライドの画面としゃべる内容をずらずらと連ねて印刷できません。くそですね。てことで、ちょとスクリプト(VBA はすくりぷといわんか。)かいてみた。

名前を付けて保存で JPEG で保存する。と、 $(ファイル名除く.ppt)/スライド$(番号).JPG が生成される。それと、次のスクリプトで・・・以下のちほど。

(汎用的じゃなくてスマソ。ちょちょちょと書き換えるだけで使いまわせる。)

 Public Sub Output_Note_HTML()
  Dim NoteText$, i&, s$, Slides_Title$
  Dim Notes_HTML_Name$, Notes_Style_Name$
  Notes_HTML_Name$ = Replace$(ActivePresentation.FullName, ".ppt", "",
compare:=vbTextCompare)
  Notes_HTML_Name$ = Notes_HTML_Name$ & "-notes.ja.html"
  Notes_Style_Name$ = Replace$(ActivePresentation.Name, ".ppt", "",
compare:=vbTextCompare) & "-notes-style.ja.css"
  Const Slide_Image_Directory$ = "slide.ja/"
  Slides_Title$ = "プロトプラストの単離と融合"
  s$ = "<!DOCTYPE html PUBLIC ""-//W3C//DTD HTML 4.01//EN""><head><title>"
& Slides_Title$ & "</title><link rel=""stylesheet"" type=""text/css""
href=""" & Notes_Style_Name$ & """></head><body>" & vbCrLf
  For i& = 1 To ActivePresentation.Slides.Count
    s$ = s$ & "<div id=""slide-" & i& & """><h1>" & i& & "</h1>" & vbCrLf
    s$ = s$ & "<img src=""" & Slide_Image_Directory$ & "スライド" & i& &
".JPG"" alt="""">" & vbCrLf
    NoteText$ =
ActivePresentation.Slides(i&).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text
    If Len(NoteText$) Then
      s$ = s$ & "<p>" & Replace(NoteText$, vbCrLf, "</p><p>") & "</p>" &
vbCrLf
    End If
    s$ = s$ & "</div>" & vbCrLf
  Next i&
  s$ = Replace$(s$, "<p></p>", "") & "</body></html>"
  
  Dim FNUM&: FNUM& = FreeFile
  Open Notes_HTML_Name$ For Binary Access Write As FNUM&
    Put #FNUM&, , s$
  Close FNUM&
 End Sub

プロトプラスト発表 http://suika.fam.cx/chuubu/2001/2-7/kadaiken/protoplast/ 用に作った奴です。学校の計算機でこれかいてたら奇人のように思われました:)

PowerPoint のファイル。。 http://suika.fam.cx/chuubu/2001/2-7/kadaiken/protoplast/slide.ja.ppt (もしかしたらこれに入っている script の方が上のより新しいかもしれん。昔のことなんでもう覚えてない。)

出来上がり例。 http://suika.fam.cx/chuubu/2001/2-7/kadaiken/protoplast/slide-note.ja.html あわせてつかうスタイルシート (CSS2) http://suika.fam.cx/chuubu/2001/2-7/kadaiken/protoplast/slide-note-style.ja.css

スタイルシートは WinIE5 で印刷することを想定して、あんまり凝ったことはしてない。 WinIE5 は糞なので写真の途中で改頁したりするけど、気にしないことにした。 (たまたまどまんなかとか変なところでは切れなかったし。)

License

上記 code およびスタイルシート https://suika.suikawiki.org/chuubu/2001/2-7/kadaiken/protoplast/slide-note-style.ja.css は、 GNU GPL (Version 2 またはそれ以降) に基づき利用出来ます。

但し、この code を単にスライドのファイル中に埋め込むことは、 GPL の規定する link とはみなしません。単なる同梱状態とみなします。

(参考: この規定により、スライドのファイルの他の部分に GPL と互換性の無い license を設定出来ます。)

(備考: この規定は、この code への修正や追加に対して GPL と互換性の無い license の元におくことを認めるものではありません。)

なお、派生物はこの追加規定を取り除き、 GNU GPL (Version 2 またはそれ以降の版) のみを適用することとしても構いません。

参考: この code により生成されたデータの扱いはその生成内容の著作権者により、ここでの規定は影響しません。

PowerPointで発表の原稿を作る

License

メモ