欢迎精通Word 的大侠

Question

大致用法，COPY了以前几行程序：  //变体变量
  VarWord:Variant;
  Range: Variant;//创建对象及销毁在此忽略    //在写入数据之前，选择当前表格
    VarWord.Documents.Item(1).Tables.Item(WordTable_Count).Select;    //复制当前表格
    VarWord.Selection.Copy;    //定义写入空表格的范围
    Range:=VarWord.Documents.Item(1).Range(
         VarWord.Documents.Item(1).Paragraphs.Item(
         (WordTable_Count)*Word_SaveType1_RecordSize).Range.Start,
         VarWord.Documents.Item(1).Paragraphs.Item(
         (WordTable_Count)*Word_SaveType1_RecordSize).Range.End);    //粘贴空表格
    Range.Paste;

Answer 1

在Word中录制一个新宏，然后手工完成你你要求的功能，停止录制，查看该宏的VBScript代码，
在Delphi中自然可以实现。如果你手工实现不了，在Delphi中也实现不了.

Answer 2

to enlightenment(阿明--进入准冬眠状态的超人)
   我主要是不想通过剪贴板来实现。有没有其他办法。

Answer 3

只要你把你的模板保存为Normal就可以了

Answer 4

好象不太管用，而且在offfice2000中都没有normal.dot

Answer 5

normal.dot是放在c:\Windows\Application Data\Microsoft\Templates下的，你可以试试先把你的模板另存为别的名字，关闭Word，然后用它来覆盖Normal.dot

Answer 6

别忘了先备份你的原来的Normal.dot，万一不成功，别怪我没提醒你：）

Answer 7

难到作个空白的模板会很困难吗？^-^
另外c:\Windows（or winnt)\Application Data\Microsoft\Templates 我的没有这个目录！
我遍find c盘只找到了97下那个dot，我试过了，打开时如人所愿，新添的页却是空白页。
看样子我只好先保存剪贴板，干完活后再放回去了。