OpenOffice.org Forum at OOoForum.org

Forums

Topics

FAQ

Memberlist

Usergroups

Edit Profile

PM Inbox

Links

OpenOffice.org

OOoMacros.org

OOExtras.org

OOoDocs.org

LinuxSelfhelp.com

more...

Books & Training

Getopenoffice.org

Digitaldistribution.com

8daysaweek.co.uk

more...

Search Options

Poll question

How often do you use Right-to-Left paragraph direction

	Never	[ 1 ]
	From time to time	[ 1 ]
	It's part of my everyday usage	[ 1 ]

You cannot vote in polls in this forum
View Results

User of the Moment

Viewing profile :: wanderlust
Joined: 935 Days
Posts: 2
Location:

Forum	Topics	Posts
OpenOffice.org Forums
Setup and Troubleshooting Discuss OpenOffice.org setup and installation issues	11381	42634
OpenOffice.org Writer Discuss the OpenOffice.org word processor	25731	112439
OpenOffice.org Calc Discuss the OpenOffice.org spreadsheet application	19293	82790
OpenOffice.org Impress Discuss the OpenOffice.org presentation application	3372	9988
OpenOffice.org Draw Discuss the OpenOffice.org drawing application	1355	4900
OpenOffice.org Math Discuss the OpenOffice.org formula editor	755	3072
OpenOffice.org Base Discuss the OpenOffice.org database features	9329	37714
OpenOffice.org Macros and API Discuss OpenOffice.org programming issues	16760	61059
OpenOffice.org Code Snippets Discuss and share OpenOffice.org code snippets	490	2196
Community Forums
General Discussion Discuss anything you want	5280	25237
Site Feedback Provide site feedback and suggestions	430	2265

Combining columns mathematically
Author: davidlaing :: Posted: Mon Sep 10, 2012 6:20 am Simple question: how do I divide all the entries in one column by the corresponding entries in another column to yield a third column of quotients? Simple answer, please! (0) Replies

xRay. Dialog control names vs .Controls(x).

Author: rodalsa :: Posted: Mon Sep 10, 2012 5:46 am

Conflicting results depending upon path taken to the control name.

I had a running macro using two check boxes to select different sheets in my spreadsheet. I decided to replace the check boxes with two option buttons. I added the option buttons to the dialog. This is the section of code that I had used and wanted to continue to use to obtain references to the check boxes. ...

xRay FoodSelectionDlg
With FoodSelectionDlg
TextBox = .Controls(2) 'SearchTermTextEntry
FoodCheckBox = .Controls(5) 'FoodSheetCheckBox
AbbrevCheckBox = .Controls(6) 'AbbrevSheetCheckBox
End With

I obtained the .Controls(x) x values using the xRay drill down...
Initial Object.Controls.(x).Model
with the need to scan down the list to the Name field.

My new code was to be (the x values shown here resulted in a working macro for the current control content of my dialog)...

xRay FoodSelectionDlg
With FoodSelectionDlg
TextBox = .Controls(2) 'SearchTermTextEntry
FoodOptionButton = .Controls(20) 'FoodSheetOptionButton
AbbrevOptionButton = .Controls(21) 'AbbrevSheetOptionButton
End With

Because my prior experience with .Controls(x) and the values of x changing relative to control names, I attempted to use the .GetByName("Control Name") approach. Unfortunately this caused problems with later sections of my macro. I returned to the .Controls(x) structure with its increased overhead.

While starting to obtain the new x values, I noticed the xRay drill down....
Initial Object.Model.ControlModels
which led to....
Array : T( 0 To 23 ) As object

(0) | Object : com.sun.star.awt.XControlModel --> MealStructureListBox
(1) | Object : com.sun.star.awt.XControlModel --> ChooseMealsLabel
|
|
(23) | Object : com.sun.star.awt.XControlModel --> AbbrevSheetOptionButton

I happily introduced .Controls(23) into my code. Less overhead was required to get x. My code failed. I then used xRay – Initial Object.Controls.Control.(23).Model drill down and found that .Control(23) was reported with name "AbbrevCheckBox" not the "AbbrevSheetOptionButton" I sought. I located the correct value of x and introduced it into my code. The Macro functioned correctly.

Apparently I was in either a bug (as an intermediate software state of some sort) or I violated some unknown coding principle.

I deleted the check box controls and again using the
xRay – Initial Object.Controls.Control.(x).Model
drill down and identified the new x values for my option buttons ending up with running code. See above for the 2, 20, 21 values of x.

I then investigated both xRay drill down approaches and found them both in agreement on the x values!

Does anyone have an insight into why the xRay software responded as reported or what I may have not done properly?

Rod[/b]

(0) Replies

fixed data source

Author: nw0123 :: Posted: Mon Sep 10, 2012 2:32 am

