Solved

Exclude superscript footnote numbers when changing the font color in a Word document

Posted on 2016-11-19
2
46 Views
Last Modified: 2016-11-22
Hello,

Is there a way to format all content in a Word (2010) document except superscript numbers linked to footnotes?

On occasion I paste articles from the internet directly into Word documents. I use the standard Ctrl+v paste (vs. Special or TextOnly) because the articles commonly have numbered footnotes with the numbering in a different colored superscript font. (By the way, I realize — and it's OK — that the numbers link back to the footnote in the original webpage rather than to somewhere later in the Word doc.)

After pasting an article, I've noticed that I can Select All and change the font, the font size, and all of the paragraph settings without affecting the appearance of the footnote numbers. However, as soon as a make a change in the font color, it changes the color of the footnote numbers (but not the superscript format or link function).

Is there a way I can make the color change to all the normal text without affecting the color of the footnote numbers?

Thanks
0
Comment
Question by:WeThotUWasAToad
2 Comments
 
LVL 50

Accepted Solution

by:
Rgonzo1971 earned 500 total points
ID: 41894615
HI,
pls try these the first to color in red  the selection all except the footnotes placeholders

Sub Macro1()

For Each Char In Selection.Range.Characters
    If Asc(Char) <> 2 Then
        Char.Font.Color = vbRed
    End If
Next
End Sub

Open in new window

the second to change the color of the footnotes placeholders back to automatic
Sub Macro2()
    Set rng = ActiveDocument.Range
    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Replacement.Font.Color = wdColorAutomatic
        .Text = "^f"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Open in new window

Regards
0
 

Author Closing Comment

by:WeThotUWasAToad
ID: 41897957
Thanks for the response.
0

Featured Post

Networking for the Cloud Era

Join Microsoft and Riverbed for a discussion and demonstration of enhancements to SteelConnect:
-One-click orchestration and cloud connectivity in Azure environments
-Tight integration of SD-WAN and WAN optimization capabilities
-Scalability and resiliency equal to a data center

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Microsoft Office Picture Manager is not included in Office 2013. This comes as a shock to users upgrading from earlier versions of Office, such as 2007 and 2010, where Picture Manager was included as a standard application. This article explains how…
Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
The viewer will learn how to use a discrete random variable to simulate the return on an investment over a period of years, create a Monte Carlo simulation using the discrete random variable, and create a graph to represent the possible returns over…
Office 365 is currently available in five editions. Three of them are for business use: Office 365 Business Essentials, Office 365 Business, and Office 365 Business Premium. Two of them are for home/personal use: Office 365 Home and Office 365 Perso…

839 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question