Hjälp med VBA makro

Hej!
Jag har kört fast i ett makro jag håller på med. Makrot ska hitta det ord som har formatet "Rubrik 1" och sedan ska det klistras in som Titel i "Dokument egenskaperna". Som ni ser vill jag ha ordet som en string för att sedan bara kunna klistra in det i doc egenskaperna. (Finns säkert ett enklare sätt men så här har jag gjort) Skulle vara jättetacksam för råd och tips.

[php]Sub SelectField()

Dim str As String

Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles(wdStyleHeading1)
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

str = ?

ActiveDocument.BuiltInDocumentProperties(wdPropert yTitle) = str


End Sub[/php]

Lade till kod-taggar.

/Mod

str = selection