Hello,

I need to create a macro to duplicate each of the paragraphs in a file (including the content within tables), maintaining the same formatting, and then hide the first paragraph in each instance (including the content within tables).

I checked this forum and I found a macro: it duplicates, keeps formatting and hide the content; however it stops working after the first paragraph. I don't know why.

This is the macro:

Sub Macro1()
Dim oRng As Range
Dim oPara As Range, oNewPara As Range
Dim i As Long
Set oRng = Selection.Range
If oRng.End = ActiveDocument.Range.End Then
oRng.InsertParagraphAfter
End If
For i = oRng.Paragraphs.Count To 1 Step -1
Set oPara = oRng.Paragraphs(i).Range


Set oNewPara = oPara.Duplicate
oNewPara.Collapse 0
oNewPara.FormattedText = oPara.FormattedText
Next i
lbl_Exit:
Set oRng = Nothing
Set oPara = Nothing
Set oNewPara = Nothing
Exit Sub
End Sub


Thanks!

Is this for a language translation project?

I'm thinking you will need a method of showing/hiding either paragraph instance so there needs to be some way of identifying each series

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

There was nothing in your original code that hid content:

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Thanks Greg and Andrew!

Yes, this is for a translation project.

Thanks for adding that line, Greg. I added it on my local but after several tests, I forgot to paste it here. Anyways, I'm still having issues

Thanks again for checking!