Find uppercase paragraph + replace string

**ldoodle** · 11-01-2018, 07:04 AM

Hello,

We get documents in from external people that we need to reformat. I'm looking at automating this and part of it is applying specific styles to specific parts of text.

What I want to do first, is select the whole document and apply a base style. Then find only all paragraphs where all of the text is uppercase and then apply a specific style to them. Lastly, these docs have manual number lists that usually are a number followed by a period followed by a tab. For example, 1.<tab>, 10.<tab> etc.. I'd like to apply yet another style to these parts (for auto-numbering), obviously deleting the manually entered text before-hand.

Thanks

**macropod** · 11-01-2018, 05:28 PM

Try:

Please Login or Register  to view this content.

Naturally, you'll need to supply your own Style names.

Note: It's not apparent whether you might have paragraphs beginning with 1.<tab>, then all upper-case text. As coded the macro will apply the UpperCaseStyle to them. If that is an issue, you could change:
.Style = "UpperCaseStyle"
to:
If .Style <> "NumberedStyle" Then .Style = "UpperCaseStyle"

**ldoodle** · 11-06-2018, 09:17 AM

Thanks!

A slight mistake on my part. The lines beginning with number.tab don't need to be all caps too, just have the number.tab characters removed, which I managed with:

Please Login or Register  to view this content.

I'll play with the rest of your code and see how I get on.

**ldoodle** · 11-06-2018, 09:19 AM

EDIT: Just re-read your post and see you are changing from manual line numbering to auto. I'll keep this in mind but for now I'm not sure if all of these lines even need numbering so that will be down to the user to decide (and manually set the ones that do need numbering).

**macropod** · 11-06-2018, 04:45 PM

Originally Posted by ldoodle

EDIT: Just re-read your post and see you are changing from manual line numbering to auto

Nothing in the code I posted does that. If anything of that kind is happening, it's because of the attributes assigned to one or more of the Styles you're using.

Find uppercase paragraph + replace string

LinkBack

Thread Tools

Rate This Thread

Display

Find uppercase paragraph + replace string

Re: Find uppercase paragraph + replace string

Re: Find uppercase paragraph + replace string

Re: Find uppercase paragraph + replace string

Re: Find uppercase paragraph + replace string

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Find and replace string if value find in column

[SOLVED] Find the first two Uppercase letters in a string and return that value

Find and replace a new sentence or paragraph in word doc

[SOLVED] Find a string by VBA Regular Expression and replace a part of that string

Macro to Find and Replace, Uppercase and copy Coloured cells.

Find / Replace in a string

[SOLVED] Find and Replace in a DDE string!!!

Bookmarks

Bookmarks

Posting Permissions