ワード罫線

Sub Macro5()

Dim shp As Shape

Dim doc As Document

Dim i As Long

Dim cm As Double

Dim y As Double, x As Double, x2 As Double, y2 As Double, dx As Double, dy As Double

Dim xx As Double, xx2 As Double, yy As Double, yy2 As Double

Dim x0 As Double, y0 As Double, xx0 As Double, yy0 As Double

Set doc = Documents("自己中")

cm = 72 / 2.54

x = (2.96) * cm

x2 = (18.5) * cm

y = (2.63) * cm

y2 = (21.2) * cm

dx = (x2 - x) / 40

dy = (y2 - y) / 37

x0 = 2.21 * cm

y0 = 1.98 * cm

xx0 = x0 + 16.6 * cm

yy0 = y0 + 19.5 * cm

For i = -1 To 37

yy = (y + CDbl(i) * dy)

Set shp = doc.Shapes.AddLine(x0, yy, xx0, yy)

shp.Line.DashStyle = msoLineDashDotDot

shp.Line.ForeColor.RGB = RGB(179, 254, 156)

Next i

For i = -1 To 40

xx = x + CDbl(i) * dx

Set shp = doc.Shapes.AddLine(xx, y0, xx, yy0)

shp.Line.DashStyle = msoLineDashDotDot

shp.Line.ForeColor.RGB = RGB(179, 254, 156)

Next i

End Sub