Change "fill" text colour to no colour

[darkmaster006]

Hello! So I've been given various Word files which have, in all the document, the fill "shading" paragraph colour, in white. What I want to do is place a VBA Macro in AutoOpen so that, when I open a document, the fill is changed to no colour. So far, I've come up with a method that goes about it by selecting all text and then changing it, but I'm sure there must be a better way of doing this for all the document. What I have is:

    Selection.WholeStory
    Selection.Shading.Texture = wdTextureNone
    Selection.Shading.ForegroundPatternColor = wdColorAutomatic
    Selection.Shading.BackgroundPatternColor = wdColorAutomatic

Maybe something similar to this (change font colour to black) could be done?

' Change all text font to black colour
    ActiveDocument.Content.Font.Color = wdColorBlack

Thank you for any help.

[vivka]

Hello, darkmaster006! My limited knowledge of VBA says that your code is doing exactly what is expected:
selection.WholeStory
selection.Shading.BackgroundPatternColor = wdColorAutomatic

Maybe, this forum's gurus will have different opinions.

[Italophile]

You can avoid selecting the text by using the following:

    With ActiveDocument.Content.ParagraphFormat
        .Shading.Texture = wdTextureNone
        .Shading.ForegroundPatternColor = wdColorAutomatic
        .Shading.BackgroundPatternColor = wdColorAutomatic
    End With

[darkmaster006]

Thank you both!

Originally Posted by Italophile

You can avoid selecting the text by using the following:

    With ActiveDocument.Content.ParagraphFormat
        .Shading.Texture = wdTextureNone
        .Shading.ForegroundPatternColor = wdColorAutomatic
        .Shading.BackgroundPatternColor = wdColorAutomatic
    End With

This seems to be the best solution. It, indeed, avoids selecting the text, which is what I wished to happen.
For texts that are all formatted as "one paragraph", this works perfectly. Example:


This gets "cleaned" well, like this:


Yet, when I get a text that has "multiple paragraphs", like this:


Nothing gets changed. Do you have any idea how to do it to texts like these too? The only way I've found, so far, is to paste them to another document, without formatting. It's not ideal, but it's what I've found worked so far. There must be an easier way to do it in-document and with macros, like the code above.

[vivka]

Hi! Back to my previous answer.
The both will work:

 
Sub Test() 
 
   selection.WholeStory
   selection.Shading.Texture = wdTextureNone
   selection.Shading.ForegroundPatternColor = wdColorAutomatic
   selection.Shading.BackgroundPatternColor = wdColorAutomatic
   selection.Collapse 1 'this deselects the text
 End Sub

Or:

Sub Test()

     With ActiveDocument.range
        .Shading.Texture = wdTextureNone
        .Shading.ForegroundPatternColor = wdColorAutomatic
        .Shading.BackgroundPatternColor = wdColorAutomatic
     End With
End Sub

[darkmaster006]

Originally Posted by vivka

Hi! Back to my previous answer.
The both will work:

 
Sub Test() 
 
   selection.WholeStory
   selection.Shading.Texture = wdTextureNone
   selection.Shading.ForegroundPatternColor = wdColorAutomatic
   selection.Shading.BackgroundPatternColor = wdColorAutomatic
   selection.Collapse 1 'this deselects the text
 End Sub

Or:

Sub Test()

     With ActiveDocument.range
        .Shading.Texture = wdTextureNone
        .Shading.ForegroundPatternColor = wdColorAutomatic
        .Shading.BackgroundPatternColor = wdColorAutomatic
     End With
End Sub

Hello, thank you!
Sadly, it seems that this leaves it with a complete white background (can't figure out why):

[Italophile]

Originally Posted by darkmaster006

Nothing gets changed. Do you have any idea how to do it to texts like these too?

Without seeing the document, it is only possible to guess.

[vivka]

Hi again! Unfortunaltely, from the very beginning it was not clear that the document had a page filling color. After the misunderstanding has been corrected, here's the code that seems to work:

Sub Deshading()

Dim oPara As Paragraph
'If the selection includes tables, error 4605 will be returned.
'Thus, an error handler is needed:
On Error Resume Next

Application.ScreenUpdating = False
    For Each oPara In ActiveDocument.range.Paragraphs
        oPara.range.Select
        If Not selection.Shading.BackgroundPatternColor = wdColorAutomatic Then
            selection.Shading.BackgroundPatternColor = wdColorAutomatic
        End If
    Next oPara
Application.ScreenUpdating = True
End Sub

[darkmaster006]

Originally Posted by Italophile

Without seeing the document, it is only possible to guess.

Oh, alright! I've uploaded an example file with the text that I talked about, if that helps.

Originally Posted by vivka

Hi again! Unfortunaltely, from the very beginning it was not clear that the document had a page filling color. After the misunderstanding has been corrected, here's the code that seems to work:

Sub Deshading()

Dim oPara As Paragraph
'If the selection includes tables, error 4605 will be returned.
'Thus, an error handler is needed:
On Error Resume Next

Application.ScreenUpdating = False
    For Each oPara In ActiveDocument.range.Paragraphs
        oPara.range.Select
        If Not selection.Shading.BackgroundPatternColor = wdColorAutomatic Then
            selection.Shading.BackgroundPatternColor = wdColorAutomatic
        End If
    Next oPara
Application.ScreenUpdating = True
End Sub

Thank you for the help! This does not seems to work, sadly. Furthermore, it seems to select the last paragraph and make the cursor go to the end of the document.

[vivka]

Hi! Is your example is what you want to get or what you don't want to get but get?

[vivka]

Darkmaster006, I'm glad that you are glad! As for the page color that is easy for eyes, I prefer sky blue. And of course, thank you for your sharing the full code!

[darkmaster006]

Originally Posted by vivka

Darkmaster006, I'm glad that you are glad! As for the page color that is easy for eyes, I prefer sky blue. And of course, thank you for your sharing the full code!

Thank you! And, of course, there might always be people lurking who might have a use for the code. As for sky blue, you mean like the one on the forum? I do admit it's pretty good too!