Forums Neueste Beiträge
 

Wiederholung des Makros

11/12/2009 - 15:42 von Dietmar Krawinkel | Report spam
Hallo NG,

Ich habe mit dem Makrorekorder folgendes Makro erstellt:

Es sucht nach Tabs, makiert den kompl. Absatz und wendet den Befehl
Text in Tabelle an und formatiert die Tabelle.
So weit so gut. Es funktioniert.

Nun benötige ich aber noch den Code zur Wiederholung des Makros bis es
keine Tabs mehr findet.

Gibt es die Möglichkeit, die beiden Spalten der Tabelle
mit unterschiedlichen Breiten zu definieren?

Hier das Makro:

Sub Tab_finden_in_Tabelle()
'
' Tab_finden_in_Tabelle Makro
' Makro aufgezeichnet am 10.12.2009 von Dietmar Krawinkel
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^t"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.ConvertToTable Separator:=wdSeparateByTabs,
NumColumns:=2, _
NumRows:=1, InitialColumnWidth:=CentimetersToPoints(6),
AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
.Style = "Tabellengitternetz"
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderDiagonalDown).LineStyle =wdLineStyleNone
Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
End Sub

Vielen dank vorab.

Gruß
Dietmar
 

Lesen sie die antworten

#1 Helmut Weber
12/12/2009 - 10:42 | Warnen spam
Hallo Dietmar,


Es sucht nach Tabs, makiert den kompl. Absatz und wendet den Befehl
Text in Tabelle an und formatiert die Tabelle.
So weit so gut. Es funktioniert.

Nun benötige ich aber noch den Code zur Wiederholung des Makros bis es
keine Tabs mehr findet.

Gibt es die Möglichkeit, die beiden Spalten der Tabelle
mit unterschiedlichen Breiten zu definieren?

Hier das Makro:

Sub Tab_finden_in_Tabelle()
'
' Tab_finden_in_Tabelle Makro
' Makro aufgezeichnet am 10.12.2009 von Dietmar Krawinkel
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^t"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With


' untested
While .Execute
' your code plus
With Selection.Tables(1)
.Columns(1).PreferredWidth = 200
.Columns(2).PreferredWidth = 300
End With
Wend

Gruß

Helmut Weber

Vista Small Business, Office XP

Ähnliche fragen