请教如何向WORD传送备注类型的数据？！

sxgaobo

在论坛里抄的，忘了是哪位高手的了，不好意思啊！
为什么只能传247个字，多了就空了啊！

tmtony

有255个字符的 限制

sxgaobo

谢谢站长的关注！
如果我没理解错的话，是数据类型的问题，现在的是文本型，所以只能255个，怎样能改为备注型的啊？我需要传递更多的字符.
我把代码传上来，方便各位查看
    On Error Resume Next
    Dim docApp As Object
    Set docApp = GetObject(, "Word.Application")
   
    If Err Then
        Err.Clear
        Set docApp = CreateObject("Word.Application")
        
        If Err Then
            MsgBox "操作中没有装WORD程序!", vbQuestion, "系统提示"
            Exit Sub
        End If
    End If
    docApp.Visible = False
    Dim Doc As Object
    Dim win As Object
        Set Doc = docApp.Documents.Add(CurrentProject.Path & "\一般处罚.doc")
        Set win = Doc.ActiveWindow

        win.View.SeekView = wdSeekPrimaryHeader
        With win.Selection.Find
        
            .Text = "[内容]"
            .Replacement.Text = [1]
            .Execute , , , , , , , , , , 2
        
        
        End With
      
        
    docApp.Visible = True

todaynew

备注型即可

sxgaobo

谢谢todaynew ！
麻烦您给修改下好吗？

sxgaobo

不好意思，很着急啊，朋友帮忙啊！！！

sxgaobo

自己顶！

sxgaobo

再恳求！