Read more about this macro for Axure Wireframing-Software at http://uxzentrisch.de/tipps-fuer-axure-konzepte/

ApplyAxureTableStyleToAllTables.bas

Sub ApplyTableStyle()
'
' ApplyTableStyle Makro
' Weist die ausgewählte Tabellenformatvorlage zu.
' More: http://uxzentrisch.de/tipps-fuer-axure-konzepte/
'
' THX @ http://www.wordbanter.com/showthread.php?t=142309
'

Dim t As Table
For Each t In ActiveDocument.Tables
t.Style = "AxureTableStyle" 'Specify table style name here
Next t

End Sub

DeleteAllPageBreaksInDocument.bas

Sub DeleteAllPageBreaks()
'
' DeleteAllPageBreaks Makro
' Nutzt suchen-ersetzen um alle harten Seitenumbrüche zu löschen (^m ersetzten durch nichts)
' More: http://uxzentrisch.de/tipps-fuer-axure-konzepte/
'
' THX @ http://www.wer-weiss-was.de/theme155/article1189989.html
'

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^m"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub