summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/apa6/pseudoTeX/TeX2WordForapa6.bas
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-06-26 22:53:03 +0000
committerKarl Berry <karl@freefriends.org>2013-06-26 22:53:03 +0000
commit75b22f44dee84203dad336787614dcb7203ad426 (patch)
tree3c841a2e69fa03acfbbf0ea1c2739c4177a3d7a8 /Master/texmf-dist/doc/latex/apa6/pseudoTeX/TeX2WordForapa6.bas
parent1d343ed6417b6271160ed148f3fd6a00e07104ce (diff)
apa6 (26jun13)
git-svn-id: svn://tug.org/texlive/trunk@30957 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/apa6/pseudoTeX/TeX2WordForapa6.bas')
-rw-r--r--Master/texmf-dist/doc/latex/apa6/pseudoTeX/TeX2WordForapa6.bas15
1 files changed, 15 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/apa6/pseudoTeX/TeX2WordForapa6.bas b/Master/texmf-dist/doc/latex/apa6/pseudoTeX/TeX2WordForapa6.bas
index 23f0ec8df94..bc7e0829f81 100644
--- a/Master/texmf-dist/doc/latex/apa6/pseudoTeX/TeX2WordForapa6.bas
+++ b/Master/texmf-dist/doc/latex/apa6/pseudoTeX/TeX2WordForapa6.bas
@@ -174,6 +174,21 @@ Sub FormatTex2WordDocument()
End With
Selection.Find.Execute Replace:=wdReplaceAll
+ ' remove extra spaces at the end of paragraphs
+ With Selection.Find
+ .Text = " ^p"
+ .Replacement.Text = "^p"
+ .Forward = True
+ .Wrap = wdFindContinue
+ .Format = False
+ .MatchCase = False
+ .MatchWholeWord = False
+ .MatchWildcards = False
+ .MatchSoundsLike = False
+ .MatchAllWordForms = False
+ End With
+ Selection.Find.Execute Replace:=wdReplaceAll
+
' delete the instructions
Selection.HomeKey Unit:=wdStory