Skip to content

Instantly share code, notes, and snippets.

@tordans
Created October 11, 2010 13:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tordans/620542 to your computer and use it in GitHub Desktop.
Save tordans/620542 to your computer and use it in GitHub Desktop.
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