请教如何向WORD传送备注类型的数据？！(已解决，谢谢各位)

admin

这个限制是由宏的255限制的。有人使用
要设置的栏位设置个标签
doc.Bookmarks("标签“).Range.Text = (rs!字段名)

admin

引用 ningyong网友的方法：

word模版套打有几种方法．
方法一
'直接把数据写道Word模板，从文档头依次往下排
'   好处：简单易懂，可把大数据写入到Word模板里
'   缺点：不能把数据写入到Word模板相应的位置
方法二
'替换Word上的相应文本标记“[template_name]”，“[template_content_en]”
'   好处：该方法易于以后的项目维护，数据来是哪，替换那个一目了然。
'   缺点：如果数据量多于255个字符，不能替换
方法三
'使用Word标签(BookMark)
'   好处：不管数据有多大，都能完全写道Word模板相应位置
'   缺点：标签不易于维护

admin

方法一
'直接把数据写道Word模板，从文档头依次往下排
'   好处：简单易懂，可把大数据写入到Word模板里
'   缺点：不能把数据写入到Word模板相应的位置

        With win   '使用查找和替换
            .Selection.typetext (rs!template_name)
            .Selection.Typeparagraph           '换行
            .Selection.typetext (rs!template_content_en)
       End With

admin

方法二（ningyong)
'替换Word上的相应文本标记“[template_name]”，“[template_content_en]”
'   好处：该方法易于以后的项目维护，数据来是哪，替换那个一目了然。
'   缺点：如果数据量多于255个字符，不能替换

     With win.Selection.Find   '使用查找和替换
        .Text = "[template_name]"
        .Replacement.Text = Nz(rs!template_name, "")
        .Execute , , , , , , , , , , 2

        .Text = "[template_content_en]"
        .Replacement.Text = Nz(rs!template_content_en, "")
        .Execute , , , , , , , , , , 2
     End With

admin

方法三(ningyong)
'使用Word标签(BookMark)
'   好处：不管数据有多大，都能完全写道Word模板相应位置
'   缺点：标签不易于维护
        doc.Bookmarks("template_name").Range.Text = (rs!template_name)
        doc.Bookmarks("template_content_en").Range.Text = (rs!template_content_en)
   
    doc.PrintPreview    '打印预览
    'doc.PrintOut        '直接打印
    Next
    docApp.Visible = True   '自动化完成后,显示WORD程序


Exit_save_Click:
    Exit Sub

Err_save_Click:
    MsgBox Err.Description
    Resume Exit_save_Click

End Sub