4.zadaca...2009. (zadatak)

[MarBar]

Evo primjera zadatka...

[vinko]

Dim t As Table
Set t = ActiveDocument.Tables.Add(ActiveDocument.Range(), 1, 3)
t.Cell(1, 1).Range.Text = "vinko"
t.Cell(1, 2).Range.Text = "petricevic"
t.Cell(1, 3).Range.Text = "oo"

još primjera se može naći na npr. :

http://www.activexperts.com/activmonitor/windowsmanagement/scripts/msoffice/word/#AFTWDocu.htm


#import "C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE11\\MSO.DLL" rename("RGB", "MSRGB")
#import "C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.olb" raw_interfaces_only, rename("Reference", "MyReference"), rename("VBE", "testVBE")
#import "C:\Program Files\Microsoft Office\Office11\MSWORD.olb" rename("ExitWindows", "MyExitWindow"), rename("VBE", "testVBE"), rename("FindText", "WFindText"), rename("NoPrompt", "WNoPrompt")

int main() {

CoInitialize(0);
Word::_ApplicationPtr application(__uuidof(Word::Application));

Word::_DocumentPtr document = application->Documents->Add(&vtMissing, &vtMissing, &vtMissing, &CComVariant(false));


Word::TablePtr table = document->Tables->Add(document->Range(), 1, 3);
table->Cell(1,1)->Range->Text = "jkjk";

document->SaveAs(&CComVariant("x:\\3.doc"));

application->Quit();

return nRetCode;


}

[Tratincica]

Imam par malih pitanja u vezi zadaće:

Do kada moramo predati četvrtu zadaću?
Da li ćemo dobiti rezultate starih zadaća prije kolokvija?
Da li moramo pisati "u stilu" onog koda iz attachmenta u prvom postu, ili možemo i na način pokazan u postu iznad?

[vinko]

[lyra]

je li nužno pojaviti se na obrani zadaće u srijedu? gužva je ovih dana s ispitima pa bih se, ako to nije nužno za polaganje kolegija, radije odrekla eventualnih bodova s te zadaće

_________________
- Hey, Rachel, how many hipsters does it take to screw in a lightbulb?
- Gee, Jess, how many?
- You don't KNOW?

[vinko]

[vinko]

Evo napokon i rezultati zadaća:

Ime	Prezime	1	2	3	4	Dodatno	Ukupno
		1	2	3	4	Dodatno	Ukupno
Marko	Baržić	5	7	8	5		25
Sanja	Cvetković		8	6	6		20
Eva	Delač	2	8		5		15
Ivan	Doko	7	8				15
Josip	Drgestin	3	8	7	6	2	26
Ksenija	Hodak	4	8	8	3		23
Nikola	Jerić	8	8	8	6		30
Vedrana	Kezele	4	8				12
Marko	Kovačić	2	7				9
Matej	Mihelčić	7	8	8	6	2	31
Hrvoje	Peradin	8		7			15
Ivana	Počepan	8	8				16
Ivan	Rančić		8		6	2	16
Maja	Ribarić	5	5	3	3		16
Ivan	Stojić	8			5	2	15
Slađana	Trač	5	8	8			21

Ako bodovi s neke zadaće nedostaju, neka se vlasnik javi ili mailom ili osobno. 4. zadaća se mora obraniti. Na obrani možete i izgubiti sve bodove i dobiti dodatne. Uvid u zadaće i obrana je danas (8.7) u 12h u Pr3.

Vinko Petričević

[vinko]