Office中国论坛/Access中国论坛

标题: 请教如何向WORD传送备注类型的数据？！ [打印本页]

作者: sxgaobo 时间: 2010-7-9 21:12
标题: 请教如何向WORD传送备注类型的数据？！
本帖最后由 sxgaobo 于 2010-7-11 09:34 编辑

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

作者: tmtony 时间: 2010-7-9 21:42
有255个字符的限制

作者: sxgaobo 时间: 2010-7-10 07:00
本帖最后由 sxgaobo 于 2010-7-10 07:43 编辑

谢谢站长的关注！
如果我没理解错的话，是数据类型的问题，现在的是文本型，所以只能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 时间: 2010-7-10 07:10
备注型即可

作者: sxgaobo 时间: 2010-7-10 07:44
谢谢todaynew ！
麻烦您给修改下好吗？

作者: sxgaobo 时间: 2010-7-10 14:51
不好意思，很着急啊，朋友帮忙啊！！！

作者: sxgaobo 时间: 2010-7-10 21:24
自己顶！

作者: sxgaobo 时间: 2010-7-11 08:56
再恳求！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)