Evaulate the next cell on your system---it will create a palette.

With the palette being the active window, use the "install" item under the "File" menu.

Give the palette a useful name such as "Helper" and save in your user base directory.  The next time you start mathematica, you will have a palette available under the Palettes menu called "Helper"

SetOptions[CreateDocument[PaletteNotebook[Grid[Partition[{Button[TextCell["Tutorial Overviews"],Module[{columns=4,width=27,rows,overviewNames,docpaths,shortenstring,stringsubs,removebadspaces},SetDirectory[ToFileName[{$InstallationDirectory,"Documentation","English","System","Tutorials"}]];
overviewNames=StringReplace[#,{".nb"->""}]&/@FileNames["*Overview.nb"];
SetDirectory[$HomeDirectory];
docpaths=FileNames["*Overview.nb",{ToFileName[{$InstallationDirectory,"Documentation","English","System","Tutorials"}]}];
shortenstring:=If[StringLength[#]≤width,#,StringTake[#,width-2]<>"..."]&;
stringsubs:=StringReplace[#,{"Overview"->"","And"->" &",StartOfString~~"The"->"","Administration"->" Admin","TwoDimensional"->" 2D","Operations"->" Ops",z_?UpperCaseQ:>" "<>z}]&;
removebadspaces:=StringReplace[#,{x__?UpperCaseQ~~" "~~y_?UpperCaseQ~~" "~~z_?UpperCaseQ:>x<>y<>z,y_?UpperCaseQ~~" "~~z_?UpperCaseQ:>y<>z}]&;
CreateDocument@PaletteNotebook[Grid[Transpose@Partition[PadRight[#,columns*(rows=Ceiling[Length[#]/columns]),Button[TextCell[" "]]],rows]&@((Button[TextCell[shortenstring@removebadspaces@stringsubs@First[#]],
(NotebookOpen[Last[#]]),Evaluator->Automatic]&)/@Transpose[{overviewNames,docpaths}])],ButtonBoxOptions->{BaseStyle->{FontSize->9,FontFamily->"Arial",Bold},FrameMargins->{{2,2},{0,0}},Background->RGBColor[1,0.96,0.87]},GridBoxOptions->{RowSpacings->0,ColumnSpacings->0},WindowTitle->"Tutorial Overviews"]]],

Button[TextCell["Package Docs"],
Module[{columns=3,width=28,rows,pkgNames,docpaths,shortenstring,stringsubs,removebadspaces},SetDirectory[ToFileName[{$InstallationDirectory,"Documentation","English","Packages"}]];
pkgNames=DeleteCases[FileNames[],"Compatibility"];
SetDirectory[$HomeDirectory];
docpaths=Flatten[FileNames["*.nb",ToFileName[{$InstallationDirectory,"Documentation","English","Packages",#,"Documentation","English","Guides"}]]&/@pkgNames];
pkgNames=StringReplace[#,{DirectoryName[#]->"",".nb"->"","Package"->""}]&/@docpaths;
shortenstring:=If[StringLength[#]≤width,#,StringTake[#,width-2]<>"..."]&;
stringsubs:=StringReplace[#,{"Overview"->"","And"->" &",StartOfString~~"The"->"","Administration"->" Admin","TwoDimensional"->" 2D","Operations"->" Ops",z_?UpperCaseQ:>" "<>z}]&;
removebadspaces:=StringReplace[#,{x__?UpperCaseQ~~" "~~y_?UpperCaseQ~~" "~~z_?UpperCaseQ:>x<>y<>z,y_?UpperCaseQ~~" "~~z_?UpperCaseQ:>y<>z}]&;
CreateDocument@PaletteNotebook[Grid[Transpose@Partition[PadRight[#,columns*(rows=Ceiling[Length[#]/columns]),Button[TextCell[" "]]],rows]&@((Button[TextCell[shortenstring@removebadspaces@removebadspaces@stringsubs@First[#]],(NotebookOpen[Last[#]]),Evaluator->Automatic]&)/@Transpose[{pkgNames,docpaths}])],GridBoxOptions->{RowSpacings->0,ColumnSpacings->0},ButtonBoxOptions->{BaseStyle->{FontSize->9,FontFamily->"Arial",Bold},FrameMargins->{{2,2},{0,0}},Background->RGBColor[1,0.96,0.87]},WindowTitle->"Package Docs"]]],

Button[TextCell["Compatibility Guides"],Module[{columns=1,width=28,rows,guideNames,docpaths,shortenstring,stringsubs,removebadspaces},SetDirectory[ToFileName[{$InstallationDirectory,"Documentation","English","Packages","Compatibility","Documentation","English","Guides"}]];
guideNames=FileNames[];
SetDirectory[$HomeDirectory];
docpaths=Flatten[FileNames["*.nb",ToFileName[{$InstallationDirectory,"Documentation","English","Packages","Compatibility","Documentation","English","Guides",#}]&/@guideNames]];
guideNames=StringReplace[#,{DirectoryName[#]->"","UpgradingInformation.nb"->""}]&/@docpaths;
shortenstring:=If[StringLength[#]≤width,#,StringTake[#,width-2]<>"..."]&;
stringsubs:=StringReplace[#,{"Overview"->"","And"->" &",StartOfString~~"The"->"","Administration"->" Admin","TwoDimensional"->" 2D","Operations"->" Ops",z_?UpperCaseQ:>" "<>z}]&;
removebadspaces:=StringReplace[#,{x__?UpperCaseQ~~" "~~y_?UpperCaseQ~~" "~~z_?UpperCaseQ:>x<>y<>z,y_?UpperCaseQ~~" "~~z_?UpperCaseQ:>y<>z}]&;
CreateDocument@PaletteNotebook[Grid[Transpose@Partition[PadRight[#,columns*(rows=Ceiling[Length[#]/columns]),Button[TextCell[" "]]],rows]&@((Button[TextCell[shortenstring@removebadspaces@stringsubs@First[#]],(NotebookOpen[Last[#]]),Evaluator->Automatic]&)/@Transpose[{guideNames,docpaths}])],GridBoxOptions->{RowSpacings->0,ColumnSpacings->0},ButtonBoxOptions->{BaseStyle->{FontSize->10,FontFamily->"Arial",Bold},FrameMargins->{{2,2},{0,0}},Background->RGBColor[1,0.96,0.87]},WindowTitle->"Compatibility Guides"]]],TextCell[" ",FontSize->1]},1]],TextAlignment->"Center",GridBoxOptions->{RowSpacings->.5},CellMargins->{{3,0},{0,4}},ButtonBoxOptions->{BaseStyle->{FontSize->11,FontFamily->"Arial",Bold},FrameMargins->{{2,2},{2,2}},Background->RGBColor[1,0.96,0.87]}]],WindowTitle->None,Background->RGBColor[0.789303,0.223056,0.206744],WindowFrameElements->{"MinimizeBox","CloseBox"},WindowSize->{136,86},Saveable->True];