Domino with MS Word アプリ

新・ドミノ懇談室

ここのいちばん上にある、wordをNotesからキックする方法に返答しようと思ったら、入れない。よくみると、11/30で書き込みがストップしている。どうやらダメになって放置されている模様。

せっかくなので、僕が昔会社で使ってたアプリのスクリプトを載せておきます。Webブラウザ→domino→word→プリンタというヘンなアプリなんですが、このdominoの部分で動くWebエージェント。

要件は、wordがインストールされたwindowsなdominoサーバにc:\tempフォルダを作っておくこと。あとはプリンタの設定ぐらいでしょうか。Webからクリックすると、エージェントが走って、Notesの文書に添付された申請書.docをサーバのローカルに保存して開き、今日の日付を入れて、プリンタで印刷するという、非常にまわりくどい(笑)dominoなアプリです。

ところで、このブログnsfl10nは"こよ愛"さんみたいな頻繁な更新はないので、はてなあんてなにでも登録して、更新時にチェック頂ければと思います。

Sub Initialize
      On Error Goto errproc

      Dim s As New NotesSession
      Dim db As NotesDatabase
      Dim handleV As Variant
      Dim filename As String
      Dim i As Integer

      Dim reqdate As String
      Dim status As Variant

      Dim doc As notesdocument
      Dim rtitem As Variant
      Dim object As NotesEmbeddedObject

      status = False

      Set doc = s.DOCUMENTCONTEXT
      Set db=s.CurrentDatabase

      Dim printType As String
      printType = doc.PrintType(0)
      'Print printType & "<br>"
      Select Case PrintType
      Case "W":
            filename = "forWeekdays.doc"
      Case "S":
            filename = "forWeekdays.doc"
      Case "H":
            filename = "forHolidays.doc"
      Case "T":
            filename = "forTest.doc"
      Case Else
            Goto endproc
      End Select

      Set object = doc.GetAttachment( filename )
      Call object.ExtractFile( "c:\temp\" & filename)

      Dim wdApp As Variant'アプリ
      Dim wdDoc As Variant'文書

      Set wdApp = CreateObject ( "Word.Application")

      wdApp.documents.open "c:\temp\" & filename

      Set wdDoc = wdApp.documents(1)

      Select Case PrintType
      Case "W":
            reqdate = Format$(Today, "ggge.M.d.(aaa)")
      Case Else
            reqdate = Format$(doc.RequestDate(0), "ggge.M.d.(aaa)")
      End Select
      For i = 1 To 3
            wdDoc.FormFields("Text" & Cstr(i)).Result = reqdate
      Next

      wdDoc.PrintOut

      status = True

'     If PrintType <> "N" Then
'           wdDoc.PrintOut
'     End If

errproc:
      wdDoc.close
      wdApp.quit

      Set wddoc = Nothing
      Set wdApp = Nothing

endproc:

      If status = False Then
            Print "............" & "<br>"
      End If

      Print PrintType & "<br>"
      Print Format$(doc.RequestDate(0), "ggge.M.d.(aaa)")&"<br>"
      Exit Sub

End Sub

This LotusScript was converted to HTML using the ls2html routine,
provided by Julian Robichaux at nsftools.com.