0

我正在尝试将 CustomDocumentProperties 从 Word 文档（我使用 Application.GetOpenFilename 选择）拉到 Excel 工作表。

我可以使用项目编号获取运行代码：

    Set ExcelRange = Range("DataFields")
    
    For r = 1 To ExcelRange.Rows.Count Step 1
        
        ExcelWorkbook.Sheets("Sheet1").Cells(r, 3) = WordDoc.CustomDocumentProperties(r).Value
                                 
    Next r

如果我硬编码自定义属性的名称，它也可以：

Set ExcelRange = Range("DataFields")

For r = 1 To ExcelRange.Rows.Count Step 1

    ExcelWorkbook.Sheets("Sheet1").Cells(r, 3) = WordDoc.CustomDocumentProperties("Subject Name").Value

Next r

显然在这种情况下，它会返回 7 次“主题名称”）。

我不想返回所有值——只返回基于命名范围值的特定值（在本例中为 DataFields）。

DataFields 引用 A1:A7。我想获取那些单元格（包含自定义属性的名称）并将相应自定义属性的值粘贴到 C1:C7

但是，我似乎可以让代码根据 A1:A7 中的值返回 C1:C7 中的值。

根据我的（有限的）知识，我认为以下内容会返回所需的结果，但它对我不起作用：

    Set ExcelRange = Range("DataFields")
    
    For r = 1 To ExcelRange.Rows.Count Step 1
        
        ExcelWorkbook.Sheets("Sheet1").Cells(r, 3) = WordDoc.CustomDocumentProperties(ExcelRange(r, 1))
        
    Next r

任何帮助，将不胜感激。

谢谢！

4

0 回答 0