title image


Smiley Re: Per VBA Dateien in Word öffnen und mit Wasserzeichen versehen
Hi Michael,



danke für den Tipp, habe es aber gestern Abend noch hinbekommen.



Hier mal das Ganze für jemanden den es vielleicht noch interessiert:









Sub Wasserzeichen_englisch()



i = InputBox("Bitte Pfad eingeben (Beispiel C:\test\")

Ordner = i





'Schleife über alle Dokumente

Dateiname = Dir(i & "*.doc")

Do While Dateiname ""

'"Hauptaktion"

Aktion (Ordner & Dateiname)

Dateiname = Dir()

Loop

End Sub







Sub Aktion(Dateiname)

'Dokument öffnen

Documents.Open Ordner & Dateiname







'++++++++++++++++++++++++++++++++++++



ActiveDocument.Sections(1).Range.Select

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject1, _

"Degussa internal document", "Arial", 1, False, False, 0, 0).Select



Selection.ShapeRange.TextEffect.NormalizedHeight = False

Selection.ShapeRange.Line.Visible = False

Selection.ShapeRange.Fill.Visible = True

Selection.ShapeRange.Fill.Solid

Selection.ShapeRange.Fill.ForeColor.RGB = RGB(122, 122, 122)

Selection.ShapeRange.Fill.Transparency = 0.5

Selection.ShapeRange.Rotation = 315

Selection.ShapeRange.LockAspectRatio = True

Selection.ShapeRange.Height = CentimetersToPoints(1.73)

Selection.ShapeRange.Width = CentimetersToPoints(20.82)

Selection.ShapeRange.WrapFormat.AllowOverlap = True

Selection.ShapeRange.WrapFormat.Side = wdWrapNone

Selection.ShapeRange.WrapFormat.Type = 3

Selection.ShapeRange.RelativeHorizontalPosition = _

wdRelativeVerticalPositionMargin

Selection.ShapeRange.RelativeVerticalPosition = _

wdRelativeVerticalPositionMargin

Selection.ShapeRange.Left = wdShapeCenter

Selection.ShapeRange.Top = wdShapeCenter

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument



'Dokument wieder schließen

ActiveDocument.Save

ActiveDocument.Close







End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: