The following macro should paste the contents of the clipboard in the
paragraph style at the cursor with the addition of the smallcaps formatting
parameter:
Sub PasteSmCaps()
Dim sFont As Boolean
On Error GoTo oops
With Selection
sFont = .Font.SmallCaps
.Font.SmallCaps = True
.PasteSpecial _
DataType:=wdPasteText, _
Placement:=wdInLine
.Font.SmallCaps = sFont
End With
End
oops:
Beep
End Sub
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Penny wrote:
> Scientific Journals and Legal Citations sometimes have styles that
> have author names or legal cases in Caps and Small Caps in text and
> in references. If I copy and paste without formatting, the small caps
> become All caps, but without the All Cap formatting that would allow
> me to search and replace. If I Select All and change the font, the
> small caps become All Caps, again without the designated formatting.
> All the Knowledge Base things I find say something like "Reselect the
> text and mark it for small caps," which requires FINDING them all
> manually, and selecting and changing and can easily take more than an
> hour for which I'm not paid.
>
> Any suggestions for keeping small caps as small caps when changing
> styles, pasting, etc.? I'm using Word 2003; Did Word 2007 correct this
> problem? Anything else I can do?