Cad中提取文字到表格
1首先字体是单行的字体
光盘包装盒2需要cad和表格两个软件，你的表格不管是wps表格还是微软Excel，要有开发工具。如果没有开发工具，请自行百度，怎么调出开发工具。
3打开cad，如果你对单行文字之间的顺序没有要求，请直接框选所有需要选的单行文本；如果有顺序要求，请依次选中每一行，先选的排在前列。选完后，按快捷键li,再按空格执行命令，会看到所选文字的所有信息（含有文字坐标，样式，内容等），（如果下面有提示按enter继续，请按enter），然后复制所选文字的所有信息。 4打开表格，单击A1单元格，在A1单元格直接粘贴。（注意，不要双击A1单元格） 5打开开发工具，点击插入，点击模块，直接粘贴以下代码，然后按键盘上的F5 6查看活动工作表的B列
Sub y()
Dim r As Integer
Dim rng As Range
Dim j As Integer
调制解调器固件j = Range("b1048576").End(xlUp).Row
r = Range("a1048576").End(xlUp).Row
For Each rng In Range("a1:a" & r)
rng.Select
If Left(rng.Value, 2) = "内容" Then
蒸汽吹灰器Range("b" & j) = Trim(Right(rng, Len(rng) - 3))
j = j + 1
水泥厂脱硝
End If操口红
Next
End Sub
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议