如何替换单词表 chr(13)？

Question

我正在将单词表复制并粘贴到 excel。但是单词表中有很多'enter'键。我能知道如何替换整个单词表中的回车键吗？我遇到问题“参数数量错误或属性赋值无效”

Answer 1

With Selection.find 引用 Excel 选择对象。但是您想使用 Word 选择对象。

你有应用程序这个词的变量吗？应用词？使用这个：With appWord.Selection.find

如果不是 With oLookWordDoc.parent.selection.find 应该可以

Answer 2

这段代码存在不止一个问题。

首先是您没有将 oLookWordDoc 设置为指向文档，因此 none 的 Word 代码将起作用。

其次，您有两个变量指向相同的 table、oLookwordTbl 和 r。你只需要其中之一。

第三，你选择的是table到运行Find而不是简单地使用Table.Range的Find方法。

第四，您的查找和替换文本不正确。

下面整理后的代码会将 table 中的段落标记替换为 space。

Dim oLookWordDoc As Word.document
Dim oLookwordTbl As Word.Table
Dim iRow As Long 'row index

'you need to set oLookWordDoc to point to a document here

'Grab the word table
Set oLookwordTbl = oLookWordDoc.Tables(1)
With oLookwordTbl.Range.Find
    .Text = "^p"
    .Replacement.Text = " "
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
End With
'rows 2 - end
For iRow = 2 To oLookwordTbl.Rows.Count
    oLookwordTbl.Rows(iRow).Range.Copy
    'Paste
    xWs.Paste
    xWs.Cells(xWs.Rows.Count, 1).End(3).Offset(1).Select
Next

如何替换单词表 chr(13)？

How replace word tables chr(13)?

vba

ms-word

word-table