>>7
セーフモードでWordを起動して文書を開いてみる。
(Ctrlを押しながらWord起動→文書をドラッグ＆ドロップ)
問題なく表示されたら、不具合の原因はアドインかも。
http://word2013-help.blogspot.jp/2013/10/com-word20132013.html

>>8
自動でやるならVBAを使うしかない。
Sub hoge()
Dim p As Long
p = Selection.Information(wdNumberOfPagesInDocument)
For i = 1 To p
Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=i
Selection.Style = ActiveDocument.Styles("見出し 1")
Next i
End Sub