Change all fields to just numbers in current page!

b0x4it · #3 04-24-2012, 09:23 PM

thanks for your prompt reply
How about selecting the current paragraph and then running your code using the following code?

Code:

Sub MMD_MakeReferencesInParagToJustNumber()

    On Error Resume Next
    Dim oFld As Field
    Selection.GoTo what:=wdGoToBookmark, Name:="\sel"
    For Each oFld In Selection.Fields
        If oFld.Type = wdFieldRef Then
            'add charformat switch:
            If InStr(oFld.Code.Text, "\# 0;0") = 0 Then
                oFld.Code.Text = Replace(oFld.Code.Text, " \h", " \# 0;0 \h")
            End If
            'updates the field results to display the new format
            oFld.Update
        End If
    Next oFld

End Sub

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