demo_com.htm

来自「Delphi脚本控件」· HTM 代码 · 共 77 行

HTM
77 行
字号 
<html>
<head>
<link rel=stylesheet type="text/css" href="styles.css">
</head>

<body>

<h3>
paxScript Demo. COM support.
</h3>
<hr>

<h4>
paxBasic
</h4>

<pre>
<font color="blue"><b>Dim</b></font> WordApp = <font color="blue"><b>new</b></font> ActiveXObject("Word.Application")
WordApp.Visible = true
<font color="blue"><b>print</b></font> WordApp.Visible
WordApp.Documents.Add
<font color="blue"><b>Dim</b></font> Range = WordApp.Documents.Item(1).Range
Range.Text = "This is a column from a spreadsheet: "
<font color="blue"><b>for</b></font> I = 0 to 3
  WordApp.Documents.Item(1).Paragraphs.Add
<font color="blue"><b>Next</b></font>
Range = WordApp.Documents.Item(1).Range(WordApp.Documents.Item(1).Paragraphs.Item(3).Range.Start)
Range.Paste()
</pre>

<h4>
paxC
</h4>

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

<h4>
paxPascal
</h4>

<pre>
<font color="blue"><b>var</b></font>
  WordApp, Range;

WordApp := ActiveXObject.Create('Word.Application');
WordApp.Visible := true;
<font color="blue"><b>print</b></font> WordApp.Visible;
WordApp.Documents.Add;
Range := WordApp.Documents.Item[1].Range;
<font color="blue"><b>print</b></font> Range;
Range.Text := 'This is a column from a spreadsheet: ';
<font color="blue"><b>for</b></font> I := 0 <font color="blue"><b>to</b></font> 3 <font color="blue"><b>do</b></font>
  WordApp.Documents.Item[1].Paragraphs.Add();
Range := WordApp.Documents.Item[1].Range[WordApp.Documents.Item[1].Paragraphs.Item[3].Range.Start];
Range.Paste;
</pre>

<p>
<HR>
<font size = 1 color ="gray">
Copyright &copy; 1999-2005
VIRT Laboratory. All rights reserved.
</font>
</body>
</html>

demo_com.htm - 源码说明

本页面展示了「Delphi脚本控件」中的 demo_com.htm 源码文件，采用 HTM 编程语言编写，共 77 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?