word表格中输入身份证

铁观音的云 · 发表于 2018-7-3 13:50

如图，这是word中的表格，请问有没有快捷办法以连续方式输入身份证？谢谢

413191246se · 发表于 2018-7-3 17:29

楼主应该提供比较详细的示例文档及身份证号码，及预达成的目标文档，这样大家才好帮你。会不会用宏呢？

daibao88 · 发表于 2018-7-3 19:32

本帖最后由 daibao88 于 2018-7-3 19:33 编辑

批量建议vba，如果不会，可以在excel输入，然后分列，复制过来
邮件合并也不错

excelhometiger · 发表于 2018-7-4 09:53

将表格做成模板，插入图形画17条小竖线平均分布，组合后设置环绕方式为文字下方，身份证这个单元格设置字符间距，匹配上这18个小格子就可以了。要做得美观需要费些时间，只是一次花费时间，后期输入身份证比较方便。
不做模板不建议这么做。

sssssssssss322 · 发表于 2023-2-14 20:10

这个如何实现，红包求解

zldccmx · 发表于 2023-2-16 08:55

Sub Zldccmx()
S = "10000020230101002X" '身份证号码
Dim Cel
Dim Tb As Table
For Each Tb In ActiveDocument.Tables
For Each Cel In Tb.Range.Cells
Debug.Print Cel.Range.Text
If Cel.Range.Text Like "身份证" & Chr(13) & "*" And Cel.Next.Range.Text Like "证件号" & Chr(13) & "*" Then
Set Cel = Cel.Next
For I = 1 To 18
Set Cel = Cel.Next
Cel.Range.Text = Mid(S, I, 1)
Next
Exit Sub
End If
Next
Next
End Sub

复制代码

zldccmx · 发表于 2023-2-16 08:55

zldccmx · 发表于 2023-2-16 09:02

zldccmx · 发表于 2023-2-16 09:04

利用双单元格内容进行精准定位

sssssssssss322 · 发表于 2023-2-16 22:30

zldccmx 发表于 2023-2-16 09:04
利用双单元格内容进行精准定位

谢谢，很管用，，，就是您的案列是双单元格定位，，
单单元格定位代码怎么弄？鼓捣半天没弄好，。，，

		自动登录	找回密码
密码			免费注册

[求助] word表格中输入身份证