Галактика в вопросах и ответах

Код: Выделить всё

  DELETEFILE(sPath);
  if (MacroFile.OpenFile(sPath, stCreate))
  {
    MacroFile.Writeln('Sub MAC1');
    MacroFile.Writeln('Dim i As Integer');
    MacroFile.Writeln('Range("A19").offset([0], [' + string(NumCol - 1) + ']).Select'); 
    MacroFile.Writeln('With Selection');
    MacroFile.Writeln('.Orientation = 90');
    MacroFile.Writeln('End With');
    MacroFile.Writeln('Range("A19").select');//.offset([0], [' + string(numPostColumn - 1) + ']).Select'); 
    MacroFile.Writeln('With Selection');
    MacroFile.Writeln('.Orientation = 90');
    MacroFile.Writeln('End With');
    MacroFile.Writeln('End Sub');
    MacroFile.Close;
  }