]> git.saurik.com Git - wxWidgets.git/blame_incremental - build/script/word_macro.txt
inside <wx-data> we need to use instead of /
[wxWidgets.git] / build / script / word_macro.txt
... / ...
CommitLineData
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
5Sub 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
11End Sub
12
13Sub 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
33Sub bye_bye()
34
35Application.Quit SaveChanges:=wdDoNotSaveChanges
36
37End Sub