ole2.cpp

脚本处理控件源码,支持的脚本格式有:Pascal,C++,JScript,Basic

{
  Variant msWord = CreateOleObject("Word.Application");
  msWord.Visible = True;

  Variant doc = msWord.Documents.Add;
  Variant sel = msWord.Selection;

  sel.TypeText("Some System Parameters:");
  sel.HomeKey(5, 1);
  sel.Font.Bold = True;
  sel.EndKey(5, 0);
  sel.Font.Bold = False;

  Variant tab = doc.Tables.Add(sel.Range, 3, 2);

  sel.TypeText("Operating System");
  sel.MoveRight(12);
  sel.TypeText(msWord.System.OperatingSystem);
  sel.MoveLeft(12);
  sel.MoveDown(5);

  sel.TypeText("Processor");
  sel.MoveRight(12);
  sel.TypeText(msWord.System.ProcessorType);
  sel.MoveLeft(12);
  sel.MoveDown(5);

  sel.TypeText("Word Version");
  sel.MoveRight(12);
  sel.TypeText(MsWord.Version);
  sel.MoveLeft(12);
  sel.MoveDown(5);
}