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

chsyjs1

各位大神，菜鸟求教一个问题：
我现在有5000左右的word文件，需要重命名！
命名的规则就是文件表格中的一个字段
由于文件的不规则，这个字段不是都在同一行

chsyjs1

这个字段的特征就是药品名称后面的那个单元格！ 请老师们指教一下
用药品名称后面那个单元格来重命名word文件！ 谢谢

ming0018

chsyjs1 发表于 2018-7-25 09:37
这个字段的特征就是药品名称后面的那个单元格！ 请老师们指教一下
用药品名称后面那个单元格来重命名word ...

会不会有重名的情况出现，你能100%确定不会重名吗？

chsyjs1

ming0018 发表于 2018-7-25 09:44
会不会有重名的情况出现，你能100%确定不会重名吗？

谢谢 不会有重名的 一册里面同一个品种只会有一个

duquancai

chsyjs1 发表于 2018-7-25 09:48
谢谢 不会有重名的 一册里面同一个品种只会有一个

这个问题可以VBA做，但是要耗时间和精力！！！

chsyjs1

duquancai 发表于 2018-7-25 10:02
这个问题可以VBA做，但是要耗时间和精力！！！

谢谢大神，可能给点提示！

duquancai

chsyjs1 发表于 2018-7-25 10:07
谢谢大神，可能给点提示！

遍历文件，逐个打开，获取特定字符，重命名保存并关闭，如此循环。。。。。。。。

chsyjs1

duquancai 发表于 2018-7-25 10:15
遍历文件，逐个打开，获取特定字符，重命名保存并关闭，如此循环。。。。。。。。

谢谢 就是这个字符获取上面能再深入一点么  谢谢您了

ming0018

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

如果格式都是固定的。
    Dim Rng As Range
    Set Rng = ActiveDocument.Tables(1).Cell(2, 2).Range
    Debug.Print Left(Rng.Text, Len(Rng.Text) - 1)
这段代码就是你要的文件名。

chsyjs1

ming0018 发表于 2018-7-25 10:35
如果格式都是固定的。
    Dim Rng As Range
    Set Rng = ActiveDocument.Tables(1).Cell(2, 2).Rang ...

先谢谢大神，您这个是取第二行第二列吧 但是我这个文件列是相同的 关键不是都在第二行 有可能在第三行 有可能在第一行