VBA, Word. Копирование кода поля в буфер

gistfile1.vb

Sub CopyFieldCode()
'
' Копирование кода поля в буфер
'

Dim sFieldCode As String
Dim d As Object

If Selection.Fields.Count = 0 Then Exit Sub
sFieldCode = "{" & Replace(Replace(Selection.Fields(1).Code, ChrW(19), "{"), ChrW(21), "}") & "}"

Set d = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
d.SetText (sFieldCode)
d.PutInClipboard

Set d = Nothing

End Sub