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?