<div dir="ltr">Hi,<div><br></div><div>This week I fixed my changes from the previous week, I also looked at the XFind method on writer and wrote macro tests in word to test find and replace.</div><div>Struggled for a while before finding this :</div><div><br></div><div>Selection seemed to be a problem to start with and the test will not work without A.</div><div>Also seemed like the 'with' is broken and creates new find objects - B<br></div><div><br></div><div>    Selection.TypeText Text:="testing number two"<br>    ' without this it doesn't work ...<br>A .  ActiveDocument.Content.Select<br>    Selection.Find.ClearFormatting<br>    Selection.Find.Replacement.ClearFormatting<br> </div><div>B.</div><div><a class="gmail_plusreply" id="plusReplyChip-0">+</a>    let f = Selection.Find<br>+   With f ' works<br>-    With Selection.Find ' breaks things.<br>        .Text = "t"<br>        .Replacement.Text = "l"<br>        .Forward = True<br>        .Wrap = wdFindContinue<br>        .Format = False<br>        .MatchCase = False<br>        .MatchWholeWord = False<br>        .MatchWildcards = False<br>        .MatchSoundsLike = False<br>        .MatchAllWordForms = False<br>        .Execute Replace:=wdReplaceAll<br>    End With<br></div><div><br></div><div>Looks like this could be due to code in sw/source/ui/vba/vbaselection.cxx getFind</div><div>which I will aim to look at next week</div></div>