如何引用Word文件名里的部分内容

ghost_rider · 发表于 2023-4-29 13:43

例如，有一个Word文档，文件名为测试报告QA-2023-MYG123.DOC,现在Word表格里只需要MYG123这几个文本内容，如何实现？

batmanbbs · 发表于 2023-4-29 16:05

你这个文档，是当前打开文档的名字填写到当前文档中；还是选中一个文件，获取文件名，填写到另外一个文档中？
大致的步骤：
一是获取文件全名（一般都是带路径的全名）
二是获取文件名中所需部分内容，根据你的格式，方法有很多：
最简单从右侧开始搜索"-"和"."的位置，然后获取之间的信息
如果熟悉正则还可以使用正则来获取
三是将获得的内容填写到表格的指定位置

ghost_rider · 发表于 2023-4-30 14:02

是当前文档

ghost_rider · 发表于 2023-4-30 14:07

这是原文件

shenjianrong163 · 发表于 2023-4-30 14:25

Sub test()
Dim i%, j%, s
With ActiveDocument
i = InStrRev(.Name, "-")
j = InStrRev(.Name, ".")
s = Mid(.Name, i + 1, j - i - 1)
MsgBox (s)
End With
End Sub

复制代码

limonet · 发表于 2023-4-30 14:29

mid(split(文件名,".doc")(0),instr(split(文件名,".doc")(0),"-")+1,99)

batmanbbs · 发表于 2023-4-30 22:45

本帖最后由 batmanbbs 于 2023-4-30 22:55 编辑

根据你的文档，删掉文档中"测试报告："后面的编号后，以下VBA代码会自动填写文件中的编号：

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

[讨论] 如何引用Word文件名里的部分内容