No this doesn't make what i want to do. I' m searching for a macro because i dont know how to do this. That takes the text beside style of heading 1 and style of heading 2, and justifying without loosing its space between heading 1 and 2, only inside text justifying.
I try this makro but, again changes the format of my document to the style of heading 1 or heading 2, depend on selection of text. Ok thanks, makropod.

Hi saints,
If you're using 'With Selection.Find' and selecting the range to process, what you're descrobing could only happen if you have some Heading 1/2 text selected at the start (or perhaps the end) of the range to be processed.

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

In the attached initial document i select the text between heading 1 and heading 2 then style, then choose text document with same format then run the macro and the solution be not expected. But even i choose, only the text between heading 1 and 2, the same again.

Thanks so much for the help. I have followed the copy and paste procedure, pasting the whole macro from the window above, and tried the macro. I get "Compile Error: Expected End Stub" and when I click help, I get:

"An End procedure statement must match the procedure in which it occurs. This error has the following cause and solution:

• You used End Function or End Property to end a Sub procedure.Use End Sub for this type of procedure"

It seems that the macro does have "End Sub" so what do I need to do?

Are you sure you copied & pasted the whole macro - it certainly inlcudes the 'End Sub' statement! Also, no-one else has reported this error, which suggests the problem is at your end.

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

Yes i think thats working nice. But how i can make it to select all text with same format and clean up text. In that way, that show to the second document i attached. In that way i must select manual all document text and apply the macro and next go to the second text, selected and apply the macro.
If i choose select style, with same format and apply the macro the macro dont work. I need more automation, any advice?

Why dont work the macro if i choose text between style 1 and style 2, and after choose text with same format?

Without a lot of re-coding work, that's not going to happen.
What you could do, is use either the original or modified form of the macro (depending on whether you want the code to apply to the whole document or just a selected portion) and add the following:
.Style = "Normal" (or another style name of your choice)
before:
.Format = False
which you change to:
.Format = True

That should make to code reformat only the text in the nominated Style.

PS: I've got very limited internet access ATM, and won't be able to respond to further queries for around 10 days.

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

I ran it but gives me an error 5834, not find the clue with predifined name, i choose to debug and shows me an error at style, maybe we dont set the style in the form that word understand...

Is there a way to fix this code to work, or with the use of wildcards that aply only in specific style of the document?

What Style name did you use? Does that Style exist in your document? For me, the using the code as described I get no errors.

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

I use this document, opened selected document, choose a text inside not heading, after that right click and choose styles, choose text with similar style, and after macros, and run the inside macro of the document which said that style is Normal, which give me run time error 5834.

Attached Files

This is the initial document.doc (13.7 KB, 7 views)

if i use the office in other language than english, the style formats remain with the same names? example if use italian language the style is the same Normal, or need to change? Because the macro writes only in english. Where i can find the style that word uses to put inside? For me, doesnt working yet.

Im trying to find a solution... but not working for me....Any help...?

i have put this macro in the initial document. And run it but nothing happens. What is wrong the macro dont justifing selected text of whole document automatic if this document has headings. Only if the document has the same format only. I put style normal but nothing happens. Yours working?