Question

对于我的工作，我必须在40个单词文档（.doc）中找到样式的所有实例。一旦我得到了文本，我想把它写在我的Excel工作表（.xls）的单元格中。

使用我编写的代码，我可以获得该样式的第一个实例，但是我无法获得下一个实例，它进入无限循环，我现在不知道为什么（每个文件大约发生10次）。 / p>

你能告诉我我错在哪里吗？

我想从那里开始： Before running the macro 对此： After running the macro

这是我的代码：

PHP Fatal error:  require(): Failed opening required 'application/../../vendor/mpdf/mpdf/mpdf.php' (include_path='.:/app/.heroku/php/lib/php') in /app/CI/application/libraries/PDFLib.php on line 5

Answer 1

我认为需要这样：

Do While currentRange.Find.Found 
    currentRange.Find.Execute 
Loop

Answer 2

我必须进行一些更改才能让它为我工作，主要是因为我有Option Explicit并声明所有变量。

然而，如果它在第一个查找循环时可能会遇到问题，那么你必须将选择移到查找之后才能找到下一个查找。

Do While bFind 'here is the endless loop
    row = row + 1
    StyleValue= currentRange.Text 'I get stuck with the first value :-(
    Rows(row).EntireRow.Insert
    Cells(row, 2).Value = StyleValue

    currentRange.SetRange currentRange.End, currentRange.End

    bFind = currentRange.Find.Execute
Loop

如果这不起作用，我可以在以后弹出一个完整的替换

VBA从Excel中获取Word文档中样式的所有出现

2 个答案: