codes and misc

[Kathryn A. DeArruda-Lenihan]

I use Word 2000 and XP as a front end before bringing files into a Desktop
Publishing app. I do allot of pretagging in Word but I am having trouble
with certain things. For instance, Word small caps do not not translate so I
was wondering if someone knows how to search for them and replace them with
<sc> in the beg and <sc/> at the end.

The other one is tricky. The DTP app does not like automatic endnotes. Is it
possible to have them converted to plain text while keeping the formatting?

Thanks so much

 

[Kathryn A. DeArruda-Lenihan]

The code works great! Thank you. Another question, is there a way to keep
the formatting of the endnotes (ie italics)?

Thanks

From: "Doug Robbins - Word MVP" <[email protected]>
Newsgroups: microsoft.public.word.vba.beginners
Date: Sat, 30 Aug 2003 17:54:38 +1000
Subject: Re: codes and misc

Hi Kathryn,

For the Endnote issue, use the following:

' Macro created 29/09/99 by Doug Robbins to replace endnotes with textnotes
at end of document
' and to replace the endnote reference in the body of the document with a
superscript number.
'
Dim aendnote As Endnote
For Each aendnote In ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index & vbTab &
aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Next aendnote
For Each aendnote In ActiveDocument.Endnotes
aendnote.Reference.Delete
Next aendnote
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
End With
With Selection.Find
.Text = "(a)([0-9]{1,})(a)"
.Replacement.Text = "\2"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

I use Word 2000 and XP as a front end before bringing files into a Desktop
Publishing app. I do allot of pretagging in Word but I am having trouble
with certain things. For instance, Word small caps do not not translate so I
was wondering if someone knows how to search for them and replace them with
<sc> in the beg and <sc/> at the end.

The other one is tricky. The DTP app does not like automatic endnotes. Is it
possible to have them converted to plain text while keeping the formatting?

Thanks so much