Here's a quick VB Script that does that:
Channel = 1
WavFilePath = ChnPropValGet(Channel, "sourcedatafilepath") & ChnPropValGet(Channel, "sourceparentname") & ".wav"
Call ChnWfPropSet(Channel, "Time", "s", 0, 1/41000)Amplitude = MaxV(Abs(CMin(Channel)), CMax(Channel))
Call ChnLinScale(Channel, Channel, 2^31/Amplitude, 0)
Call ChnCharacter(Channel)
IF FilEx(WavFilePath) THEN Call FileDelete(WavFilePath)
Call DataFileSave(WavFilePath, "Audio")