diff options
author | Karl Berry <karl@freefriends.org> | 2013-06-26 22:53:03 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-06-26 22:53:03 +0000 |
commit | 75b22f44dee84203dad336787614dcb7203ad426 (patch) | |
tree | 3c841a2e69fa03acfbbf0ea1c2739c4177a3d7a8 /Master/texmf-dist/doc/latex/apa6/pseudoTeX | |
parent | 1d343ed6417b6271160ed148f3fd6a00e07104ce (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')
-rw-r--r-- | Master/texmf-dist/doc/latex/apa6/pseudoTeX/TeX2WordForapa6.bas | 15 |
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 |