Sub AddConstructionFormulas() Dim tbl As Table Dim i As Integer Set tbl = ActiveDocument.Tables(1) For i = 2 To tbl.Rows.Count - 1 ' Neto površina formula tbl.Cell(i, 5).Range.Fields.Add Range:=tbl.Cell(i, 5).Range, _ Type:=wdFieldEmpty, Text:="=C" & i & "*D" & i, PreserveFormatting:=False ' Ukupna površina formula tbl.Cell(i, 7).Range.Fields.Add Range:=tbl.Cell(i, 7).Range, _ Type:=wdFieldEmpty, Text:="=E" & i & "*F" & i, PreserveFormatting:=False Next i
' Total sum at bottom lastRow = tbl.Rows.Count tbl.Cell(lastRow, 7).Range.Fields.Add Range:=tbl.Cell(lastRow, 7).Range, _ Type:=wdFieldEmpty, Text:="=SUM(ABOVE)", PreserveFormatting:=False End Sub Save this table as AutoText or Quick Part (Select table → Insert → Quick Parts → Save Selection to Quick Part Gallery). Name it "Obračunski list" — you can then insert it into any future project with one click. obracunski list gradjevinske knjige obrazac word