Cartesian Joins by rows with the same ID

let
    Source = Excel.CurrentWorkbook(){[Name="YourTableName"]}[Content],
    #"Grouped Rows" = Table.Group(Source, {"ID"}, {{"tbl", (x) => Table.AddColumn( x, "Word_1", each x[Word]), type table}}),
    #"Removed Columns" = Table.RemoveColumns(#"Grouped Rows",{"ID"}),
    #"Expanded {0}" = Table.ExpandTableColumn(#"Removed Columns", "tbl", {"ID", "Word", "Word_1"}, {"ID", "Word", "Word_1"}),
    #"Expanded {0}1" = Table.ExpandListColumn(#"Expanded {0}", "Word_1")
in
    #"Expanded {0}1"