creating nested fields

[Luc Benninger]

I fail to create nested fields. I would like my vba code to insert
following formula into a table cell:

{={ NUMPAGES \* MERGEFORMAT }+3}

any hints greatly appreciated!
Luc

 

[Dave Lett]

Hi Luc,

There are many ways you could do this, and this is only one:

Selection.Fields.Add _
Range:=Selection.Range, _
Type:=wdFieldNumPages, _
Text:="", _
PreserveFormatting:=True

Set oRng = Selection.Paragraphs(1).Range
With oRng
.MoveEnd unit:=wdCharacter, Count:=-1
.InsertBefore Text:="="
.InsertAfter Text:="+3"
.Select
End With
With Selection.Fields
.Add _
Range:=Selection.Range, _
Type:=wdFieldEmpty, _
PreserveFormatting:=False
.Update
End With

HTH,
Dave

 

[Luc Benninger]

Dave, thanks a lot!

Hi Luc,

There are many ways you could do this, and this is only one:

Selection.Fields.Add _
Range:=Selection.Range, _
Type:=wdFieldNumPages, _
Text:="", _
PreserveFormatting:=True

Set oRng = Selection.Paragraphs(1).Range
With oRng
.MoveEnd unit:=wdCharacter, Count:=-1
.InsertBefore Text:="="
.InsertAfter Text:="+3"
.Select
End With
With Selection.Fields
.Add _
Range:=Selection.Range, _
Type:=wdFieldEmpty, _
PreserveFormatting:=False
.Update
End With

HTH,
Dave

 

[Jay Freedman]

Hi Luc,

There's more on this topic at
http://word.mvps.org/FAQs/MacrosVBA/NestedFieldsWithVBA.htm, including how
to work with nested fields in headers and footers (which is where I suspect
your field is going).

 

[Charles Kenyon]

Another alternative is to create your field manually, save it as an AutoText
entry, and use code to insert the AutoText.