Dim WordApp = new ActiveXObject("Word.Application") WordApp.Visible = true print WordApp.Visible WordApp.Documents.Add Dim Range = WordApp.Documents.Item(1).Range Range.Text = "This is a column from a spreadsheet: " for I = 0 to 3 WordApp.Documents.Item(1).Paragraphs.Add Next Range = WordApp.Documents.Item(1).Range(WordApp.Documents.Item(1).Paragraphs.Item(3).Range.Start) Range.Paste()
var WordApp = new ActiveXObject("Word.Application"); WordApp.Visible = true; print WordApp.Visible; WordApp.Documents.Add(); var Range = WordApp.Documents.Item(1).Range; Range.Text = "This is a column from a spreadsheet: "; for (var I = 0; I < 3; I++) WordApp.Documents.Item(1).Paragraphs.Add(); Range = WordApp.Documents.Item(1).Range(WordApp.Documents.Item(1).Paragraphs.Item(3).Range.Start); Range.Paste();
var WordApp, Range; WordApp := ActiveXObject.Create('Word.Application'); WordApp.Visible := true; print WordApp.Visible; WordApp.Documents.Add; Range := WordApp.Documents.Item[1].Range; print Range; Range.Text := 'This is a column from a spreadsheet: '; for I := 0 to 3 do WordApp.Documents.Item[1].Paragraphs.Add(); Range := WordApp.Documents.Item[1].Range[WordApp.Documents.Item[1].Paragraphs.Item[3].Range.Start]; Range.Paste;