说明：可以为低级职业加盾加buff。在和一些低级玩家组队或是公会带新人帮忙时非常有用。
我自己copy了官方链接中的宏，测试成功，无问题。
直接copy下面的宏，由于有些论坛格式的限制，我稍微改动了一下，相信没问题，如果不行，打开官方地址copy。

--------------------------------------------------------------------------------------
Power Word: Fortitude
/script r=Spell_Rank;l={1,12,24,36,48,60};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Power Word: Fortitude(Rank "..i..")");break;end;end;end

Example for a Level 60 Priest:
/script r=6;l={1,12,24,36,48,60};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Power Word: Fortitude(Rank "..i..")");break;end;end;end



Shadow Protection
/script r=Spell_Rank;l={30,42,56};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Shadow Protection(Rank "..i..")");break;end;end;end

Example for a Level 60 Priest:
/script r=3;l={30,42,56};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Shadow Protection(Rank "..i..")");break;end;end;end



Power Word: Shield
/script r=Spell_Rank;l={6,12,18,24,30,36,42,48,54,60};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Power Word: Shield(Rank "..i..")");break;end;end;end

Example for a Level 60 Priest:
/script r=10;l={6,12,18,24,30,36,42,48,54,60};t=UnitLevel("target");if (t==0) then t=UnitLevel("player");end;if UnitIsFriend("player","target") then for i=r,1,-1 do if (t>=l[i]-10) then CastSpellByName("Power Word: Shield(Rank "..i..")");break;end;end;end


Macro for Self-Casting Spells
/script r=Spell_Rank;TargetByName("name");CastSpellByName("Spell_Name(Rank "..r..")");