Private Sub KwField_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KwField.Click
      Dim f As XSLField
      f = Chouse("XSLFieldsTree")

      If Not (f Is Nothing) Then
         Try
            Dim Selection = Shower.Document.ActiveWindow.Selection  
            Dim ff = Shower.Document.FormFields.Add(Selection.Range,  70 ) ' wdFieldFormTextInput)
            ff.Name = f.XSL.ToLower
         Catch ex As Exception
            Log(ex, "ucWordDoc.KwField.Click")
         End Try
      End If

   End Sub

Свойство Reference не применимо к 'Range'.#Microsoft Word
System.Runtime.InteropServices.COMException (0x800A173A): Свойство Reference не применимо к 'Range'.
   at Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateSet(Object o, Type& objType, String name, Object[] args, String[] paramnames, Boolean OptimisticSet, CallType UseCallType)
   at Microsoft.VisualBasic.CompilerServices.LateBinding.LateSetComplex(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean OptimisticSet, Boolean RValueBase)