Change all fields to just numbers in current page!

macropod · #2 04-24-2012, 09:02 PM

Hi b0x4it,

Word doesn't really have a page-level definition, though it is possible to obtain a page range for processing. A simpler approach is to just select the range you're interested in (could be as little as a single word, or might span two or more pages) and run a macro like the following:

Code:

Sub MMD_MakeSelectedReferencesToJustNumber()
On Error Resume Next
Dim oFld As Field
  For Each oFld In Selection.Fields
    With oFld
      If .Type = wdFieldRef Then
        With .Code
          If InStr(.Text, "\# 0;0") = 0 Then .Text = Replace(.Text, " \h", " \# 0;0 \h")
        End With
      .Update
    End If
  End With
Next oFld
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to save the current page in a new file with all the page settings (header, footer	Jamal NUMAN	Word	6	03-15-2012 03:27 PM
Page Numbers Not Matching Chapter Numbers	gracie5290	Word	1	02-02-2012 11:41 PM
How to call current PC date and/or current PC year	KIM SOLIS	Excel	2	11-04-2011 06:09 PM
Auto insert current month's name and current year	Styler001	Word	4	01-25-2010 06:40 PM
Page numbers...starting on page 3	Motiv8td1	Word	2	02-21-2009 07:21 AM