Word的VBA编程中，对窗体域赋值出现4609错误，提示：字符串太长。

最新推荐文章于 2022-04-09 08:34:00 发布

xianbin

最新推荐文章于 2022-04-09 08:34:00 发布

阅读量3.9k

点赞数

文章标签： vba 编程 string 微软

本文链接：https://blog.csdn.net/xianbin/article/details/1105786

版权

实际上窗体域时可以无限长的，不过默认情况下赋值超过255个字符会出现错误，微软给出的解决方案：

   Sub WorkAround255Limit()
      ' Set Text1 form field to a unique string.
      ActiveDocument.FormFields("text1").Result = "****"
      If ActiveDocument.ProtectionType <> wdNoProtection Then
          ActiveDocument.Unprotect
      End If
      Selection.GoTo What:=wdGoToBookmark, Name:="Text1"
      Selection.Collapse
      Selection.MoveRight wdCharacter, 1
      Selection.TypeText (String(256, "W"))
      Selection.GoTo what:=wdGoToBookmark, Name:="Text1"
      ' Remove unique characters from Text1 form field.
      With Selection.Find
         .Execute findtext:="*", replacewith:="", replace:=wdReplaceAll
      End With
      ActiveDocument.Protect Password:="", NoReset:=True, Type:= _
         wdAllowOnlyFormFields
   End Sub