javascript_com.js

来自「Delphi脚本控件」· JavaScript 代码 · 共 11 行

WordApp = new ActiveXObject("Word.Application");
WordApp.Visible = true;
WordApp.Documents.Add();
Range = WordApp.Documents.Item(1).Range();
Range.Text = "This is a column from a spreadsheet: ";
for (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()