...Fields.Add Range:=Selection.Range, Type:=wdFieldIf, Text:=...

Ddadoo57 · #1 02-09-2023, 07:29 AM

Quote:

Originally Posted by gmayor

You should change the range then add fields e.g.

Code:

Dim oRng As Range
Set oRng = Selection.Range
With oRng
    .Fields.Add Range:=oRng, Type:=wdFieldIf, Text:="{PAGE} = {NUMPAGES} ""last page""", PreserveFormatting:=False
    .Collapse 1
    .MoveEndUntil "}"
    .End = .End + 1
    .MoveStartUntil "{"
    .Text = ""
    .Fields.Add Range:=oRng, Type:=wdFieldPage, PreserveFormatting:=False
    .Collapse 0
    .MoveEndUntil "}"
    .End = .End + 1
    .MoveStartUntil "{"
    .Text = ""
    .Fields.Add Range:=oRng, Type:=wdFieldNumPages, PreserveFormatting:=False
    .Fields.Update
End With

thanks i will try that too!

Cordially

Ddadoo57 · #2 02-09-2023, 07:47 AM

Quote:

Originally Posted by Ddadoo57

thanks i will try that too!

Cordially

I just gave it a try and it seems to work great!

I will adapt it to my code to insert it in the footer

Thank you so much !

Ddadoo57 · #3 02-09-2023, 09:31 AM

Thank you very much Gmayor !

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Distribute text in one cell across a range of cells (overcoming selection.range.cells.count bug)	slaycock	Word VBA	0	02-18-2017 07:00 AM
Working with Selection.range.	PRA007	Word VBA	2	02-19-2016 12:52 AM
Search and reduce the range of a text selection	paik1002	Word VBA	1	12-17-2015 04:51 AM
Selection or Range	Tommes93	Word VBA	1	04-10-2014 02:50 AM