如何用VBA實現WORD批量替換？

For?i?=?1?To?n?'n是listview1的行數

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With?Selection.Find

.Text?=?ListView1.ListItems(i).SubItems(0)?'Findstr=listview1的第i行第1列對應單元格的內容

.Replacement.Text?=?ListView1.ListItems(i).SubItems(1)?'Findstr=listview1的第i行第2列對應單元格的內容

.Forward?=?True

.Wrap?=?wdFindContinue

.Format?=?False

.MatchCase?=?False

.MatchWholeWord?=?False

.MatchByte?=?True

.MatchWildcards?=?False

.MatchSoundsLike?=?False

.MatchAllWordForms?=?False

End?With

Selection.Find.Execute?Replace:=wdReplaceAll

ListView1.selectedItem?=?i

Next

MsgBox?"處理完畢！",?vbInformation?+?vbOKOnly,?"消息"

ListView1.selectedItem?=?1

上一篇:小說閱讀網的作品怎麽不能復制啊

下一篇:Opencv連通域去噪