emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Org + MS DOC


From: Julian M. Burgos
Subject: Re: [O] Org + MS DOC
Date: Thu, 04 Feb 2016 21:28:10 +0000
User-agent: mu4e 0.9.16; emacs 24.4.1

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: address@hidden



reply via email to

[Prev in Thread] Current Thread [Next in Thread]