如何将WORD文档中的表格中的内容作为文件名自动另存

renyi · 发表于 2014-6-14 17:34

本帖最后由 renyi 于 2014-6-14 18:28 编辑

请问如何将WORD文档中的表格中的内容作为文件名自动另存，比如我上传的附件WORD，我想自动提取那个位置单元格中内容作为文件名加上当前年份日期（例如：那个位置单元格我填写的是“不锈钢”，即保存为文件名为：不锈钢-20140614），自动另存一份到D:\Users\N\Desktop上，谢谢！

采购单.rar (29.3 KB, 下载次数: 98)

闻启学 · 发表于 2014-6-15 09:24

测试一下

Sub ttt()
Dim tmp As String
Dim mypath As String
mypath = "D:\Users\N\Desktop"
tmp = ActiveDocument.Paragraphs(6).Range.Text
tmp = Left(tmp, Len(tmp) - 2)
tmp = tmp & Format(Now(), "-yyyyMMdd")
ActiveDocument.SaveAs FileName:=mypath & tmp & ".doc"
End Sub

复制代码

renyi · 发表于 2014-6-15 10:24

可以使用，非常感谢！

renyi · 发表于 2014-6-20 15:14

闻启学发表于 2014-6-15 09:24
测试一下

我如果想将后缀修改为DOCX（即 ActiveDocument.SaveAs FileName:=mypath & tmp & ".docx"），另存的文件提示无法打开，请问是什么原因？

renyi · 发表于 2014-6-20 15:24

闻启学发表于 2014-6-15 09:24
测试一下

知道了，改成DOCX后面要加一些参数，问题解决。

dhygritek · 发表于 2016-7-20 13:58

本帖最后由 dhygritek 于 2016-7-20 14:09 编辑

我的问题没解决，你能把你改过的代码发过来吗？

不用了，解决了！！！
非常感谢这个网站给了我太大的帮助！

dhygritek · 发表于 2016-7-20 14:11

解决了！
非常感谢！参考了上面的帖子！
将代码贴出：
Sub ttt()
Dim tmp As String
Dim mypath As String
mypath = "D:\My Documents\Doc2.files\"
tmp = ActiveDocument.Paragraphs(5).Range.Text
tmp = Left(tmp, Len(tmp) - 2)
tmp = tmp & Format(Now(), "yyyy-MM-dd")
ActiveDocument.SaveAs FileName:=mypath & tmp & ".docx", FileFormat:= _
      wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
      :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
      :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
      SaveAsAOCELetter:=False
End Sub

教育机器人 · 发表于 2019-5-29 16:01

闻启学发表于 2014-6-15 09:24
测试一下

求教！
13313187293

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

[求助] 如何将WORD文档中的表格中的内容作为文件名自动另存