Vba 将Word文档另存为根据文档中包含的表格信息生成的文件名

我希望使用文档中包含的数据启用Word以文件名保存

在文档的顶部（航空公司放行信），有一个表，其中包含2列，3行，其中一列包含字母，第2列包含字母数字数据

Column 1,
Cell 1: AETC; Cell 2: MAWB; Cell 3: HAWB

Column 2,
Cell 1: 80123; Cell 2, 0161234567; Cell 3: 00112345678

基本上，第一列是要输入第2列的变量数据的静态标签

Column 1,
Cell 1: AETC; Cell 2: MAWB; Cell 3: HAWB

Column 2,
Cell 1: 80123; Cell 2, 0161234567; Cell 3: 00112345678

根据所有这些，我想生成一个另存为文件名：

AETC80123\u MAWB0161234567\u HAWB00112345678\u ReleaseLetter.doc

我几乎没有触及VBA的表面，因为我更像是一名操作主管，而不是一名技术人员，所以我不确定这是否可能

任何帮助/指导/复制粘贴编码（如果它非常简单并且没有什么麻烦的话）都会很棒

---

谢谢

我不打算详细研究它，也没有对它进行任何测试（只是从我的头脑中写出来的），但这应该会提示您如何阅读Word文档中的单元格内容：

' Set tbl to first table in document
Dim tbl As Table
Set tbl = ActiveDocument.Tables(0)

Dim r As Integer
Dim c As Integer
Dim val As String
Dim filename As String
filename = ""

For r = 1 To tbl.Rows.Count
    For c = 1 To tbl.Columns.Count
        ' Get text in cell
        val = tbl.Cell(r, c).Range.Text
        ' and append to string or whatever
        filename = filename & val & "_"
    Next c
Next r

最后，使用

ActiveDocument.SaveAs FileName:=filename

查看有关SaveAs参数的详细信息