根据excl表头查找word表格内符合条件内容位置

m_n_j001

ndt3 发表于 2019-10-23 16:04
老师，有个bug，没有符合的都返回了“1”

查找的时候判断一下嘛：
If Wd.Selection.Find.Execute("职务") Then
        r = Wd.Selection.Cells(1).ColumnIndex
        MsgBox "职务的列号是：" & r
Else
        MsgBox "没找到"
End If

ndt3

m_n_j001 发表于 2019-10-23 16:29
查找的时候判断一下嘛：
If Wd.Selection.Find.Execute("职务") Then
        r = Wd.Selection.Cells( ...

家里电脑提示自动化错误，应该是电脑的问题，只能明天试了。谢谢老师！

ndt3

m_n_j001 发表于 2019-10-23 16:29
查找的时候判断一下嘛：
If Wd.Selection.Find.Execute("职务") Then
        r = Wd.Selection.Cells( ...

测试好了，可以实现，谢谢老师!
顺便求段代码抄下，
具体操作如下：
word表格选中第7到13行复制，粘贴到excl，sheet2工作表cells（2,9）单元格开始的区域
我写了始终不能通过。
麻烦您！