ۥ-1@-KK\ JPZPZZU^UxUxUxUUUUUUU U UUMUUUUUUUUUngWX[[[[[4\,[fU[[&' MAIN 4 \section{}9+ MAIN 4 \footnote{} 9, MAIN 4\begin{itemize}$5 04\item A5 M4\item ^5 j4\item {54 \end{itemize}5;> MAIN 4 \begin{quote}"5.5:4  D \end{quote}S5_;i MAIN 4\begin{enumerate}(5 84\item K5 [4\item n5 ~4\item 54\end{enumerate}5;> MAIN 4{\bf }9' MAIN 4{\it \/}9) MAIN 4 $ $9' MAIN 4$_{}$9& MAIN 4   \section*{}#9/ MAIN ?= This block prompts for name of existing WinWord file, and,]* dumps its contents into SOCK2DE.DOC. ,-*Nofilea$ dName der zu konvertierenden WinWord-Datei eingeben. Wenn neue Datei erzeugt werden soll, Abbrechen.Konversion/Neue LaTeX-Datei.DOC Bq a$\G l*DoneFile {Nofile8Err f %error trap for pressing Cancel button * DoneNofile   -Err  DoneNofile Err :e Neue LaTeX-Datei erstellen?WW2TOLTX!3e *bye K*NewFile YDoneFiled7f[ $ \$     7[ & \&    R 7f[ % \%     7[ # \#    R 7f[ _ \_     7[ { \{    R 7f[ } \}      NewFileSQ This block inserts STARTING AND ENDING MATTER for TeX file, new or converted. ?I= If the settings here are not to your taste, change them. G5E| Standard,4'\documentstyle[a4,german,11pt]{article}5-4\begin{document}J5ZHh5x| Standard554\end{document};DB This block changes Word-style SECTION HEADINGS into TeX format8A;e "Kapitelberschriften konvertieren?WW2TOLTX! }e  *EndSectionHeadings,-*EndSectionHeadingsG  Fixheads3   Gliederung 32@ Z     + ! Until end of doc encountered  9  V    5 +  9:  4\subsubsection{W  X l  4}{  >  | Standard  5 * Fixheads3 " Fixheads2 G   Gliederung 227 Z     + ! Until end of doc encountered  9  V    5 "  91  4 \subsection{K  X `  4}o  >{  | Standard  5 * Fixheads2 " Fixheads1 G   Gliederung 12+ Z     + ! Until end of doc encountered  9  V   5  9% 4 \section{< X Q 4}` | Standard > 5 * Fixheads1"EndSectionHeadingsXV The following puts the text from Word styles "title" and "author" into TeX TITLE. 6K9t ,Titel und Autor aus WinWord-Text bernehmen?WW2TOLTX! t  *EndTitleAuthorG TitelZ  ;VS5c; p4\title{X94}| StandardG Autor)Z  U<a= nFV5; 4\author{X94}| Standard+>65 F4\date{}Z5j4 \maketitle55EndTitleAuthorGE This block changes Word-style "quote" into LaTeX quotation format>d Druckformat Zitat konvertieren?WW2TOLTX! ?d N * EndQuotationsckG { Fixquotes,-* EndQuotations Zitat2Z     +T! Until end of doc encountered V 5 4 \begin{quote} 5 4{\small  X  4}  9+ ? :M 5^ 4 \end{quote}w 5 5 * Fixquotes" EndQuotationsGE This block changes Word-style "reference" into a simple home-made  LaTeX REFERENCE format. *A-c "Literatur-Referenzen konvertieren?WW2TOLTX! oc ~ * EndReferencesH;54\end{description}54\end{flushleft}G) Z  Literatur^a  fQiO Note in the above line that the cue here is a heading "Literatur". Could be97 changed to "Bibliography" or whatever if you like.    referenceHCF important that references are in a WinWord style named "reference"Z   V54\section*{References}5!514\begin{flushleft}O5'_4"\begin{description}\itemsep -0.1cm5 4\item[XEPZ  1   +It is crucial to this routine that year of -;+ publication follows the author's name8i6 directly. If, instead, the title of the book or42 article come next, you'll have to change the20 " 1" in the above Find field, perhaps to a5 3 quote mark or unspecified italic character. @VX4]1 g Changerefst  referenceZ   +! Until end of doc encountered V8 4\item[L Xa E#n Z  1   V  4]1* Changerefs"G  reference4^ Standard4m[        EndReferencesPN This block reformats FOOTNOTES, which I found quite tricky. Others may beNNL able to find a more elegant solution. NOTE THAT THIS WILL WORK ONLY FOR  ONE-PARAGRAPH FOOTNOTES. 5g Funoten konvertieren?WW2TOLTX! g  * EndFootnotes"G2StartFootnotes%C\ f Go to footnote marker"xf Open footnotes window2: %Step over the current footnote symbolF 9   A$ r. N A$E; N#   1ANSI 13 is carriage return. Show's it's last note  * EndFootnotes  W f  4 \footnote{ X!4}!*StartFootnotes%! EndFootnotes4!fG!.J!, This block changes ITALICS to TeX codes.y!:|!a Format Kursiv konvertieren?WW2TOLTX! !a ! * EndItalics!!G! StartItalics ! 8."! " $ % 2  ="' & 3 ( #  "+ - #,-* EndItalics26#Z     +#! Until end of doc encountered#*#V #4{\it $X$4\/})$* StartItalics<$" B$ EndItalicsO$/R$- This block changes BOLDFACE to TeX codes.$8$a Format Fett konvertieren?WW2TOLTX! $a $ *EndBold$$G $ StartBold % 8/%! " $ % 2  =%' & 3 ( #  &+ - &,-*EndBold24&Z     +&! Until end of doc encountered&)&V &4{\bf 'X'4} #'* StartBold3'" 9'EndBoldC'IF'G This block replaces QUOTATION marks and dashes with TeX versions. 'R'b 3Anfhrungszeichen und Gedankenstriche konvertieren?WW2TOLTX! 'b ' *EndPunctuation ((G#(6<([  `    ( 6([  '    &) 7:)[  ``    ) 1)[  ''   *  <;*[  j"   *  0*[  ,   %+  8F+[  ---    + :+[   ---    6, 7J,[  --    , ,EndPunctuation,G,E This section searches for and replaces selected special characters&-F)-p 'Umlaute und Sonderzeichen konvertieren?WW2TOLTX! p-p - *EndSpecialChars--G-9-[  \ae     5. 5I.[  \j"{a}  .   5.[  \j"{o}  2/   5m/[  \j"{u}  /   5/[  \j"{A}  V0   50[  \j"{O}  0   5#1[  \j"{U}  z1   &1[  \ss{}  1   682[  \j"{\i}  2   :2[  \'{e}    :3 :N3[  \`{a}    3 23[  \pounds   54  7V4[  \S    4 34[  $\ldots$   ;5  3\5[ j -   (5   protected hyphen 25[ j    'U6   syllable hyphen 6EndSpecialChars6J6H This block replaces WinWord (3-point) SUBSCRIPTS with LaTeX commands6;6m Tiefstellungen konvertieren?WW2TOLTX! '7m 67 * EndSubscriptsK7S7Gc7StartSubscripts:u7! " $ % 2  B7' & 3 ( # + R8-3 pt- 2j8Z     +8! Until end of doc encountered99V-94$_{=9XQ94}$`9*StartSubscriptsv9"|9 EndSubscripts9L9J This block replaces WinWord (3-point) SUPERSCRIPTS with LaTeX commands9;9m Hochstellungen konvertieren?WW2TOLTX! :m *: *EndSuperscriptsA:I:GY:StartSuperscripts:m:! " $ % 2  B:' & 3 ( # + J;3 pt- 2a;Z     +;! Until end of doc encountered; <V$<4$^{4<XH<4}$W<*StartSuperscriptso<"u<EndSuperscripts<.<, Standardize font and paragraph formatting<!<| Standard~ ,=!  Courier New(>=  0 cm 0 cm 2= 0 cm 0 ze 0 ze 1 ze=G= >| StandardE> _>w!  Courier New"  >G>A>? The following ensures DOUBLE PARA BREAKS between paragraphs1>/ and also deletes some unwanted para markers?!?G1?< ??:X?[ ^a ^a^a    ? 6?[ ^a^a^a^a ^a^a   C@  4d@[ ^a^a^a ^a^a   @  4@[ ^a^a^a ^a^a   QA  HrA[ begin{quote}^a^a begin{quote}^a   A  > B[  ^a^a\end{qu  ^a\end{qu   }B  6B[ ^a\item \item   C  'CG>7C[  ^a^a\author  ^a\author   C  C EndLinebreaksC C End of substantive sectionsCCbye(DFertig und BeendetWW2TOLTX@2D MAINK b$ (Dateiname der zu speichernden TEX-Datei?WW2TOLTX.TEX+Z/b$. b$ b$.TEXH b$ *( Search for and replace broken dashes2Msg$ (Verstmmelte Bindestriche korrigieren? ,Msg$ Msg$Wenn 'OK', dann auch 'OK' 8AMsg$ Msg$&bei Anfrage ob Konversion von Nur Text%yd Msg$ WW2TOLTX ! d  * EndFixDashes  q b$G8FixBrokenDashes1J[ -^a -%^a     H b$ bSaveMsg$ Datei b$D ist jetzt als LaTeX gespeichert. Nicht in WinWord-Format speichern!ZSaveMsg$WW2TOLTX@{ EndFixDashes MAIN R P This block prompts for name of existing TeX file, and dumps it into BLANK.TEX` h,-*Nofile#~Msg$ Dateiname der TEX-Datei? LMsg$ Msg$:Nach Anfrage, ob Konversion von 'Nur Text': OK besttigen.Ca$ Msg$#Existierende LaTeX-Datei bearbeiten .TEX 4q a$NG ^*DoneFile mNofilevErr f  Err  * DoneNoFile   -Err  DoneNoFile DoneFile MAIN G?= This macro replaces straight quotes (both single and double)A]? with left and right curly quotes. It may be used on a WinWord-+ document prior to conversion into LaTeX. 8[  '      = 6Q[ '      9[  j"     :  =[[ j"      :[ ^a ^a    N :b[ ^a ^a     :[ ^t ^t    T :h[ ^t ^t     8[ ( (    X 8l[ ( (     8[      Z 8n[        MAIN G/3 FirstLoop Loops around lists in document_  BulletList$ This stylename must be applied9 3to items in a bulleted list for the macro to work. Z   (.!If end of doc not encounterede9s54\begin{itemize}5.: #Selects bullet character and tab....4\item  and overwrites with LaTeX code5+ SecondLoop #Loops around items in a single list-] %Look for next "BulletList" paragraph.2 ,The first time round this will be the second6 0such -- I'm assuming any list will have at least  two elements.90: ?4\item *RF "Take a peek at the next paragraph:4 .Is it also in BulletList style? If so, it will. (be part of the same list. If not, we'll/ )look for the beginning of the next list. D  BulletList5 * SecondLoopG M 4 \end{itemize}h 5y 5 * FirstLoop" MAIN G/4 FirstLoop Loops around lists in document` NumList$ This stylename must be applied9 3to items in a numbered list for the macro to work. Z   (!If end of doc not encounteredD9P5\4\begin{enumerate}x5-: "Selects numeral, period and tab....4\item  and overwrites with LaTeX code5 SecondLoop #Loops around items in a single list*) "Look for next "NumList" paragraph.2Y ,The first time round this will be the second6 0such -- I'm assuming any list will have at least  two elements.9: 4\item * F "Take a peek at the next paragraph:18 +Is it also in NumList style? If so, it will.h (be part of the same list. If not, we'll/ )look for the beginning of the next list. D NumList * SecondLoop  4\end{enumerate} 5& 53 * FirstLoopDL"R[ MAIN 4$^{}$9* MAIN G?= This macro replaces straight quotes (both single and double)H]F with left and right curly GERMAN quotes. It may be used on a WinWord-+ document prior to conversion into LaTeX. .[  '     7  ,X[ '      .[ ( (   7  .X[       0[ ^t ^t   ;  0\[ ^a ^a     9[  j"     I  3j[ j"      .[ ( (   N  .o[       0[ ^t ^t   R  0s[ ^a ^a       iten .TEX 4q a$NG ^*DoneFile mNofilevErr f,.Z\X5Z5w8y8d:f:>>BBGG=G?GKKKKD(.\Z5y8f:>BG?GKKK!NumListLiteraturstelle BulletListrefhead referenceZitatTitelAutor    DD D D B ) / p# / p# / p# u$S2<p# $S<o# &Sxo# &STo#   n R 7   p#p#r<<nxnxSxX7 7hxv V h P  '-0R -0&J&JK&J K&K'MTimes New Roman Symbol&Arial "System 1Terminal"Small FontsSectionFootnoteItemizeQuote EnumerateBoldfaceItalicsMathmode Subscripting NonNumHeadWinWordToLaTeX SaveAsTextOpenTexSuperscriptingNC                   3g pHy368>=hAEEJ$J111122&262G2\2o22222222$Section,Fgt LaTeX-Code fr Abschnittberschrift einFootnote&Fgt leeren LaTeX-Code fr Funote einItemize8Fgt LaTeX-Code fr itemize-Liste ein (3 leere Elemente)Quote(Fgt LaTeX-Code fr zitierten Absatz ein Enumerate;Fgt LaTeX-Code fr numerierte Liste ein (3 leere Elemente)BoldfaceFgt LaTeX-Code fr Fett einItalicsFgt LaTeX-Code fr kursiv einMathmode&Fgt LaTeX-Code fr Formelumgebung ein Subscripting$Fgt LaTeX-Code fr Tiefstellung ein NonNumHead9Fgt LaTeX-Code fr unnumerierte Abschnittberschrift einWinWordToLaTeX7Haupt-Makro zur Konvertierung von WinWord nach LaTeX. SaveAsTextSpeichert als NurTextOpenTex,ffnet existierende TEX-Datei zum Bearbeiten WinQuotesGWandelt einfache Anfhrungszeichen in gekrmmte um (amerikanische Form) Bullets2LTX'Konvertiert punktierte Liste nach LaTeXEnum2LTX'Konvertiert numerierte Liste nach LaTeXSuperscripting$Fgt LaTeX-Code fr Hochstellung ein WinQuotesDEBWandelt einfache Anfhrungszeichen in gekrmmte um (deutsche Form)"h8مtEv ,Allin Cottrell W. Hennings