Conversely, the use of wdCollapseEnd moves the start of the range to the end of the range and so puts the insertion point at the end of the range.

So if you had a word selected then the use of wdCollapseStart would move the end of the range to the start of the range and give you an insertion point at the start of the word. The wdCollapseStart and wdCollapseEnd parameters dictate the direction of the collapse.

If you were to do this on a word you had selected you would see the range contract to just an insertion point. The collapse method makes the start and end of the range the same point. Can I be enlightened about Word's Object model regarding this, please?Ĭode: the last line to force your fields to update. Then there is the Duplicate Method.ġ) Can anyone help me make either code snippet work as I need it?Ģ) Microsoft's online Help is so very vague explaining their Objects, Properties, and Methods. My research tells me it has no effect on the document unless it is applied to an object using the SET keyword. I do not understand the concept of the Collapse method. Further, this code is even more a mystery to me. rng, wdFieldNumPagesĮnd WithIt works very well, but I have no idea how to insert the third column text and right-justify so all text are evenly spaced. I tried this code I found (without table):Ĭode: With. I am presuming PAGE and NUMPAGES are reserved words and return the page numbers, but are meant for Macros? In any event, I am lost as to how the numbering takes place. Cell(1, 3).Range.Paragraphs(1).Alignment = wdAlignParagraphCenterĮnd WithBut, this code does not show the current page number ( of y shows y of y). Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:='NUMPAGES ', PreserveFormatting:=True Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:='PAGE ', PreserveFormatting:=True Paragraphs(1).Alignment = wdAlignParagraphCenter Cell(1, 1).Range.Paragraphs(1).Alignment = wdAlignParagraphCenter ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).RangeĪ(ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range, 1, 3)

Mac word footer page x of y