Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 08-31-2016, 08:04 AM
Soenke Soenke is offline Macro to delete text from cells with specific format Windows 7 64bit Macro to delete text from cells with specific format Office 2016
Novice
Macro to delete text from cells with specific format
 
Join Date: Aug 2016
Posts: 3
Soenke is on a distinguished road
Smile Macro to delete text from cells with specific format

Hi
my first post here.


I am trying to create a macro that can delete the text out of all blue cells in my forms.
I used an existing macro and modified it but cant seem to get it work.
The command "myCell.ClearContents" doesn't want to work.
What am I doing wrong?

Sub DeleteTextFromBlueCells()

If Not Selection.Information(wdWithInTable) Then
MsgBox "Place the cursor in a table cell with a colored pattern."
Exit Sub
End If

Dim myRange As Range
CurrentTexture = Selection.Range.Cells(1).Shading.Texture
CurrentForegroundPatternColor = Selection.Range.Cells(1).Shading.ForegroundPattern Color
CurrentBackgroundPatternColor = Selection.Range.Cells(1).Shading.BackgroundPattern Color

For Each myTable In ActiveDocument.Tables
Set myRange = myTable.Range
For Each myCell In myRange.Cells
If myCell.Shading.Texture = CurrentTexture _
And myCell.Shading.ForegroundPatternColor = CurrentForegroundPatternColor _
And myCell.Shading.BackgroundPatternColor = CurrentBackgroundPatternColor Then
myCell.ClearContents

End If
Next myCell
Next myTable

End Sub
Reply With Quote
 

Tags
clearcontents, vba



Similar Threads
Thread Thread Starter Forum Replies Last Post
Macro to delete text from cells with specific format Delete specific text Jackson Word VBA 16 12-06-2019 08:24 PM
Macro to delete text from cells with specific format Macro to delete text in specific styles ljd108 Word VBA 14 01-22-2019 01:22 PM
Macro to delete text from cells with specific format Delete cell content that has a specific format Daniel Arbeit Excel Programming 1 06-20-2016 03:02 PM
Macro to delete text from cells with specific format Delete specific mass text on document JadeRisley Word 4 07-17-2013 11:11 PM
Macro to delete text from cells with specific format Macro to delete rows with all empty cells ubns Excel Programming 2 08-14-2012 02:01 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 04:32 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft