Nicholas King said:Post your attempt at a solution, then people will be able to see what's going wrong.
I managed to get one working for Excel, but I've hit a wall with Word and don't quite know how to proceed:
Sub zadaca()
range("A1").Select
ActiveCell.FormulaR1C1 = "1."
range("B1").Select
ActiveCell.FormulaR1C1 = "kata"
range("C1").Select
ActiveCell.FormulaR1C1 = "Catherine"
range("A1").Select
Selection.AutoFill Destination:=range("A1:A20"), Type:=xlFillDefault
range("A1:A20").Select
range("B1").Select
Selection.AutoFill Destination:=range("B1🙂20"), Type:=xlFillDefault
range("B1🙂20").Select
range("C1").Select
Selection.AutoFill Destination:=range("C1:C20"), Type:=xlFillDefault
range("C1:C20").Select
range("B1").Select
ActiveCell.FormulaR1C1 = "Kata"
range("B1").Select
Selection.AutoFill Destination:=range("B1🙂20"), Type:=xlFillDefault
range("B1🙂20").Select
range("A2").Select
ActiveCell.FormulaR1C1 = "2"
range("A3").Select
ActiveCell.FormulaR1C1 = "3"
range("A4").Select
ActiveCell.FormulaR1C1 = "4."
range("A2").Select
ActiveCell.FormulaR1C1 = "2."
range("A3").Select
ActiveCell.FormulaR1C1 = "3."
range("A5").Select
ActiveCell.FormulaR1C1 = "5"
range("A5").Select
ActiveCell.FormulaR1C1 = "5."
range("A6").Select
ActiveCell.FormulaR1C1 = "6."
range("A7").Select
ActiveCell.FormulaR1C1 = "7."
range("A8").Select
ActiveCell.FormulaR1C1 = "8."
range("A9").Select
ActiveCell.FormulaR1C1 = "9."
range("A10").Select
ActiveCell.FormulaR1C1 = "10"
range("A10").Select
ActiveCell.FormulaR1C1 = "10."
range("A11").Select
ActiveCell.FormulaR1C1 = "11."
range("A12").Select
ActiveCell.FormulaR1C1 = "12."
range("A13").Select
ActiveCell.FormulaR1C1 = "13."
range("A14").Select
ActiveCell.FormulaR1C1 = "14."
range("A15").Select
ActiveCell.FormulaR1C1 = "15."
range("A16").Select
ActiveCell.FormulaR1C1 = "16."
range("A17").Select
ActiveCell.FormulaR1C1 = "17."
range("A18").Select
ActiveCell.FormulaR1C1 = "18."
range("A19").Select
ActiveCell.FormulaR1C1 = "19."
range("A20").Select
ActiveCell.FormulaR1C1 = "20."
range("C20").Select
select end Sub
this is for Excel
Now, for Word—I turn on the macro recorder, enable numbering, and then start typing from 1 to 20, Kata, Catherine, line by line, and once I hit stop...
it works, but I can't actually see any code.😢