build/script/word_macro.txt

   1 ' This is saved as word macros; opens a pdf and writes out a ps file using
   2 ' laserjet ps driver
   3 ' Note that the output dir and hardcoded printer must exist
   4
   5 Sub wx_ps()
   6     swxWIN = Environ("WXWIN")
   7     do_ps swxWIN & "\docs\pdf\", "wx"
   8     do_ps swxWIN & "\utils\tex2rtf\docs", "tex2rtf"
   9
  10     bye_bye
  11 End Sub
  12
  13 Sub do_ps(mydir, myfile)
  14 ' wx_ps Macro
  15 ' Macro recorded 04/05/2005 by cje2
  16 '
  17     sDAILYIN = Environ("DAILY") & "\in\"
  18     ChangeFileOpenDirectory mydir
  19     Documents.Open FileName:=myfile & ".rtf", ConfirmConversions:=False, ReadOnly:= _
  20         False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
  21         "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
  22         Format:=wdOpenFormatAuto
  23         ActivePrinter = "\\biolpc22\laserjet"
  24     ActiveDocument.Fields.Update
  25     Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
  26         wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
  27         Collate:=True, Background:=False, PrintToFile:=True, PrintZoomColumn:=0, _
  28         PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0, _
  29         OutputFileName:=sDAILYIN & myfile & ".ps", Append:=False
  30     ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
  31    End Sub
  32
  33 Sub bye_bye()
  34
  35 Application.Quit SaveChanges:=wdDoNotSaveChanges
  36
  37 End Sub