Problem mit Word
12.03.2004 18:42:51
Melanie
ich weiß, dass ihr für Word eigentlich nicht die richtigen Ansprechpartner seid, aber vielleicht habt ihr ja doch einen Tipp für mich. Ich fügen öfters irgendwelche Texte in Word ein und habe dann ein Makro, mit dem sie gleich weiterverarbeitet werden. Das Problem ist nur, dass die eingefügten Objekte häufig nicht in der obersten Zeile sondern erst in der zweiten oder dritten Zeile stehen. Dann funktioniert das Makro aber nicht richtig. Ich schick euch mal meinen Code mit. Ist es möglich, dass die eingefügten Text automatisch in Zeile 1 beginnen? Wäre toll!
Gruß
Mel
Sub Regios()
Selection.SetRange Start:=ActiveDocument.Paragraphs(1).Range.Start, _
End:=ActiveDocument.Paragraphs(2).Range.End - 1 'ohne Absatzmarke
With Selection.Font
.Bold = True
.Size = 10
End With
Selection.WholeStory
Selection.Font.Size = 4
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(2.5)
.BottomMargin = CentimetersToPoints(2.5)
.LeftMargin = CentimetersToPoints(0.5)
.RightMargin = CentimetersToPoints(0.5)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(14.8)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
End With
Selection.SetRange Start:=ActiveDocument.Paragraphs(1).Range.Start, _
End:=ActiveDocument.Paragraphs(2).Range.End - 1 'ohne Absatzmarke
With Selection.Font
.Bold = True
.Size = 10
End With
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub