Userinitials not updating automatically
Thanks. That's fine, but it must also check the value in the field. This is
because it only needs updating the first time it is created. Once the letter
is done, it shouldn't be updated every time it's opened.
"Helmut Weber" wrote:
Hi Deejay,
e.g.
Sub Test459()
' update all fields of type wdFieldUserInitials
Dim oFld As Field
For Each oFld In ActiveDocument.Fields
If oFld.Type = wdFieldUserInitials Then
oFld.Update
End If
Next
End Sub
Sub Test459b()
' update second field of type wdFieldUserInitials
Dim oFld As Field ' a field
Dim cFld As Collection ' a collection
Set cFld = New Collection
For Each oFld In ActiveDocument.Fields
If oFld.Type = wdFieldUserInitials Then
' add only fields of type wdFieldUserInitials
' to the collection
cFld.Add oFld
End If
Next
cFld(2).Update
End Sub
Still better would be to enclose the fields in question
in bookmarks at the time they are created.
Maybe I'm missing something.
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"
|