написать ряд цифр от 0000000 до 9999999

[Serge_Bliznykov]

Предлагаю модератору этого раздела перенести эту тему в юмор

я - ЗА!

[SkyM@n]

Сообщение от Serge_Bliznykov

да лично для меня подобная задача не вызывала бы никаких сложностей, уж поверьте мне. Но Вы только представьте, сколько РУЧНЫХ действий понадобится при реализации подобных действий!
Да и целью было получить набор чисел "столбиком"...

Или Вы думаете, что автор вопрос способен написать простенький макрос на VBA (или на том же OpenOffice'е) ?!!!

Автор? Ни в коем случае
Дело в том, что ВБА в ОО - это ужос. Он, конечно, более могуществен, чем ВБА от МО, но... в любом случае, это стОит попробовать.

Сообщение от Serge_Bliznykov

Вот, раз Вы такой поклонник OpenOffice - можете написать макрос под Calc, который заполнит 100 столбцов последовательно числами от 00000000 до 99999999 ?!!

Я не являюсь поклонником ОО. Ибо практически им не пользуюсь.

sub Test
     ' так сказать, агент, который и будет все делать
	dim dispatcher as object 
     ' скажем, что переменная является типом Java'вского PropertyValue
	dim args(0) as new com.sun.star.beans.PropertyValue 
	dim col as integer ' ну, тут понятно
	dim row as integer
     ' делегиреум нашему агенту необходимые привилегии нашего фрейма
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 
	
     ' будем перебирать 100 столбцов
	for col = 1 to 100 
                  ' название нашего парметра для прыжка в необходимую ячейку
		args(0).Name = "ToPoint" 
                  ' передаем адрес ячейки (A1, B1, C1...)
		args(0).Value = chr(96+col) + "1"
                  ' выполяем!
		dispatcher.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:GoToCell", "", 0, args())
		
                ' будем перебирать все доступные нам строки
		for row = 1 to 1048576 
			args(0).Name = "StringName" ' название нашего параметра
			args(0).Value = str(row) ' номер строки
		
                            ' вносим изменения в текущую ячейку
			dispatcher.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:EnterString", "", 0, args()) 
                             ' и двигаемся на следующую
			if row <> 1048576 dispatcher.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:JumpToNextCell", "", 0, Array())
		next
	next
	
end sub

Что касается скорости, то наверное, таки вручную это делать быстрее Что, собственно и предлагалось сделать без какого-либо программирования: в первую строку написал "1", во вторую - "2", а потом обе выделил и потянул в самый низ, пользуясь автоподстановкой.

А при выполнении данного макроса на него уходило 70-75% процессорного времени (в общем, можете попробовать)

[DeKot]

Зачем в раздел "Юмор"? Тема уже "засветилась " в Шедеврах:
http://www.programmersforum.ru/showt...=54368&page=10 посты от #98 до #108.
Я и сейчас считаю тему именно Шедевром ( да, вот так с большой буквы.Честно, меня лично зацепило. Более бессмысленных тем не попадалось, и это при том что рессурсов надо немеряно.) А ведь народ повелся, и советы и коды...

[Sasha_Smirnov]

Чем что-то впихивать в Word — извлечём это из его недр!

Кроме шуток. Всего лишь 100 Мб (100 млн символов абзацев.)

Sub Макрос1(): Static switch As Boolean, n As Long
'программа соответствует вкл./откл. нумерации строк в меню Разметка страницы Word 2007'
If Abs(Not switch) = 1 Then n = n + 1

WordBasic.PageSetupLayout _
    linenum:=Abs(Not switch), _
    StartingNum:=1, FromText:=wdAutoPosition, CountBy:=n Mod 10, _
    NumMode:=2
    
switch = Not switch
    
End Sub

[SkyM@n]

Сообщение от DeKot

А ведь народ повелся, и советы и коды...

А что народу-то нужно. Лишь бы была тема для общения Поэтому "повелся" - немного некорректно, я бы сказал.

[Alar]

5 штрафов за флуд не по теме.

[Sasha_Smirnov]

Сообщение от Alar

5 штрафов за флуд не по теме.

Sub Макрос1(): Static switch As Boolean, n As Long
'программа соответствует вкл./откл. нумерации строк в меню Разметка страницы Word 2007'
If n Mod 10 = 0 Then switch = Not switch

WordBasic.PageSetupLayout _
    linenum:=Abs(switch), _
    StartingNum:=1, FromText:=2, CountBy:=n Mod 10 + 1, _
    NumMode:=IIf(n \ 10 Mod 2, 0, 2)
    
If switch Then n = n + 1
End Sub

Включение/отключение нумерации: по альт-N. При этом можете клавишу Alt и не отпускать (пока нумеруете).

[BARNEY]

офф
простите не сдержался.... в экселе протянуть слабо было??

по разным страницам...

[Stilet]

Все. Закрываю. Ато тут уже все...