Added two fields on the form "x / y" in the top cell in a table oftwo rows in the footer



Hi - After many attempts, I have almost given up. Hoping to find help
in here.

Should have added two fields on the form "x / y" in the top cell in a
table of two rows in the footer.
The code below shows what I could find, but do not operate optimally.
Can not get the fields inserted in the upper cell, nor have the slash
between the two fields.

Sub InsertFields_FooterCell()

Dim rngCell As Range
Set rngCell =

rngCell.Collapse wdCollapseEnd

Set rngCell = rngCell.Paragraphs(1).Range
With rngCell
.Collapse wdCollapseEnd
.Fields.Add Range:=rngCell, Type:=wdFieldNumPages
.Collapse wdCollapseEnd
.Text = "/"
.Collapse wdCollapseEnd
.Fields.Add Range:=rngCell, Type:=wdFieldPage
End With

Set rngCell = rngCell.Paragraphs(1).Range

End Sub

Munim Rashid

My friend, I too was frustrated like you and just found a solution :) Code here self-explanatory and simple, so I am not describing unless you ask for.

Set objSelection = objWord.Selection

With ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary).Range.text = "My Report"
Selection.TypeText "Page: "
Selection.Fields.ADD Selection.Range, wdFieldPage
Selection.Paragraphs.Alignment = wdAlignParagraphRight
Selection.TypeText "/"
Selection.Fields.ADD Selection.Range, wdFieldNumPages
End With


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question