View All Attachments for Bug 123120

Attachment #148854
Spreadsheet showing bug 123120	application/vnd.oasis.opendocument.spreadsheet	2019-02-02 08:50:12 UTC	1.62 MB	no flags	Details

Attachment cannot be viewed because its MIME type is not text/*, image/*, or application/vnd.mozilla.*. Download the attachment instead.

Attachment #148855
Macro code for spreadsheet	text/html	2019-02-02 08:51:22 UTC	20.79 KB	no flags	Details

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Module1" script:language="StarBasic">global height, width as integer
&apos;global height, width, topgap, leftgap as integer

Sub Main
End Sub



Function HideColumn(sheet as string, col as long, hidden as integer) as boolean
dim oSheet as object, oSheets as object, oColumn as object
  	  	
oSheets = ThisComponent.Sheets
oSheet = oSheets.getByName(sheet)
oColumn = oSheet.getColumns.getByIndex(col)
oColumn.IsVisible = (hidden = 0)
HideColumn = (hidden = 0)
End Function



Private oListener as Object

Private CellRng as Object

Sub AddListener &apos; Tools-&gt;Customize -&gt; Events menu to trigger the AddListener procedure on the Open Document event 
				&apos; and to trigger RmvListener on the Close Document Event
&apos;	Goto Exitpoint2
Dim Doc, Sheet, Cell as Object

Doc = ThisComponent
Sheet = Doc.Sheets.getByName(&quot;g&quot;)  
CellRng = Sheet.getCellrangeByName(&quot;G1:G3&quot;) 

oListener = createUnoListener(&quot;Modify_&quot;,&quot;com.sun.star.util.XModifyListener&quot;)  &apos;create a listener
Cellrng.addModifyListener(oListener)  &apos;register the listener
Exitpoint2:
End Sub

Sub Modify_modified(oEv)  &apos;macro jumps here when oListener detects modification of Sheet
CalledRoutine
End Sub

Sub Modify_disposing(oEv)
End Sub

Sub RmvListener
&apos; CellRng.removeModify_Listener(oListener)
End Sub

Sub CalledRoutine

   	dim oRange     &apos; named range
   	dim oRanges    &apos; All named ranges.
    oRanges = ThisComponent.NamedRanges
	oRange = ThisComponent.NamedRanges.getByName(&quot;width&quot;)
	oW = oRange.getReferredCells()
	oRange = ThisComponent.NamedRanges.getByName(&quot;height&quot;)
	oH = oRange.getReferredCells()
   	
	dim oCell      &apos; Cell object.
	&apos; get width
	oCell = oW.getCellByPosition(0,0)
	dim width as integer
   	width = oCell.getString()
   	 	
   	oCell = oH.getCellByPosition(0,0)
 &apos;  	dim height as integer
   	height = cInt(oCell.getString())
   	
 	&apos; Format $w 
   	&apos; Merge a range of cells 	
&apos;  	dim oSheetw, oSheets, oCursw, oRangew       
&apos;  	dim topgap, leftgap as integer
  	  	
 &apos; 	oSheets = ThisComponent.Sheets
 &apos;  	oSheetw = oSheets.getByName(&quot;w&quot;)
  	
&apos;  	oRange = ThisComponent.NamedRanges.getByName(&quot;topgap&quot;)
&apos;  	oT = oRange.getReferredCells()
&apos;	oCell = oT.getCellByPosition(0,0)
 &apos;  	topgap = oCell.getString()
   	
&apos;   	oRange = ThisComponent.NamedRanges.getByName(&quot;leftgap&quot;)
&apos;  	oT = oRange.getReferredCells()
&apos;	oCell = oT.getCellByPosition(0,0)
&apos;   	leftgap = oCell.getString()
   	
   	&apos; Clear existing merged cells  
&apos;   	dim oRangex, oRangey   	
&apos;   	oRangex = oSheetw.getCellRangeByName(&quot;A1:AZ100&quot;)
&apos;    oRangex.merge(False)
         	   
    &apos; Create new merged area   
&apos;  	oCursw  = oSheetw.createCursorByRange(oSheetw.getCellRangeByPosition(leftgap-1,topgap,leftgap+31,topgap+64))
    	
&apos;  	for column = 0 to width - 1
&apos;  		for row = 0 to height - 1
&apos;  	  		oRangey = oCursw.getCellRangeByPosition(column, row * 2, column, row * 2 + 1)
 &apos; 			oRangey.merge(True)
&apos;  		Next
 &apos; 	Next
  	
  	&apos; Set columns to correct width
&apos;  	dim A2cell, oRangez, A2Size, oColumnsz
 &apos; 	dim cellsize as Long
&apos;   	A2cell = osheetw.getCellByPosition(0,1)
 &apos;  	A2Size = A2cell.Size
&apos;  	cellsize = A2Size.Height
    &apos; Double width columns
&apos;  	oRangez = oSheetw.getCellRangeByPosition(leftgap-1,0,leftgap+width,0)
&apos;  	oColumnsz = oRangez.getColumns()
&apos;   	oColumnsz.Width = cellsize * 2  
   	&apos; Single width columns	
&apos;	oRangez = oSheetw.getCellRangeByPosition(leftgap+width,0,leftgap+133,0)
 &apos; 	oColumnsz = oRangez.getColumns()
&apos;   	oColumnsz.Width = cellsize 
   	&apos; Rewrite input area
&apos;   	dim oSheetfw, oCursorfw, oCursorw, oArray
&apos;   	oSheetfw = oSheets.getByName(&quot;fw&quot;)
&apos;   	oCursorfw  = oSheetfw.createCursorByRange(oSheetfw.getCellRangeByPosition(0,0,31,31))
&apos;   	oArray = oCursorfw.getFormulaArray()
&apos;   	oCursorw = oSheetw.createCursorByRange(oSheetw.getCellRangeByPosition(leftgap-1,0,leftgap+30,31))
 &apos;   oCursorw.setFormulaArray(oArray)

	&apos; Format $x 
   	&apos; Merge a range of cells 
&apos;   	dim osheets	
  	dim oSheetx, oCursx, oRanger       
  	dim xtoprow as integer
  	  	
  	oSheets = ThisComponent.Sheets
   	oSheetx = oSheets.getByName(&quot;x&quot;)
  	
  	oRanger = ThisComponent.NamedRanges.getByName(&quot;xtoprow&quot;)
  	oT = oRanger.getReferredCells()
	oCell = oT.getCellByPosition(0,0)
   	xtoprow = oCell.getString()
   	
 &apos;  	oRange = ThisComponent.NamedRanges.getByName(&quot;leftgap&quot;)
 &apos; 	oT = oRange.getReferredCells()
&apos;	oCell = oT.getCellByPosition(0,0)
  &apos; 	leftgap = oCell.getString()
   	
   	&apos; Clear existing merged cells  
  &apos; 	dim oRangex, oRangey   	
&apos;  	oSheetg = oSheets.getByName(&quot;g&quot;)
  &apos;&apos;	oCursorg  = oSheetg.createCursorByRange(oSheetg.getCellRangeByPosition(8,5,8+31,5+31))
  &apos; 	Flags = 23
&apos;	oCursorg.clearContents(Flags)
&apos;	oCursorg.CellStyle = &quot;Default&quot;
   	oRangex = oSheetx.getCellRangeByName(&quot;AA1:BF100&quot;)
    oRangex.merge(False)
    oRangex.clearContents(23)
    oRangex.CellStyle = &quot;Default&quot;
         	   
    &apos; Create new merged area   
  	oCursx  = oSheetx.createCursorByRange(oSheetx.getCellRangeByPosition(26,xtoprow,26+31,xtoprow+64))
   	for column = 0 to width - 1
  		for row = 0 to height - 1
  	  		oRangey = oCursx.getCellRangeByPosition(column, row * 2, column, row * 2 + 1)
  			oRangey.merge(True)
  		Next
  	Next
  	
  	&apos; Set columns to correct width
 &apos; 	dim A2cell, oRangez, A2Size, oColumnsz
  &apos;	dim cellsize as Long
&apos;   	A2cell = osheetx.getCellByPosition(0,1)
  &apos; 	A2Size = A2cell.Size
 &apos; 	cellsize = A2Size.Height
    &apos; Double width columns
 &apos; 	oRangez = oSheetx.getCellRangeByPosition(xtoprow-1,0,xtoprow+width,0)
 &apos; 	oColumnsz = oRangez.getColumns()
 &apos;  	oColumnsz.Width = cellsize * 2  
   	&apos; Single width columns	
&apos;&apos;	oRangez = oSheetw.getCellRangeByPosition(leftgap+width,0,leftgap+133,0)
 &apos; 	oColumnsz = oRangez.getColumns()
 &apos;  	oColumnsz.Width = cellsize 
   	&apos; Rewrite input area
   	dim oSheetxw, oCursorxw, oCursorx2, oArrayxw
   	oSheetxw = oSheets.getByName(&quot;xw&quot;)
   	oCursorxw  = oSheetxw.createCursorByRange(oSheetxw.getCellRangeByPosition(0,0,31,63))
   	oArrayxw = oCursorxw.getFormulaArray()
   	oCursorx2 = oSheetx.createCursorByRange(oSheetx.getCellRangeByPosition(26,xtoprow,26+31,xtoprow+63))
    oCursorx2.setFormulaArray(oArrayxw)
    &apos; Set input area (for mode 3)
    dim mode as integer
   	oRanger = ThisComponent.NamedRanges.getByName(&quot;mode&quot;)
  	oT = oRanger.getReferredCells()
	oCell = oT.getCellByPosition(0,0)
   	mode = oCell.getString() 
 
   	If mode = 3 then
   		dim oRangex3
   		oRangex3 = oSheetx.getCellRangeByPosition(26,0,26+width-1,height-1)
		oRangex3.CellStyle = &quot;input&quot;
   	End if   
            
    &apos; Format $g 
   	&apos; Clear input &amp; result areas 	
  	dim oSheetg, oCursorg, oRangeg, oArrayg
  	dim Flags as integer
  	    
  	oSheetg = oSheets.getByName(&quot;g&quot;)
  	oCursorg  = oSheetg.createCursorByRange(oSheetg.getCellRangeByPosition(8,5,8+31,5+31))
   	Flags = 23
	oCursorg.clearContents(Flags)
	oCursorg.CellStyle = &quot;Default&quot;
	
	&apos; Set input area
	oRangeg = oCursorg.getCellRangeByPosition(0,0,width-1,height-1)
	oRangeg.CellStyle = &quot;input&quot;
	
	&apos; Set result area
	dim oSheetfg, oCursorfg, oArrayfg
	oSheetfg = oSheets.getByName(&quot;fg&quot;)
	oCursorfg  = oSheetfg.createCursorByRange(oSheetfg.getCellRangeByPosition(0,0,width,height)) 
	oArrayfg = oCursorfg.getFormulaArray()
	oCursorfg = oSheetg.createCursorByRange(oSheetg.getCellRangeByPosition(8,5+height+1,8+width,5+2*height+1)) 
	oCursorfg.setFormulaArray(oArrayfg)
Exitpoint:   	
   
End Sub

Function quad(nwd,ned,swd,sed,nwa,nea,swa,sea) as String

quad= &quot;&quot;
For wd = 1 to len(nwd)
	For na = 1 to len(nwa)
		If mid(nwd,wd,1) = mid(nwa,na,1) Then &apos; nw cell
			For ed = 1 to len(ned)
				If mid(nea,na,1) = mid(ned,ed,1) Then &apos; ne cell
					For sa = 1 to len(sea)
						If mid(sed,ed,1) = mid(sea,sa,1) Then &apos; se cell
						 	If mid(swa,sa,1) = mid(swd,wd,1) Then &apos; sw cell
						 		quad = quad &amp; mid(nwd,wd,1) &amp; mid(nea,na,1) &amp; mid(sed,ed,1) &amp; mid(swd,wd,1)
						 	End If
						End If
					Next
				End If
			Next	
		End If
	Next
Next
End Function

function doBorder (b as integer) as object
	dim oBorder
	oBorder = CreateUnoStruct(&quot;com.sun.star.table.BorderLine&quot;)
	select case b
		case 0
			&apos; undefined, do nothing
		case 1
			oBorder.OuterLineWidth = 0
		case 2	
			oBorder.OuterLineWidth = 35
			oBorder.Color = RGB(0,0,0) &apos; black
		case 3
			oBorder.OuterLineWidth = 60	
			oBorder.Color = RGB(192,192,192) &apos; grey
		case 4
			oBorder.OuterLineWidth = 60	
			oBorder.Color = RGB(0,0,0) &apos; black
	end select	
	doBorder = oBorder	
end function

private oListenerw, oListenerb as object
private CellRngw, CellRngb as object

sub AddListenerw &apos; Tools-&gt;Customize -&gt; Events menu to trigger the AddListener procedure on the Open Document event 
				&apos; and to trigger RmvListener on the Close Document Event
	dim Doc as object

	Doc = ThisComponent
	CellRngw = Doc.NamedRanges.getByName(&quot;wh&quot;).ReferredCells
	oListenerw = createUnoListener(&quot;Modifyw_&quot;,&quot;com.sun.star.util.XModifyListener&quot;)  &apos;create a listener
	CellRngw.addModifyListener(oListenerw)  &apos;register the listener

	dim CellRnggp as object	
	CellRnggp = Doc.NamedRanges.getByName(&quot;grid_par&quot;).ReferredCells 
	CellRngb = CellRnggp.getCellRangeByPosition(6,0,6,511) &apos; hash column

	oListenerb = createUnoListener(&quot;Modifyb_&quot;,&quot;com.sun.star.util.XModifyListener&quot;)  &apos;create a listener
	CellRngb.addModifyListener(oListenerb)  &apos;register the listener

End Sub

Sub Modifyb_modified(oEv)  &apos;macro jumps here when oListener detects modification of Sheet
	CalledRoutineb
End Sub

Sub Modifyb_disposing(oEv)
End Sub

Sub RmvListenerb
	CellRngb.removeModifyListener(oListenerb)
End Sub

Sub Modifyw_modified(oEv)  &apos;macro jumps here when oListener detects modification of Sheet
	CalledRoutinew
End Sub

Sub Modifyw_disposing(oEv)
End Sub

Sub RmvListenerw
&apos; 	CellRngw.removeModifyListener(oListenerw)
End Sub

Sub CalledRoutinew

	dim oRange     &apos; named range
   	dim oRanges    &apos; All named ranges.
   	dim Doc as object
   	Doc = ThisComponent
    oRanges = Doc.NamedRanges
	oRange = Doc.NamedRanges.getByName(&quot;width&quot;)
	oW = oRange.getReferredCells()
	oRange = Doc.NamedRanges.getByName(&quot;height&quot;)
	oH = oRange.getReferredCells()
   	
	dim oCell      &apos; Cell object.
	&apos; get width
	oCell = oW.getCellByPosition(0,0)
&apos;	dim width as integer
   	width = cInt(oCell.getString())
   	 	
   	oCell = oH.getCellByPosition(0,0)
 &apos;  	dim height as integer
   	height = cInt(oCell.getString())
   	
 	&apos; Format $w 
   	&apos; Merge a range of cells 	
  	dim oSheetw, oSheets, oCursw, oRangew       
&apos;  	dim topgap, leftgap as integer
  	  	
&apos;  	oSheets = ThisComponent.Sheets
&apos;   	oSheetw = oSheets.getByName(&quot;w&quot;)
  	
&apos;  	oRange = ThisComponent.NamedRanges.getByName(&quot;topgap&quot;)
&apos;  	oT = oRange.getReferredCells()
&apos;	oCell = oT.getCellByPosition(0,0)
&apos;   	topgap = cInt(oCell.getString())
   	
&apos;   	oRange = ThisComponent.NamedRanges.getByName(&quot;leftgap&quot;)
&apos;  	oT = oRange.getReferredCells()
&apos;	oCell = oT.getCellByPosition(0,0)
&apos;   	leftgap = cInt(oCell.getString())
   	
   	&apos; demerge existing merged cells  
&apos;   	dim oRangex, oRangey   	
&apos;   	oRangex = oSheetw.getCellRangeByName(&quot;A1:AZ100&quot;)
&apos;    oRangex.merge(False)
    
    &apos; clear all grids area
&apos;    dim Flags as integer
&apos;    oCursorw  = oSheetw.createCursorByRange(oSheetw.getCellRangeByPosition(leftgap-1,0,leftgap+130,65))
&apos;   	Flags = 23 + 96
&apos;	oCursorw.clearContents(Flags)
&apos;	oCursorw.CellStyle = &quot;grids&quot;
	         	   
    &apos; Create new merged area   
&apos;  	oCursw  = oSheetw.createCursorByRange(oSheetw.getCellRangeByPosition(leftgap-1,topgap,leftgap+31,topgap+64))
    	
&apos;  	for column = 0 to width - 1
 &apos; 		for row = 0 to height - 1
 &apos; 	  		oRangey = oCursw.getCellRangeByPosition(column, row * 2, column, row * 2 + 1)
 &apos; 			oRangey.merge(True)
 &apos; 		Next
 &apos; 	Next
  	
  	&apos; Set columns to correct width
&apos;  	dim A2cell, oRangez, A2Size, oColumnsz
&apos;  	dim cellsize as Long
&apos;   	A2cell = osheetw.getCellByPosition(0,1)
&apos;   	A2Size = A2cell.Size
&apos;  	cellsize = A2Size.Height
    &apos; Double width columns
&apos;  	oRangez = oSheetw.getCellRangeByPosition(leftgap-1,0,leftgap+width,0)
&apos;  	oColumnsz = oRangez.getColumns()
&apos;   	oColumnsz.Width = cellsize * 2  
   	&apos; Single width columns	
&apos;	oRangez = oSheetw.getCellRangeByPosition(leftgap+width,0,leftgap+133,0)
&apos;  	oColumnsz = oRangez.getColumns()
&apos;   	oColumnsz.Width = cellsize 
  
    &apos; Format $g 
   	&apos; Clear input &amp; result areas 	
  	dim oSheetg, oCursorg, oRangeg, oArrayg

  	    
  	oSheetg = oSheets.getByName(&quot;g&quot;)
  	oCursorg  = oSheetg.createCursorByRange(oSheetg.getCellRangeByPosition(8,5,8+31,5+31))
   	Flags = 23 + 96
	oCursorg.clearContents(Flags)
	oCursorg.CellStyle = &quot;Default&quot;
	&apos; Set input area
	oRangeg = oCursorg.getCellRangeByPosition(0,0,width-1,height-1)
	oRangeg.CellStyle = &quot;input&quot;
	
	oRangegp = Doc.NamedRanges.getByName(&quot;grid_par&quot;).ReferredCells 
	oCursorg = oRangegp.getCellRangeByPosition(7,0,7,511) &apos; shadow
	Flags = 23 + 96
	oCursorg.clearContents(Flags)
	oCursorg.CellStyle = &quot;Default&quot;
   
End Sub

sub CalledRoutineb

	dim Doc, oRangegp as object
	Doc = ThisComponent	
	oRangegp = Doc.NamedRanges.getByName(&quot;grid_par&quot;).ReferredCells 
	
	dim oSheetg, osheetw as object 
	dim oRangeg as object &apos; format, number, no entry
   	oSheetg = Doc.Sheets.getByName(&quot;g&quot;)

	oRangeg = oSheetg.getCellRangeByPosition(8,5,8+width-1,5+height-1)
	dim oRangeb as object &apos; big, border, number, entry
&apos;	oSheetw = Doc.Sheets.getByName(&quot;w&quot;)
&apos;	oRangeb  = oSheetw.getCellRangeByPosition(leftgap-1,topgap,leftgap+width,topgap+height*2)
&apos;    dim oRanges1 as object &apos; border, number, entry	
&apos;	oRanges1 = oSheetw.getCellRangeByPosition(leftgap+width,0,leftgap+width*2-1,height-1)
&apos;	dim oRanges2 as object &apos; border, entry	
&apos;	oRanges2 = oSheetw.getCellRangeByPosition(leftgap+width*2+1,0,leftgap+width*3,height-1)
&apos;	dim oRanges3 as object &apos; entry	
&apos;	oRanges3 = oSheetw.getCellRangeByPosition(leftgap+width*3+2,0,leftgap+width*4+1,height-1)
	
&apos;	dim iRow, iCol, iPos as integer	
&apos;	iPos = 0
&apos;	for iRow = 0 to height - 1
&apos;		for iCol = 0 to width - 1
		
&apos;			dim oCellHash,oCellShadow as object
&apos;			dim Hash as string
&apos;			oCellHash = oRangegp.getCellByPosition(6,iPos) &apos; hash 
&apos;			Hash = oCellHash.getString()
&apos;			oCellShadow = oRangegp.getCellByPosition(7,iPos) &apos; shadow
&apos;			dim change as boolean
&apos;			if oCellShadow.Type = com.sun.star.table.CellContentType.EMPTY then
&apos;				change = True
&apos;			else
&apos;				change = (oCellShadow.getString() &lt;&gt; Hash)
&apos;			end if
&apos;			
&apos;			if change then 	&apos; cell has changed
&apos;		
&apos;				oCellShadow.String = Hash	 
&apos;				&apos; cells for updating
&apos;				dim oCellg, oCellb, oCells1, oCells2, oCells3 as object
&apos;				oCellg = oRangeg.getCellByPosition(iCol,iRow)
&apos;				oCellb = oRangeb.getCellByPosition(iCol,iRow*2)
&apos;				oCells1 = oRanges1.getCellByPosition(iCol,iRow)
&apos;				oCells2 = oRanges2.getCellByPosition(iCol,iRow)
&apos;				oCells3 = oRanges3.getCellByPosition(iCol,iRow)
&apos;	
&apos;				&apos; borders
&apos;				dim bl, bt, br, bb as integer
&apos;				bl = cInt(oRangegp.getCellByPosition(0,iPos).getString())
&apos;				bt = cInt(oRangegp.getCellByPosition(1,iPos).getString())
&apos;				br = cInt(oRangegp.getCellByPosition(2,iPos).getString())
&apos;				bb = cInt(oRangegp.getCellByPosition(3,iPos).getString())
&apos;					
&apos;				oCellg.LeftBorder = doBorder(bl)
&apos;				oCellg.TopBorder = doBorder(bt)
&apos;				oCellg.RightBorder = doBorder(br)
&apos;				oCellg.BottomBorder = doBorder(bb)
&apos;				
&apos;				oCellb.LeftBorder = doBorder(bl)
&apos;				oCellb.TopBorder = doBorder(bt)
&apos;				oCellb.RightBorder = doBorder(br)
&apos;				oCellb.BottomBorder = doBorder(bb)
&apos;				
&apos;				oCells1.LeftBorder = doBorder(bl)
&apos;				oCells1.TopBorder = doBorder(bt)
&apos;&apos;				oCells1.RightBorder = doBorder(br)
&apos;				oCells1.BottomBorder = doBorder(bb)
&apos;				
&apos;				oCells2.LeftBorder = doBorder(bl)
&apos;				oCells2.TopBorder = doBorder(bt)
&apos;				oCells2.RightBorder = doBorder(br)
&apos;				oCells2.BottomBorder = doBorder(bb)
&apos;				&apos; shrink				
&apos;				oCellg.ShrinkToFit = True
&apos;				oCellb.ShrinkToFit = True
&apos;				oCells1.ShrinkToFit = True
&apos;				oCells2.ShrinkToFit = True
&apos;				oCells3.ShrinkToFit = True
&apos;				&apos; clue number
&apos;				dim Cluen as string
&apos;				dim lenn as integer
&apos;				Cluen = oRangegp.getCellByPosition(4,iPos).getString()
&apos;				lenn = len(Cluen)
&apos;				&apos; entry
&apos;				dim Entry as string
&apos;				dim lene as integer
&apos;				Entry = oRangegp.getCellByPosition(5,iPos).getString()
&apos;				lene = len(Entry)
&apos;				&apos; fill cells
&apos;				oCellg.String = Cluen
&apos;				oCellb.String = Cluen + Entry
&apos;				oCells1.String = Cluen + Entry
&apos;				oCells2.String = Entry
&apos;				oCells3.String = Entry
&apos;				&apos; justification
&apos;				oCellg.HoriJustify = com.sun.star.table.CellHoriJustify.LEFT
&apos;				oCells2.HoriJustify = com.sun.star.table.CellHoriJustify.CENTER
&apos;				oCells3.HoriJustify = com.sun.star.table.CellHoriJustify.CENTER
&apos;				&apos; clue number
&apos;&apos;				if lenn = 0 then &apos; no clue number
&apos;					oCellb.HoriJustify = com.sun.star.table.CellHoriJustify.CENTER
&apos;					oCells1.HoriJustify = com.sun.star.table.CellHoriJustify.CENTER
&apos;				else &apos; single or double digit
&apos;					oCellb.HoriJustify = com.sun.star.table.CellHoriJustify.LEFT
&apos;					oCells1.HoriJustify = com.sun.star.table.CellHoriJustify.LEFT
&apos;					&apos; superscript
&apos;					dim oCursg as object
&apos;					oCursg = oCellg.getText().createTextCursor()
&apos;					oCursg.gotoStart(False)
&apos;					oCursg.goRight(lenn, True)
&apos;					oCursg.CharEscapementHeight = 50
&apos;			    	oCursg.CharEscapement = 60
&apos;			    	
&apos;					dim oCursb as object
&apos;					oCursb = oCellb.getText().createTextCursor()
&apos;					oCursb.gotoStart(False)
&apos;					oCursb.goRight(lenn, True)
&apos;					oCursb.CharEscapementHeight = 50
&apos;			    	oCursb.CharEscapement = 60
&apos;			    	
&apos;					dim oCurss1 as object 
&apos;					oCurss1 = oCells1.getText().createTextCursor()
&apos;					oCurss1.gotoStart(False)
&apos;					oCurss1.goRight(lenn, True)
&apos;			    	oCurss1.CharEscapementHeight = 50
&apos;			    	oCurss1.CharEscapement = CInt(oRangegp.getCellByPosition(11,iPos).getString())
&apos;			  		
&apos;			    	if lene = 1 then &apos; compress or expand text
&apos;				  		&apos; kerning 
&apos;				  		&apos; expand
&apos;				  		dim Kernb as integer
&apos;						Kernb = CInt(oRangegp.getCellByPosition(10,iPos).getString())
&apos;				  		if Kernb &gt; 0 then
&apos;							oCursb = oCellb.getText().createTextCursor()
&apos;							oCursb.gotoStart(False)
&apos;							oCursb.goRight(lenn - 1, False) 
&apos;				    		oCursb.goRight(1, True)
&apos;							oCursb.CharAutoKerning = True
&apos;				  			oCursb.CharKerning = Kernb
&apos;				  		end if
&apos;						oCursb.CharAutoKerning = True
&apos;				  		oCursb.CharKerning = bKern
&apos;				  		dim Kerns as integer
&apos;&apos;						Kerns = CInt(oRangegp.getCellByPosition(9,iPos).getString())
&apos;						if Kerns &gt; 0 then &apos;expand
&apos;							oCurss1 = oCells1.getText().createTextCursor()
&apos;							oCurss1.gotoStart(False)
&apos;							oCurss1.goRight(lenn - 1, False) 
&apos;				    		oCurss1.goRight(1, True)
&apos;							oCurss1.CharAutoKerning = True
&apos;				  			oCurss1.CharKerning = Kerns
&apos;			 	  		else &apos; condense
&apos;				  			dim Conds as integer
&apos;				  			Conds = CInt(oRangegp.getCellByPosition(8,iPos).getString())
&apos;				  			if sCond &lt;&gt; 100 then
&apos;				  				oCurss.CharScaleWidth = Conds
&apos;				  			end if
&apos;				  		end if
&apos;			  		end if
&apos;				end if 
&apos;			end if
&apos;			iPos = iPos + 1
&apos;		next
&apos;	next
&apos;
End Sub
</script:module>