The only way to do it (without cheating is to find a Pokemon convention, or some other person) you can find a cheat for it on IGN.
Chat with our AI personalities
there are 151 pokemans in all
In Pokemon Yellow, Moltres can be found on Victory Road. _____ Going towards Indigo Plateau or the Pokemon League, near the exit of Victory Road (you have to have all the badges to get there), you will find Moltres.
The color shards you can find in Pokemon Platinum are Red, Blue, Green, and Yellow Shards.
I've checked and double-checked and found an instance of all 151 original Pokemon within the book's eight scenes. Unless I imagined one, that question seems to have been an elaborate troll.
Here is a list of all 150 Pokemon: http://www.serebii.net/diamondpearl/shinoudex.shtml The last Pokemon listed (#151) is not required to get the national pokedex.