#

Word Makro: Tabellen durchlaufen
 
In diesem Word Makro Code Beispiel werden alle Tabellen-Elemente in einem Word Dokument bearbeitet.
Dabei werden immer die Inneren Bereiche einer Tabelle übertragen als formatierter Inhalt zu einer anderen Tabelle.
Gezeigt wird: Word Tabellen, Selection und Range

 
Tutorial:

 
 
Der komplette Word Makro Code in vba (visual basic for applications):

Sub Makro1()
 
'< init >
Dim doc As Document
Set doc = ActiveDocument
'</ init >

Dim intCount As Integer
intCount = doc.tables.Count
'half 4->2
Dim intHalf As Integer
intHalf = intCount / 2
 
'--< Table >--
Dim iTable As Integer
For iTable = 1 To intHalf
'----< inLoop: table >----
'-< source >-
Dim source_Table_Range As range
Set source_Table_Range = doc.tables(intHalf + iTable).range
source_Table_Range.Select
Selection.Copy
'-</ source >-
 
'-< target >-
Dim target_Table_Range As range
Set target_Table_Range = doc.tables(iTable).range
target_Table_Range.Select
Selection.Delete
Selection.PasteAndFormat wdFormatOriginalFormatting
'-</ target >-
'----</ inLoop: table >----
Next
End Sub
 

 
Mobile

.

123movies