请教一个用word表格中的特定字符来重命名word文件的问题！谢谢大神！

duquancai

chsyjs1 发表于 2018-7-25 10:21
谢谢 就是这个字符获取上面能再深入一点么  谢谢您了

查找表格中的关键词 不就准确定位了吗？还要深入指点那就只能是 完整 的写出代码了。

duquancai

chsyjs1 发表于 2018-7-25 10:21
谢谢 就是这个字符获取上面能再深入一点么  谢谢您了

获取“文件名”！！！其余的代码 自己去完成。

1. Sub main()
   
2.     Dim doc As Document, r As Range
   
3.     Set doc = ActiveDocument
   
4.     With doc.Tables(1).Range.Find
   
5.         If .Execute("药品名称") Then
   
6.             With .Parent
   
7.                 .Move wdCell: .MoveEndUntil vbCr
   
8.                 MsgBox "文件名是：" & .Text
   
9.             End With
   
10.         Else
    
11.             MsgBox "不存在关键字！后续自己处理！"
    
12.         End If
    
13.     End With
    
14. End Sub

复制代码

chsyjs1

duquancai 发表于 2018-7-25 13:30
获取“文件名”！！！其余的代码 自己去完成。

哇塞 谢谢谢谢

chsyjs1

折腾了好久 还是不行啊！求大神指教