misty247

< 新しい記事

新着記事一覧(全1096件)

過去の記事 >

2011.08.15

点字を書く 40 (出力用テンプレート作成)

(1)

テーマ：点字・点訳(23)

カテゴリ：点字・点訳

　◆ Mission8. 出力用テンプレート作成 ◆

　前回のSourceで一箇所訂正。
Sub AppEvent_DocumentBeforeClose の強引に保存を行う箇所。

 If doc.Path = "" Then doc.SaveAs "C:\tmp\tmp.doc"

　環境変数TMPからパスを読むように。

 


……

'Unckecked使用時は、変更して未保存でも破棄される仕様
If doc.Path = "" Then
sTmpFile = Environ$("TMP")
sTmpFile = sTmpFile & IIf(Right$(sTmpFile, 1) = "\", "", "\") _
& "BrailleDropperTmp.doc"
doc.SaveAs FileName:=sTmpFile, AddToRecentFiles:=False
End If
doc.Saved = True

　気づかないところで勝手に保存されていたら、それはセキュリティホールでもある。SaveAs のあとで、Kill sTmpFile したかったのだが、Wordに使用されていて、削除できなかった。文書を空白にしてから保存すれば、セキュリティホールにはならないが、そこまでする必要もないかと思う。ワーク保存ファイルを残します、とマニュアルで断るだけにしよう。

　「Mission8. 出力用テンプレート」は、とりあえずこれで一段落。
　次は、これまたずっと以前から、どうしようと悩んでいる、宛名管理について。

お気に入りの記事を「いいね！」で応援しよう