VBA Problem: Inserting a header / footer

[iamthebest]

Private Sub UserForm_Click()

Dim section As Microsoft.Office.Interop.Word.sections 'error here


For Each section In Me.sections
section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary) _
.Range.Text = "Confidential"
Next


End Sub


Keeps giving me a "user defined type not defined" error.. suggestions anyone?