From 8c83a06dcc2a6aec738834159b5cc459e6fe5c0b Mon Sep 17 00:00:00 2001
From: Chris Elliott <biol75@york.ac.uk>
Date: Fri, 20 Feb 2009 12:47:48 +0000
Subject: [PATCH] use correct form of rtf for making PDF

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/branches/WX_2_8_BRANCH@59057 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
---
 build/script/word_macro.txt | 38 +++++++++++++++++++++----------------
 1 file changed, 22 insertions(+), 16 deletions(-)

diff --git a/build/script/word_macro.txt b/build/script/word_macro.txt
index 802253eb8d..bc8741895a 100644
--- a/build/script/word_macro.txt
+++ b/build/script/word_macro.txt
@@ -1,20 +1,6 @@
 ' This is saved as word macros; opens a pdf and writes out a ps file using
-' laserjet ps driver
+' Apple LaserWriter ps driver
 ' Note that the output dir and hardcoded printer must exist
-
-Sub wx28_ps()
-    swxWIN = Environ("WXWIN")
-    do_ps swxWIN & "\docs\pdf\", "wx"
-    do_ps swxWIN & "\contrib\docs\latex\svg", "svg"
-    do_ps swxWIN & "\contrib\docs\latex\ogl", "ogl"
-    do_ps swxWIN & "\contrib\docs\latex\mmedia", "mmedia"
-    do_ps swxWIN & "\contrib\docs\latex\gizmos", "gizmos"
-    do_ps swxWIN & "\contrib\docs\latex\fl", "fl"
-    do_ps swxWIN & "\utils\tex2rtf\docs", "tex2rtf"
-
-    bye_bye
-End Sub
-
 Sub do_ps(mydir, myfile)
 ' wx_ps Macro
 ' Macro recorded 04/05/2005 by cje2
@@ -28,7 +14,9 @@ Sub do_ps(mydir, myfile)
         Format:=wdOpenFormatAuto
     ActivePrinter = "Apple LaserWriter"
     ActiveDocument.Fields.Update
-
+ '   For Each afield In ActiveDocument.Fields
+  '      afield.Update
+  '  Next afield
     Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
         wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
         Collate:=True, Background:=False, PrintToFile:=True, PrintZoomColumn:=0, _
@@ -36,6 +24,24 @@ Sub do_ps(mydir, myfile)
         OutputFileName:=sDAILYIN & myfile & ".ps", Append:=False
     ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
     ActivePrinter = sPrinter
+   End Sub
+
+Sub bye_bye()
+
+Application.Quit SaveChanges:=wdDoNotSaveChanges
+    
 End Sub
 
 
+Sub wx28_ps()
+    swxWIN = Environ("WXWIN")
+    do_ps swxWIN & "\docs\pdf", "wx"
+    do_ps swxWIN & "\docs\pdf", "svg"
+    do_ps swxWIN & "\docs\pdf", "ogl"
+    do_ps swxWIN & "\docs\pdf", "mmedia"
+    do_ps swxWIN & "\docs\pdf", "gizmos"
+    do_ps swxWIN & "\docs\pdf", "fl"
+    do_ps swxWIN & "\utils\tex2rtf\docs", "tex2rtf_rtf"
+
+    bye_bye
+End Sub