Hello to all,

Maybe someone could help me. I've asked in other forums this question and I didn't get an answer.

I have a file that has some formatting that I want to beautify. It has some paragraph divided in parts by numbers. The numbers have a diferrent font than the text and the parts that belong to the same number appear sometimes in different line and I want to concatenate those texts in a unique line. For example:

1 Some text some text some
text some text. 2 Some text some text.

3 Some text some
text some text.
and I would like to have like this



1 Some text some text some text some text.
2 Some text some text.
3 Some text some text some text.
How can I do this with VBA?

Thanks

You could achieve that with just two wildcard Find/Replace operations:
Find = [^13]{1,}
Replace = ^32
Find = ^32([0-9])
Replace = ^p\1
specifying your 8.5pt font as a Find parameter.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Cross-posted at: https://www.excelforum.com/word-form...same-size.html and https://stackoverflow.com/questions/...in-vba-wordFor
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thanks for the answer. Is not work

Your document is substantially different from what you described in your initial post. For starters, only the numbers are in 8.5pt - the rest of the content in the ranges concerned is at other point sizes, including the unwanted spaces immediately before the 8.5pt numbers. And I doubt you want your headings merged with the other lines.

In other words, your problem description has little to do with the reality of what it seems you want to achieve.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Here are the 'before' and required 'after' screenshots. I have now deleted my attachment.

Attached Images

Demo.png (38.8 KB, 6 views)

Now also cross-posted at: How to concatenate specific text between specific style
Since you can't be bothered providing cross-post links and, moreover, you've stupidly attempted to vandalise this thread by deleting both the substance of your query and the associated document, don't expect help on any forum. Thread closed.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Cross-posted yet again at: vba - How to remove paragraph marks with different format in MS-Word - Stack Overflow
Account terminated.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]