ole2.cpp

来自「FastScript 1.94 Full Source」· C++ 代码 · 共 34 行

{
  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);
}