Question

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

在文档的顶部（航空公司发布信函），有一个包含2列的表格，其中3列包含一列中的alpha和第2列中的字母数字数据。

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

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

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

通过这一切，我想生成一个另存为文件名：AETC80123_MAWB0161234567_HAWB00112345678_ReleaseLetter.doc

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

任何帮助/指导/复制粘贴编码（如果它非常简单且没什么问题）都会很棒！

谢谢！

Answer 1

我不打算详细解决这个问题，也不会对它进行全面测试（只是从我脑海中写出来），但这应该提示你如何阅读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

检查this microsoft site以获取有关SaveAs参数的更多信息。

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

1 个答案: