![]() |
|
#1
|
||||
|
||||
![]()
It's not exactly clear what you're trying to do, since nothing about your code has anything to do with justification vis-à-vis "all the dollar amounts become left justified". Try:
Code:
Sub Demo() Application.ScreenUpdating = False With ActiveDocument.Range With .Find .ClearFormatting .Replacement.ClearFormatting .Text = "[!^13]@^13" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchWildcards = True .Execute End With Do While .Find.Found If .Information(wdWithInTable) = False Then Select Case .Characters.First Case Chr(32), vbCr Case Else: .InsertBefore "(U) " End Select Else .End = .Tables(1).Range.End End If .Collapse wdCollapseEnd .Find.Execute Loop End With Application.ScreenUpdating = True End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#2
|
|||
|
|||
![]()
I apologize for not being clear. I added more description, but that seems to have made it more confusing. We have a separate macro that formats the tables, so I don't want this to format the tables.
The macro I posted adds a "(U) " to everything styled "normal" which includes every cell in every table. I was hoping for code that would skip anything in a table. I tried the macro you posted, and was patient for a while, but it seemed to just be locked up. So I ended the task and when I opened up the test file again, it had hundreds of "(U) "s in the table of contents. But nothing in the text. I can't send the Word file, but I attached one with a screen shot. |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
benbob | Word VBA | 5 | 07-15-2018 03:20 AM |
![]() |
ArieH | Word VBA | 20 | 09-10-2017 04:23 PM |
![]() |
p89.schneider | Word | 6 | 03-24-2016 11:38 PM |
![]() |
caboy | Word VBA | 2 | 04-01-2015 07:00 AM |
Looping macros to add text to beginning and end of a paragraph | pachmarhi | Word VBA | 0 | 02-16-2009 06:57 AM |