hi,

i was wondering if anyone could help....

i have a data range in cells O4-O9.

i am referencing them as follows =index(O4:O9;D11), which is great. it pulls the data out lovely.

however, when copying to another cell, the data range moves down one with each cell that i copy it into.

i have tried =fixed(index(...;..)) but to no avail. it returns the first data range perfectly, but as before the data range alters, with each copy that is made.

is there anyway, in which the data source can be locked to the original cell range?

thanks,

nick

(3) Replies

Differences between OpenOffice.org Basic in Writer and Calc

Author: JustusJ :: Posted: Mon Sep 10, 2012 1:15 am

Hi all,

looking for a simple "Find and replace" function, I recorded a macro in OOo Writer and tailored the results to fit my needs. I can now use it in Calc as well as Writer, except for one thing: when the search does not find anything, in Calc it will display a warning "Search key not found" - in Writer this warning is suppressed (I prefer the latter!!). As it seems, Writer and Calc behave differently.

My questions:
- Is there a way to prevent the warning in Calc?
- Can someone point me to a resource where differences like these are listed?

Thanks,
Justus

Code:

Sub FindReplace(aFindStr As String, aReplaceStr As String, aWholeWord as Boolean, aRegularExpression as Boolean, aFindAll as Boolean)
rem define variables
Dim document As Object
Dim dispatcher As Object
Dim algorithm As Integer
Dim flags As Long
Dim command As Integer
rem set options
If aWholeWord Then
flags = 65552
Else
flags = 65536
End If
If aRegularExpression Then
algorithm = 1
Else
algorithm = 0
End If
If aFindAll Then
command = 1
Else
command = 3
End If
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem searchreplace dialog
Dim args(18) As New com.sun.star.beans.PropertyValue
args(0).Name = "SearchItem.StyleFamily"
args(0).Value = 2
args(1).Name = "SearchItem.CellType"
args(1).Value = 0
args(2).Name = "SearchItem.RowDirection"
args(2).Value = true
args(3).Name = "SearchItem.AllTables"
args(3).Value = false
args(4).Name = "SearchItem.Backward"
args(4).Value = false
args(5).Name = "SearchItem.Pattern"
args(5).Value = false
args(6).Name = "SearchItem.Content"
args(6).Value = false
args(7).Name = "SearchItem.AsianOptions"
args(7).Value = false
args(8).Name = "SearchItem.AlgorithmType"
args(8).Value = algorithm
args(9).Name = "SearchItem.SearchFlags"
args(9).Value = flags
args(10).Name = "SearchItem.SearchString"
args(10).Value = aFindStr
args(11).Name = "SearchItem.ReplaceString"
args(11).Value = aReplaceStr
args(12).Name = "SearchItem.Locale"
args(12).Value = 255
args(13).Name = "SearchItem.ChangedChars"
args(13).Value = 2
args(14).Name = "SearchItem.DeletedChars"
args(14).Value = 2
args(15).Name = "SearchItem.InsertedChars"
args(15).Value = 2
args(16).Name = "SearchItem.TransliterateFlags"
args(16).Value = 1280
args(17).Name = "SearchItem.Command"
args(17).Value = command
args(18).Name = "Quiet"
args(18).Value = true

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args())
End Sub

(0) Replies

Need Help in PDF Files with Graphics ...thank you.

Author: GerryH56 :: Posted: Sun Sep 09, 2012 4:27 pm

I need to create PDF files with actual size images for patterns. I have no problem creating the images. I can print them out from my paint program with success. When I load the images in to OO and create a PDF file and then print out, I get a 10 to 15 percent shrinkage. My images are up to but no larger than 6" X 10". I have tried setting no margins, still no luck. I am running windows 7. ...new to OO. Any help is much appreciated.

(0) Replies

Welcome

Welcome to OOoForum.org, the OpenOffice.org Forum!

Register

Username:

Password:

Log me on automatically

I forgot my password

Latest Discussion

Mon Sep 10, 2012 6:20 am davidlaing

Combining columns mathema...
Mon Sep 10, 2012 6:12 am amohammad

[SOLVED] Example of inser...
Mon Sep 10, 2012 5:46 am rodalsa

xRay. Dialog control nam...
Mon Sep 10, 2012 5:29 am edbardet

<SOLVED> Use of rel...
Mon Sep 10, 2012 5:05 am clintrobbins

Opening OpenOffice & ...

Downloads

Download OpenOffice.org (en)

OOo 2.3.0 Split Download Set

OOo 2.3.0 for Windows

OOo 2.3.0 for Linux

OOo 2.3.0 for Solaris (x86)

OOo 2.3.0 for Mac OS X (Intel)

OOo 2.3.0 for FreeBSD 6.2