Příkaz pro automatické psaní...
Potřebuju najít stránku nebo jenom nějakej příkaz v pspadu nebo wordu jak udělat následující:
1=101
2=102
3=103
4=104
5=105
Mám takto čísla za sebou a chci aby mě to rovnou vypsalo třeba 100 takto jdoucích čísel po sobě. Třeba 35=135; 56=156 atd... Ručně by to bylo na moc dlouho a nejedná se jenom o sto čísel, ale oi hodně víc. Nevíte o něčem co by to mohlo udělat za mě? DIKY
Kdysi jsem něco podobného potřeboval:
REM soubor EXE_TXT.BAS
REM program pro vytvoreni textoveho souboru slozeneho z cisel 256 - 511
rem a dvou znaku "%%" pred nimi
OPEN "o", #1, "cisla1.txt"
for n=256 to 511
a$= str$(n)+" %%"+str$(n)
print #1, a$
next n
close
END
Takhle vypadal ten textový soubor:
256 %% 256
257 %% 257
258 %% 258
259 %% 259
260 %% 260
261 %% 261
.
.
.
511 %% 511
Tak pokud někde vykutáte QBASIC - byl ještě na instalačkách W98 - a upravíte si to podle vaší potřeby...
Pohrál jsem si s tím a vytvořil jsem (svoje první fungující) makro do wordu (2003):
Sub aa()
'
For n = 0 To 511
Selection.TypeText Text:=Str$(n) + "=" + Str$(n + 100)
Selection.TypeParagraph
Next n
End
'
End Sub