Looks like it's not easy to fix this. See here and here for more info ?
I have only this:
H = (0.31831 (1 + 7.95775*10^-8 s))/(1 + 7.95775*10^-8 s + 2.53303*10^-14 s^2);
BodePlot[TransferFunctionModel[{H}, s], {w, 10^1, 10^7},
PlotRange -> {{-20, 15}, {10, -20}}, GridLines -> Automatic,
FrameLabel -> {{"",
HoldForm[Text[Magnitude[dB]]]}, {HoldForm[Text[Frequency[Hz]]],
HoldForm[Text[Phase [Radian]]]}},
ScalingFunctions -> {{"Log10", "dB"}, {"Log10", "Radian"}}]
(* Or: *)
BodePlot[TransferFunctionModel[{H}, s], {w, 10^1, 10^7},
PlotRange -> {{-20, 15}, {10, -20}}, GridLines -> Automatic,
FrameLabel -> {{"",
HoldForm[Text[Magnitude[dB]]]}, {HoldForm[Text[Frequency[Hz]]],
HoldForm[Text[Phase [deg]]]}},
ScalingFunctions -> {{"Log10", "dB"}, {"Log10", "Degree"}}]
Regards M.I.