title image


Smiley Re: Rechenkästchen in Word?
Sei gegrüßt, once again!



Wollte Dir auch die Lösung vorschlagen, die Du von RPA bekommen hast, war aber nicht schnell genug!



Darüber hinaus habe ich von Wolfram ein Makro bekommen, das auch ich sehr gut gebrauchen kann! (Herzlichen Dank, liebes Wolfrl, schon mal vorab! Hab mich riesig gefreut! Bald kommt wieder mehr!)



Diese schöne Makro-Lösung möchte ich Dir aber nicht vorenthalten! Es erstellt das "Rechenpapier" und man kann es auch drucken (siehst Du gleich, wenn Du die Seitenansicht aufrufst! Aber das wirst Du wissen!



Viel Spaß damit!







Option Explicit



Sub Gitternetz()

   

 

  Const Raster As Single = 0.5  ' Rasterweite in cm

 

  Dim tw As Single, th As Single, plm As Single, ptm As Single

  Dim cx As Long, cy As Long, i As Long, dist As Single

  

  With ActiveDocument.PageSetup

    plm = .LeftMargin:  ptm = .TopMargin

    tw = .PageWidth - plm - .RightMargin

    th = .PageHeight - ptm - .BottomMargin

  End With

  

  dist = CentimetersToPoints(Raster)

  cx = Int(tw / dist): cy = Int(th / dist)

  

  With ActiveDocument.Sections(1).Headers(1)

    For i = 0 To cx

      With .Shapes.AddLine(plm + i * dist, ptm, plm + i * dist, ptm + th).Line

        .Weight = 1: .ForeColor.RGB = RGB(192, 192, 192)

      End With

    Next i

    For i = 0 To cy

      With .Shapes.AddLine(plm, ptm + i * dist, plm + tw, ptm + i * dist).Line

        .Weight = 1: .ForeColor.RGB = RGB(192, 192, 192)

      End With

    Next i

  End With

End Sub







Code eingefügt mit Syntaxhighlighter 2.1









geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: