DalomWiki

You've loaded an old revision of the document! If you save it, you will create a new version with this data.

<code vb>
Sub EnhanceIndexEntries()
  Dim doc As Document
  Dim fld As Field
  Dim temp As String
  Dim temp2 As String
  Dim omsg As String
  Dim matches
  Dim re2, re3 As RegExp
  Set re2 = New RegExp
  Set re3 = New RegExp
  re2.Global = False
  re3.Global = False
  re2.Pattern = "\s([0-9]{2})\W"
  re3.Pattern = "\s([0-9]{3})\W"
  
  Dim cnt As Integer
  cnt = 0
  
  Set doc = ActiveDocument
  For Each fld In doc.Fields
    fld.Select
    If fld.Type = wdFieldIndexEntry Then
        cnt = cnt + 1
        temp = fld.Code
        temp2 = re2.Replace(temp, " $1;00$1" & Chr$(34))
        temp3 = re3.Replace(temp2, " $1;0$1" & Chr$(34))
        With Selection.Find
            .Text = temp
            .Replacement.Text = temp3
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .Execute Replace:=wdReplaceAll
        End With
    End If
  Next
  Set fld = Nothing
  Set doc = Nothing
  omsg = "Justering av indexeringsinformation klar."
  MsgBox (omgs & cnt)
End Sub
</code>

Please fill all the letters into the box to prove you're human.

Please keep this field empty:

Edit summary

Note: By editing this page you agree to license your content under the following license: CC Attribution-Noncommercial-Share Alike 4.0 International