Instantly share code, notes, and snippets.

What would you like to do?
Read more about this macro for Axure Wireframing-Software at
Sub ApplyTableStyle()
' ApplyTableStyle Makro
' Weist die ausgewählte Tabellenformatvorlage zu.
' More:
' THX @
Dim t As Table
For Each t In ActiveDocument.Tables
t.Style = "AxureTableStyle" 'Specify table style name here
Next t
End Sub
Sub DeleteAllPageBreaks()
' DeleteAllPageBreaks Makro
' Nutzt suchen-ersetzen um alle harten Seitenumbrüche zu löschen (^m ersetzten durch nichts)
' More:
' THX @
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment