邮箱合并后的文件如何修改代码，拆分后以表格单元格名称命名

灬_锦。·°

Sub 分页保存()
myPath = "D:\temp\"
Selection.HomeKey Unit:=wdStory
Set myRange = Selection.Range
curpage = 0
Application.ScreenUpdating = False
Do
   prepage = curpage
   pagenum = pagenum + 1
   Set myRange = myRange.GoToNext(What:=wdGoToPage)
   curpage = myRange.Start
   endpage = myRange.Previous.Start
   If curpage = prepage Then _
      endpage = ActiveDocument.Content.End
   ActiveDocument.Range(prepage, endpage).Copy
   With Documents.Add
      .Content.Paste
      .SaveAs myPath & "Page" & pagenum & ".doc"
      .Close
   End With
   If curpage = prepage Then Exit Do
Loop
Application.ScreenUpdating = True
End Sub



这个是网上找到的代码，怎么修改代码

.SaveAs myPath & "Page" & pagenum & ".doc"

让拆分的单个文件以表格的3行3列单元格内容命名

daibao88

.SaveAs myPath & ActiveDocument.Tables(1).Cell(6).range(0, ActiveDocument.Tables(1).Cell(6).range.End - 1).Text & ".doc"未测试，不知道对不对，你懒得传文件，我懒得再模拟文件、测试

灬_锦。·°

daibao88 发表于 2019-5-11 19:12
.SaveAs myPath & ActiveDocument.Tables(1).Cell(6).range(0, ActiveDocument.Tables(1).Cell(6).range.En ...

刚测试了一下，提示cell这个出错，我把附件传一下

灬_锦。·°

灬_锦。·° 发表于 2019-5-12 10:30
刚测试了一下，提示cell这个出错，我把附件传一下

把这里面的表格单独另存为一个表格以内容下面的0-1，0-2，0-3这些命名

daibao88

Dim name
name = .Tables(1).Cell(3, 2).range.Text
name = VBA.Left(name, Len(name) - 2)
.SaveAs myPath & name & ".doc"

灬_锦。·°

daibao88 发表于 2019-5-12 12:31
Dim name
name = .Tables(1).Cell(3, 2).range.Text
name = VBA.Left(name, Len(name) - 2)

谢谢，可以了