![]() |
#1
|
|||
|
|||
![]()
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 |
Tags |
clearcontents, vba |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Jackson | Word VBA | 16 | 12-06-2019 08:24 PM |
![]() |
ljd108 | Word VBA | 14 | 01-22-2019 01:22 PM |
![]() |
Daniel Arbeit | Excel Programming | 1 | 06-20-2016 03:02 PM |
![]() |
JadeRisley | Word | 4 | 07-17-2013 11:11 PM |
![]() |
ubns | Excel Programming | 2 | 08-14-2012 02:01 AM |