Please help copy inside brackets

[Jana]

Is there any way to take the text of specific heading numbers and to take to the previous heading text inside brackets separated by · before the last full stop. I need something to take the title to copy inside brackets and if more than one headings to seperated by comma and end to a fullstop.

[macropod]

Hi Jana,

So what you want is for each heading 3 to be repeated at the end of the 2nd physical (1st logical) paragraph after the corresponding heading 2 - and for the heading 3 entries thus repeated to be separated by commas and, as a group, enclosed in braces? If so, most of what you want can by done by inserting cross-references to the heading 3 paragraphs at the appropriate point. This has the advantage that they'll update if the heading content changes. If you have a lot of these, it could be automated via a macro.

[Jana]

Originally Posted by macropod

Hi Jana,

So what you want is for each heading 3 to be repeated at the end of the 2nd physical (1st logical) paragraph after the corresponding heading 2 - and for the heading 3 entries thus repeated to be separated by commas and, as a group, enclosed in braces? If so, most of what you want can by done by inserting cross-references to the heading 3 paragraphs at the appropriate point. This has the advantage that they'll update if the heading content changes. If you have a lot of these, it could be automated via a macro.

I have a lot of this, thats for sure!!! No i dont want to add crossreferences because already included and maybe cause problem. I need to add these inside brackets.

[macropod]

Hi Jana,

I'm not sure what problems you're anticipating by inserting cross-references within the braces. The most I'd expect is that, if the heading gets deleted, the cross-reference would generate an error message. Being readily recognised, that may be better than having output that still refers to a deleted heading.

[Jana]

Originally Posted by macropod

Hi Jana,

I'm not sure what problems you're anticipating by inserting cross-references within the braces. The most I'd expect is that, if the heading gets deleted, the cross-reference would generate an error message. Being readily recognised, that may be better than having output that still refers to a deleted heading.

Its not usefull for us to make as crossreference makropod. We need to put the clues inside brackets. We dont wont that because we never delete text. The text is allready set up and after that we need to formation properly. Thanks for your reply.

[macropod]

Hi Jana,

Try the following macro:

Sub InsertRefs()
Application.ScreenUpdating = False
Dim RngHd2 As Range, RngHd3 As Range, RngRef As Range, oPara As Paragraph
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = ""
    .Style = "Heading 2"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  Do While .Find.Found
    Set RngHd2 = .Paragraphs(1).Range.Duplicate
    With RngHd2
      On Error GoTo ParaLast
      While .Paragraphs.Last.Next.Style <> "Heading 1" And .Paragraphs.Last.Next.Style <> "Heading 2"
        .MoveEnd wdParagraph, 1
      Wend
ParaLast:
      If .Paragraphs.Count > 2 Then
        Set RngRef = RngHd2.Paragraphs(3).Range.Characters.Last
        .MoveStart wdParagraph, 3
        Set RngHd3 = RngHd2
        With RngRef
          .MoveEnd wdCharacter, -1
          .InsertAfter " { "
          For Each oPara In RngHd3.Paragraphs
            If oPara.Style = "Heading 3" Then
              If Len(Trim(oPara.Range.Text)) > 1 Then
                .InsertAfter Left(oPara.Range.Text, Len(oPara.Range.Text) - 1) & ", "
              End If
            End If
          Next
          .Characters.Last.Previous.Delete
          .InsertAfter "}."
        End With
      End If
    End With
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

[Jana]

I try to execute this code but the execution returns compile error. So, I try to see the code and a yellow text Subinsertrefs(), also the line Dim RngHd2 As Range, RngHd3 As Range, RngRef As Range, oPara As Paragraph With ActiveDocument.Range looks like with red lettering. Maybe a problem with that too.

[macropod]

Hi Jana,

That suggests you haven't copied & pasted the code correctly. What did the 'Compile Error' message say was the problem? You need to be especially careful that the copied & pasted code has exactly the same content and layout as in my post.

[Jana]

Originally Posted by macropod

Hi Jana,

That suggests you haven't copied & pasted the code correctly. What did the 'Compile Error' message say was the problem? You need to be especially careful that the copied & pasted code has exactly the same content and layout as in my post.

Heading 2 yellow error.

[macropod]

Hi Jana,

That error does not occur if you run the code on the document attached to your previous post.

[Jana]

Originally Posted by macropod

Hi Jana,

That error does not occur if you run the code on the document attached to your previous post.

Still yellow color. Look the document.

[macropod]

I get no error and the code executes correctly!

[Jana]

Originally Posted by macropod

I get no error and the code executes correctly!

I dont understand what misunderstand, i still get this error. Maybe something i ve done before. But still not working for me. Whats the problem with that?

[macropod]

Hi Jana,

Try the attached. It''s your original 'without formation' document with the macro added and zipped (we can't add docm attachments). It works for me.

[Jana]

Originally Posted by macropod

Hi Jana,

Try the attached. It''s your original 'without formation' document with the macro added and zipped (we can't add docm attachments). It works for me.

Please i tried again and the heading 2 is still yellow. Maybe is problem with my word processor.