VBAExport

Overview

Package

Class

Use

Deprecated

Index

Home >> All >> org >> crosswire >> bible >> map >> [ model overview ]

PREV CLASS NEXT CLASS

SUMMARY:

JAVADOC |

Sourc code of org.crosswire.bible.map.model.VBAExport

SOURCE |

Download org.crosswire.bible.map.model.VBAExport

DOWNLOAD | NESTED | FIELD | CONSTR | METHOD

DETAIL: FIELD | CONSTR | METHOD

org.crosswire.bible.map.model
Class VBAExport

java.lang.Object
  org.crosswire.bible.map.model.VBAExport

public class VBAExport
extends java.lang.Object

VBAExport takes a Map and exports the data to a Word VBA file. This was developed from a VB macro that looked something like this:

 Attribute VB_Name = "NumberLine"
 
 Option Explicit
 
 Dim shape As FreeformBuilder
 
 Private Const box_width As Single = 20#
 Private Const box_height As Single = 20#
 
 
 '-------------------------------------------------------------------------------
 
 Public Sub RouteMain()
 
   RouteStart 100#, 100#, "1"
 
   RouteContinue 110#, 110#, "2"
   RouteContinue 120#, 120#, "3"
   RouteContinue 130#, 120#, "4"
   RouteContinue 130#, 130#, "5"
   RouteContinue 100#, 130#, "6"
   RouteContinue 90#, 100#, "7"
 
   RouteEnd
 
 End Sub
 
 
 '-------------------------------------------------------------------------------
 
 Private Sub RouteStart(x As Single, y As Single, display As String)
 
   Set shape = ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, x, y)
   RouteAddText x, y, display
 
 End Sub
 
 
 '-------------------------------------------------------------------------------
 
 Private Sub RouteContinue(x As Single, y As Single, display As String)
 
   shape.AddNodes msoSegmentLine, msoEditingAuto, x, y
   RouteAddText x, y, display
 
 End Sub
 
 
 '-------------------------------------------------------------------------------
 
 Private Sub RouteEnd()
 
   Dim route As ShapeRange
 
   shape.ConvertToShape.Select
   Set route = Selection.ShapeRange
 
   route.Fill.Visible = msoFalse
   route.Fill.Transparency = 0#
   route.Line.Weight = 0.75
   route.Line.DashStyle = msoLineSolid
   route.Line.Style = msoLineSingle
   route.Line.Transparency = 0#
   route.Line.Visible = msoTrue
   route.Line.ForeColor.RGB = RGB(255, 0, 0)
   route.Line.BackColor.RGB = RGB(255, 255, 255)
   route.Line.BeginArrowheadLength = msoArrowheadLengthMedium
   route.Line.BeginArrowheadWidth = msoArrowheadWidthMedium
   route.Line.BeginArrowheadStyle = msoArrowheadNone
   route.Line.EndArrowheadLength = msoArrowheadLengthMedium
   route.Line.EndArrowheadWidth = msoArrowheadWidthMedium
   route.Line.EndArrowheadStyle = msoArrowheadNone
 
   'route.LockAspectRatio = msoFalse
   'route.Height = 115.35
   'route.Width = 333.05
   'route.Rotation = 0#
   'route.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
   'route.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
 
   'route.LockAnchor = False
   'route.WrapFormat.AllowOverlap = True
   'route.WrapFormat.Side = wdWrapBoth
   'route.WrapFormat.DistanceTop = CentimetersToPoints(0)
   'route.WrapFormat.DistanceBottom = CentimetersToPoints(0)
   'route.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
   'route.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
   'route.WrapFormat.Type = 3
 
   route.ZOrder msoSendToBack
   route.IncrementLeft box_width / 2
   route.IncrementTop box_height / 2
 
 End Sub
 
 
 '-------------------------------------------------------------------------------
 
 Private Sub RouteAddText(x As Single, y As Single, display As String)
 
   Dim box As shape
 
   Set box = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, x, y, box_width, box_width)
 
   box.TextFrame.TextRange.Text = display
   box.Fill.Visible = msoFalse
   box.Fill.Transparency = 0#
   box.Line.Weight = 0.75
   box.Line.DashStyle = msoLineSolid
   box.Line.Style = msoLineSingle
   box.Line.Transparency = 0#
   box.Line.Visible = msoFalse
 
   'box.ScaleWidth 0.38, msoFalse, msoScaleFromTopLeft
   'box.ScaleHeight 0.25, msoFalse, msoScaleFromTopLeft
 
   'box.LockAspectRatio = msoFalse
   'box.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
   'box.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
   'box.LockAnchor = False
 
   'box.WrapFormat.AllowOverlap = True
   'box.WrapFormat.Side = wdWrapBoth
   'box.WrapFormat.DistanceTop = CentimetersToPoints(0)
   'box.WrapFormat.DistanceBottom = CentimetersToPoints(0)
   'box.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
   'box.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
   'box.WrapFormat.Type = 3
 
   'box.ZOrder 5
 
   'box.TextFrame.MarginLeft = 7.09
   'box.TextFrame.MarginRight = 7.09
   'box.TextFrame.MarginTop = 3.69
   'box.TextFrame.MarginBottom = 3.69
 
   'box.IncrementLeft 47.7
   'box.IncrementTop 47.7
   'box.Left = CentimetersToPoints(1)
   'box.Top = CentimetersToPoints(0.23)
   'box.Height = 18.15
   'box.Width = 26.95
 
 End Sub
 
 '-------------------------------------------------------------------------------

Distribution Licence:
Project B is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License, version 2 as published by the Free Software Foundation.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
The License is available on the internet here, by writing to Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA, Or locally at the Licence link below.
The copyright to this program is held by it's authors.

Version:: D0.I0.T0

Field Summary

private int x_mag
          The x magnification factor

private int y_mag
          The y magnification factor

Constructor Summary

VBAExport()
          Basic constructor

Method Summary

void export(Map map, java.io.PrintWriter out)
          Export the given Map file to the given stream

protected static void exportPreamble(java.io.PrintWriter out)
          The common bits at the start of every file

protected static void exportSubRouteAddText(java.io.PrintWriter out)
          The common bits at the start of every file

protected static void exportSubRouteContinue(java.io.PrintWriter out)
          The common bits at the start of every file

protected static void exportSubRouteEnd(java.io.PrintWriter out)
          The common bits at the start of every file

protected static void exportSubRouteStart(java.io.PrintWriter out)
          The common bits at the start of every file

void setXMagnification(int x_mag)
          How much do we magnify the original coords (0.0 - 1.0) by to get the desired output range.

void setYMagnification(int y_mag)
          How much do we magnify the original coords (0.0 - 1.0) by to get the desired output range.

Methods inherited from class java.lang.Object

clone, equals, finalize, getClass, hashCode, notify, notifyAll, toString, wait, wait, wait

Field Detail

x_mag

private int x_mag

The x magnification factor

y_mag

private int y_mag

The y magnification factor

Constructor Detail

VBAExport

public VBAExport()

Basic constructor

Method Detail

setXMagnification

public void setXMagnification(int x_mag)

How much do we magnify the original coords (0.0 - 1.0) by to get the desired output range. The default is 500 which will fit on an A4 sheet of paper

setYMagnification

public void setYMagnification(int y_mag)

How much do we magnify the original coords (0.0 - 1.0) by to get the desired output range. The default is 500 which will fit on an A4 sheet of paper

export

public void export(Map map,
                   java.io.PrintWriter out)

Export the given Map file to the given stream