身份证号逐位引用的问题

yugau

现有一客户资料电子表需要用到邮件合并功能，但其中有一列为身份证号，在word中欲用带框的形式逐位显示出来，如图：，不知该如何实现，请高手赐教。

万分感谢。

yugau

图没法显示，看附件样式

413191246se

楼主，你只说18位身份证号码的问题，并未连带其它数据，所以我只针对这18个数字用 VBA 宏完成，若你懂得 VBA 宏代码运行，请试试：（必须选中一段数字，再应用此宏）
Sub 数字加框()
'将身份证号码放在表格单元格中（位数不限）
    Dim i As Long
    If Selection.Type = wdSelectionIP Then MsgBox "请选定数字！", vbOKOnly + vbCritical, "数字加框": End
    i = Len(Selection) - 1
    If i <> 18 Then If MsgBox("警告！选定数字并非18位二代身份证号码，是否继续？", vbYesNo + vbCritical, "数字加框") = vbNo Then End
    Selection.HomeKey Unit:=wdLine
    Do
        Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
        If Asc(Selection.Characters.Last) = 13 Then Exit Do
        Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.TypeText Text:=" "
    Loop
    Selection.Paragraphs(1).Range.Select
    Selection.ConvertToTable Separator:=4, NumColumns:=i, NumRows:=1, AutoFitBehavior:=wdAutoFitFixed
    Selection.Tables(1).Style = "网格型"
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

尽情飞舞

我有一个不需要VBA的简单的笨方法：
1.现在excel中处理数据源，用mid函数将18位身份证的每个数字提取出来放在单独一列，即有18列
2.在word中建一个18列的表格，每个单元格插入1得到的18列数字

尽情飞舞

1.在excel中处理数据源，用mid函数将身份证号中的每一个数字单独提取出来存放在单个单元格中
2.将第一步得到的数字作为邮件合并域插入word表格中