creating guidelines across pages that have different orientation

But if you must you can create separate layers for the guides. Pg 1 Guides/No print, Pg 2 Guides/No print etc. Then manually move those guides to that layer. Select one guide then cntrl+a selects them all then drag to the layer.

Layout and bleed purposes...

Another way is to automate process via macro

Sub MyGuides()
Dim p As Page, x#, y#, h#, w#, al As Layer, b#

Set al = ActiveDocument.ActivePage.ActiveLayer
ActiveDocument.BeginCommandGroup ("MyGuides")
MsgBox (ActiveDocument.Unit)
b = InputBox("ENTER BLEED" & vbCr & "(in inches)")

For Each p In ActiveDocument.Pages
p.Activate
p.GetBoundingBox x, y, w, h
p.GuidesLayer.Activate
ActivePage.ActiveLayer.Shapes.All.Unlock
ActivePage.ActiveLayer.Shapes.All.Delete
ActiveLayer.CreateGuide x, 0, x, h
ActiveLayer.CreateGuide x + w, 0, x + w, h
ActiveLayer.CreateGuide x, 0, w, 0
ActiveLayer.CreateGuide x, y + h, x + w, y + h
ActiveLayer.CreateGuide x - b, 0, x - b, h
ActiveLayer.CreateGuide x + w + b, 0, x + w + b, h
ActiveLayer.CreateGuide x, 0 - b, w, 0 - b
ActiveLayer.CreateGuide x - b, y + h + b, x + w + b, y + h + b
ActiveLayer.Shapes.All.Lock
Next p
al.Activate
ActiveDocument.EndCommandGroup
End Sub

Nice work as always Mek!