請(qǐng)教如何向WORD傳送備注類型的數(shù)據(jù)？！(已解決，謝謝各位)

sxgaobo

這樣只能傳送255個(gè)字符，怎樣能改為備注型的�。课倚枰獋鬟f更多的字符.
我把代碼傳上來(lái)，方便各位查看
    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 "操作中沒(méi)有裝WORD程序!", vbQuestion, "系統(tǒng)提示"
            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 = "[內(nèi)容]"
            .Replacement.Text = [1]
            .Execute , , , , , , , , , , 2
        End With
     docApp.Visible = True

admin

這個(gè)限制是由宏的255限制的。有人使用
要設(shè)置的欄位設(shè)置個(gè)標(biāo)簽
doc.Bookmarks("標(biāo)簽“).Range.Text = (rs!字段名)

admin

引用 ningyong網(wǎng)友的方法：

word模版套打有幾種方法．
方法一
'直接把數(shù)據(jù)寫道Word模板，從文檔頭依次往下排
'   好處：簡(jiǎn)單易懂，可把大數(shù)據(jù)寫入到Word模板里
'   缺點(diǎn)：不能把數(shù)據(jù)寫入到Word模板相應(yīng)的位置
方法二
'替換Word上的相應(yīng)文本標(biāo)記“[template_name]”，“[template_content_en]”
'   好處：該方法易于以后的項(xiàng)目維護(hù)，數(shù)據(jù)來(lái)是哪，替換那個(gè)一目了然。
'   缺點(diǎn)：如果數(shù)據(jù)量多于255個(gè)字符，不能替換
方法三
'使用Word標(biāo)簽(BookMark)
'   好處：不管數(shù)據(jù)有多大，都能完全寫道Word模板相應(yīng)位置
'   缺點(diǎn)：標(biāo)簽不易于維護(hù)

admin

方法一
'直接把數(shù)據(jù)寫道Word模板，從文檔頭依次往下排
'   好處：簡(jiǎn)單易懂，可把大數(shù)據(jù)寫入到Word模板里
'   缺點(diǎn)：不能把數(shù)據(jù)寫入到Word模板相應(yīng)的位置

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

admin

方法二（ningyong)
'替換Word上的相應(yīng)文本標(biāo)記“[template_name]”，“[template_content_en]”
'   好處：該方法易于以后的項(xiàng)目維護(hù)，數(shù)據(jù)來(lái)是哪，替換那個(gè)一目了然。
'   缺點(diǎn)：如果數(shù)據(jù)量多于255個(gè)字符，不能替換

     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標(biāo)簽(BookMark)
'   好處：不管數(shù)據(jù)有多大，都能完全寫道Word模板相應(yīng)位置
'   缺點(diǎn)：標(biāo)簽不易于維護(hù)
        doc.Bookmarks("template_name").Range.Text = (rs!template_name)
        doc.Bookmarks("template_content_en").Range.Text = (rs!template_content_en)
   
    doc.PrintPreview    '打印預(yù)覽
    'doc.PrintOut        '直接打印
    Next
    docApp.Visible = True   '自動(dòng)化完成后,顯示W(wǎng)ORD程序


Exit_save_Click:
    Exit Sub

Err_save_Click:
    MsgBox Err.Description
    Resume Exit_save_Click

End Sub

sxgaobo

謝謝您的關(guān)注，您能幫我把我發(fā)的那段代碼改成第3種方法嗎？
或者告訴我怎么做，我不太懂代碼，不好意思�。�
我沒(méi)理解錯(cuò)的話，是應(yīng)該先在WORW模版中建立標(biāo)簽，哪位朋友能告訴我怎么建立標(biāo)簽��？！
先謝了�。�！

路遙

關(guān)注，最好搞個(gè)實(shí)例