Re: Org + MS DOC

["Julian M. Burgos" <julian@hafro.is>]

The advantage of exporting via Pandoc is the possibility of including
bibliographic citations.  Do you know if it is possible to do this via
ODT?

Julian

Ken Mankoff writes:

> Hi,
>
> There is occasional discussion on the list (or SE or Reddit) about how to best work with Word documents. In the past I've suggested Org -> Pandoc -> DOCX because that worked best for me when producing documents with equations, figures and tables. It didn't work great, but it worked best.
>
> I've recently found a new workflow that seems much better, and wanted to let others know about it. It removes the need for Pandoc and only uses Org and LibreOffice.
>
> 1) Export to DOC (not DOCX) via ODT. Inline \(math\) in DOCX still looks pretty bad, but is fine in DOC.
>
> (require 'ox-odt)
> (setq org-odt-preferred-output-format "doc")
> (setq org-odt-convert-processes '(("LibreOffice" "/Applications/LibreOffice.app/Contents/MacOS/soffice --headless --convert-to %f%x %i"))))
>
> 2) Run the following LibreOffice Macro to clean things up. I've assigned this to a toolbar button to make it easy to access. Add strings you want to disappear to "mTeXStringsNO" and pairs of strings you want converted to the "mTeXStringsCNV" arrays.
>
> 3) Email to Word Users. I always email the PDF copy to so they can see the (psuedo)canonical version of the document.
>
> I hope this is helpful to some of you,
>
>   -k.
>
>
>
>
> Sub ReplaceTeXStrings
>   Dim mTeXStringsNO(99) As String
>   Dim mTeXStringsCNVfrom(99) As String
>   Dim mTexStringsCNVto(99) As String
>   Dim n As Long
>   Dim oDocument As Object
>   Dim oReplace As Object
>
>   mTeXStringsNO() = Array("\(", "\)", "\ref", "\mathrm", _
>   		"\begin{equation}", "\end{equation}", "\left", "\right", _
>   		"\singlespacing", "\doublespacing")
>   		
>   mTeXStringsCNV() = Array("\sigma","σ", "\rho","ρ", "\sum","∑", _
>    "\phi","ɸ", "\partial","∂", "^{th}","th", "^{{th}}","th", _
>    "^{-1}","-1", "^{-2}","-2")
>    		
>   oDocument = ThisComponent
>   oReplace = oDocument.createReplaceDescriptor
>   For n = lbound(mTeXStringsNO()) To ubound(mTeXStringsNO())
>     oReplace.SearchString = mTexStringsNO(n)
>     oReplace.ReplaceString = ""
>     oDocument.replaceAll(oReplace)
>   Next n
>   For n = lbound(mTeXStringsCNV()) To ubound(mTeXStringsCNV()) Step 2
>     oReplace.SearchString = mTexStringsCNV(n)
>     oReplace.ReplaceString = mTexStringsCNV(n+1)
>     oDocument.replaceAll(oReplace)
>   Next n
>   End Sub


-- 
Julian Mariano Burgos, PhD
Hafrannsóknastofnun/Marine Research Institute
Skúlagata 4, 121 Reykjavík, Iceland
Sími/Telephone : +354-5752037
Bréfsími/Telefax:  +354-5752001
Netfang/Email: julian@hafro.is