Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Read more about this macro for Axure Wireframing-Software at http://uxzentrisch.de/tipps-fuer-axure-konzepte/
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
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment