Re: Automation
Wolfgang, I've included a small script that highlights the problem - I cant move the selection. Am I doing something wrong? Dim app Set app = CreateObject("SuperEdi.Application") app.Visible = true app.Documents.Add Dim doc Set doc = app.ActiveDocument doc.Text = "Line 1" & vbcr Dim sel Set sel = doc.Selection sel.CurrentLine = 1 ' this works - I see the cursor moved to the next line sel.Text = "Line 2" & vbcr ' this works ' The following doesn't work - I can't move the selection to the end of the ' document sel.CurrentLine = 2 sel.CurrentColumn = 0 sel.Text = "Line 3" & vbcr ' This overwrites line 2
|