Ontwerpen blanco datasheet

[Sander020]

Hallo allen,

Na wat geknutsel in Photoshop heb ik een A4 afbeelding (21x29,7cm 300dpi CMYK) waar ik een Word template van zou willen maken, voor gebruik als blanco datasheet.

Hoe stel ik Word zo in, dat bij het openen van de template de afbeelding over de volledige A4, dus als achtergrond (niet als watermerk) wordt geladen, zodat ik er textvakken (met transparante achtergrond en zonder rand) overheen kan zetten?

Om het leuk te houden gebruik ik W7 met Office 2010, maar met instructies voor Office 2007 zou het hoop ik ook wel moeten lukken met een beetje zoeken...

Alvast bedankt!

 

[Sander020]

De JPG

Hierbij voor de duidelijkheid ook de JPG. Het orginele Photoshop bestand is te groot om te posten.

 

[snb]

Hiermee zou je een eind moeten komen.
Wijzig de blauwe elementen naar jouw situatie.

Sub Macro16()
    With ActiveDocument.PageSetup
        .TopMargin = CentimetersToPoints(0)
        .BottomMargin = CentimetersToPoints(0)
        .LeftMargin = CentimetersToPoints(0)
        .RightMargin = CentimetersToPoints(0)
        .Gutter = CentimetersToPoints(0)
    End With
    With ActiveDocument.Shapes.AddPicture("[COLOR="blue"]E:\foto\voorbeeld.bmp[/COLOR]", False, True, 0, 0, 596, 665)
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .Left = CentimetersToPoints(0)
        .Top = CentimetersToPoints(0)
        .LockAnchor = False
        .WrapFormat.AllowOverlap = True
        .WrapFormat.Side = wdWrapBoth
        .WrapFormat.DistanceTop = CentimetersToPoints(0)
        .WrapFormat.DistanceBottom = CentimetersToPoints(0)
        .WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
        .WrapFormat.DistanceRight = CentimetersToPoints(0.32)
        .WrapFormat.Type = 3
        .ZOrder 4
    End With
    ActiveDocument.Shapes.AddOLEObject "Forms.TextBox.1", , , , , , , 60, 90
    ActiveDocument.SaveAs [COLOR="Blue"]"E:\test.dot"[/COLOR], wdFormatTemplate
End Sub

 

[Sander020]

snb bedankt voor de snelle reactie. Het draaien van een VB code was voor mij ook een primeurtje maar lijkt gelukt. Het resultaat was bijna goed, ik moest alleen de onderkant van de afbeelding naar beneden slepen.

Ik kan er alleen geen text overheen typen. Via eigenschappen de afbeelding achter de text geplaatst, dan verschijnt de code. Deze kan ik wel verwijderen, maar nieuwe text kan alleen via een text box. Op zich ook precies de bedoeling, maar dan wel met transparante achtergrond en zonder rand. Zit dit in de template zelf of in de instellingen van de text box?

De .dot is te groot om te posten, kan ik evt. wel mailen.

 

[snb]

Eigenschappen textBox: Backstyle = 0 (transparant)

in de macro

With ActiveDocument.Shapes.AddOLEControl("Forms.Textbox.1", 90, j * 20, 72, 18)
    .OLEFormat.Object.BackStyle = 0
End With

 

[Sander020]

Dank!

Is helemaal gelukt!