Select "Heading 1" Paragraph text

[Peeps]

Forgive me for asking for what may seem a stupidly simple question.

I can find paragraphs throughout a document using


With ActiveDocument
For Each p In .Paragraphs
If p.Style = "Heading 1" Then... etc.

However I'm having difficulty selecting the "Heading 1" text to copy to put into the Header.

Any suggestions?
Polite answers please!

Peeps

[mdmackillop]

If p.Style = "Heading 1" Then
txt = p.Range.Text
End If

[Peeps]

Fantastic!

Thank You

Peeps

[Peeps]

If p.Style = "Heading 1" Then
txt = p.Range.Text
End If

I tried running the following macro within a word document just to check the text.


Dim txt As Range
Dim p As Paragraph
With ActiveDocument
For Each p In .Paragraphs
If p.Style = "Heading 1" Then
txt = p.Range.Text
MsgBox "text is " & txt
End If
Next p
End With

I got the following error

Run-time error '91'
Object variable or With block variable not set

Any further suggestions?

[mdmackillop]

Dim txt As String

[Peeps]

Cheers

Peeps