从多行中查找标记名

时间:2018-09-26 14:07:24

标签: excel vba

我正在尝试使用包含许多单独数据表的工作表来完成查找和替换功能,直至完成Word文档。是否可以引用TagName的不同行以返回紧邻其下一行的TagValue

下面的代码可以在第7行中实现。但是,我的下一个数据表从第15行开始。我希望有一个比对每个表重复此代码更简单的选择。

For CustCol = 5 To 14

    TagName = .Cells(7, CustCol).Value
    TagValue = .Cells(8, CustCol).Value

    With WordDoc.Content.Find
        .Text = TagName
        .Replacement.Text = TagValue
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With

Next CustCol

任何帮助或投入将不胜感激!

0 个答案:

没有答案