WPS JS宏在文字中进行搜索

要在一篇文字中进行搜索，并把搜索到的文字保存在一个新的文档中，下面我们直接上代码

function test() { (obj=>{ obj.Text = "查看*文件"; obj.Forward = true; obj.Wrap = wdFindContinue; obj.MatchCase = true; obj.MatchByte = true; obj.MatchWildcards = true; obj.MatchWholeWord = false; obj.MatchFuzzy = false; obj.Replacement.Text = ""; })(Selection.Find); Selection.Find.Execute(undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, wdReplaceNone, undefined, undefined, undefined, undefined); let coneten=ActiveDocument.Range(Selection.Start,Selection.End).Text var newdoc=Application.Documents.Add() newdoc.Range(0,0).Text=coneten }

大家可自己复制以上代码进行验证改造。

原始文字

搜索文字