#16
|
|||
|
|||
Almost there
Hi,
So I got them to both work, which is fantastic again! One last thing, can it be extended so that if it is just an empty cell that it is also removed, and can the macros be combined? Into ONE?# Thanks Again. Matt |
#17
|
||||
|
||||
It does, if 'Info:' the only thing in the cell. You asked for a macro that works as follows
Quote:
Code:
Sub Demo() Application.ScreenUpdating = False With ActiveDocument.Range With .Find .ClearFormatting .Replacement.ClearFormatting .Format = False .Forward = True .Wrap = wdFindContinue .Text = "[\[\]\*“”""""]" .MatchWildcards = True .Replacement.Text = "" .Execute Replace:=wdReplaceAll .Text = "Info[: ^s.^t^13]{1,}" .Replacement.Text = "" .Wrap = wdFindStop End With Do While .Find.Execute If .Information(wdWithInTable) = True Then If .End = .Cells(1).Range.End - 1 Then .Rows.Delete End If .Collapse wdCollapseEnd Loop End With Application.ScreenUpdating = True End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#18
|
|||
|
|||
Thanks Paul,
I will look at this and fingers crossed all sorted. I will feedback shortly. Many Thanks Matt |
Tags |
ctrlh, dunce, vba |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Visual basic Word Script To Remove Specific Areas of a Word Doc | mackied | Word VBA | 9 | 07-30-2017 03:10 PM |
Removing characters from a cell | tonydoneese | Excel | 4 | 01-12-2016 07:41 AM |
Strange Characters appear when selecting SHOW ALL NON PRINTING CHARACTERS | ann Amber | Word | 1 | 08-01-2015 08:06 PM |
Junk characters (box-like characters) in Word file | Sashikala | Word | 1 | 04-20-2010 02:03 PM |
Removing data between two characters | Voodoo Child | Excel | 1 | 11-26-2009 01:39 PM |