save QM code as a word file

[macman]

How to convert the following VBA code into QM code?

 

Code:

Copy      Help

 
Sub Addpagenumber()
With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
      Set rng = .Range
      rng.Text = "Page "
      rng.Collapse wdCollapseEnd
      ActiveDocument.Fields.Add rng, wdFieldPage, "Page"
      Set rng = .Range
      rng.Collapse wdCollapseEnd
      rng.Text = " of "
      rng.Collapse wdCollapseEnd
      ActiveDocument.Fields.Add rng, wdFieldNumPages, "Pages"
      Set rng = .Range
      rng.Collapse wdCollapseEnd
      rng.Text = " total"
      .Range.Fields.Update
      .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
End Sub