Hallo, ich habe in einem word dokument den text in einer tabelle über ein makro formatiert. Und zwar so, dass der text formatiert wird sobald ich über einen selbst erstellten drucken-button gehe. Allerdings habe ich so nicht die möglichkeit beim ducken, die kopf und fußzeile des dokuments nicht mit zu drucken. Wie bekomme ich das hin?: (
Hier mal mein code zur textformatierung...
Sub formatieren_drucken()
Dim i As Integer
Selection.WholeStory
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdLine, Count:=12
With Selection.Font
.Name = "Arial"
.Size = 9
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.Color = wdColorBlack
End With
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Select
With ActiveDocument.Tables(i).Range.Font
.Name = "Arial"
.Size = 9
.Italic = False
.Underline = wdUnderlineNone
.Color = wdColorBlack
End With
formatTable ActiveDocument.Tables(i)
Next i
Selection.WholeStory
Selection.HomeKey Unit:=wdLine
ActiveDocument.PrintOut
End Sub
Hier mal mein code zur textformatierung...
Sub formatieren_drucken()
Dim i As Integer
Selection.WholeStory
Selection.HomeKey Unit:=wdLine
Selection.MoveDown Unit:=wdLine, Count:=12
With Selection.Font
.Name = "Arial"
.Size = 9
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.Color = wdColorBlack
End With
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Select
With ActiveDocument.Tables(i).Range.Font
.Name = "Arial"
.Size = 9
.Italic = False
.Underline = wdUnderlineNone
.Color = wdColorBlack
End With
formatTable ActiveDocument.Tables(i)
Next i
Selection.WholeStory
Selection.HomeKey Unit:=wdLine
ActiveDocument.PrintOut
End Sub