Microsoft Access 掲示板

　Wordに出力するなり、コピーする。そして、表を解除し、文字列置換の後、何やかんやでAccessに戻します。

下記でどうでしょう。

Public Sub SplitRecord()
    Dim rs1 As DAO.Recordset, rs2 As DAO.Recordset
    Set rs1 = CurrentDb.OpenRecordset("テーブル1", dbOpenForwardOnly, dbReadOnly)
    Set rs2 = CurrentDb.OpenRecordset("テーブル2", dbOpenTable, dbAppendOnly)
    
    Dim ary As Variant, i As Long
    Do Until rs1.EOF
        ary = Split(rs1!タグ, vbCrLf)
        For i = 0 To UBound(ary)
            rs2.AddNew
            rs2!カッコリスト.Value = ary(i)
            rs2.Update
        Next
        rs1.MoveNext
    Loop
    
    rs1.Close
    rs2.Close
End Sub