Comments on: VBA support in OpenOffice.Org Calc http://pkrishnan.net/vba-support-in-openoffice-org-calc/ Krishnan's weblog - A scribble pad. A hybrid microblog. Mostly bread crumbs of an internet journey. Wed, 01 Feb 2012 19:45:49 +0000 hourly 1 http://wordpress.org/?v=3.3.1 By: james http://pkrishnan.net/vba-support-in-openoffice-org-calc/comment-page-1/#comment-1135 james Sun, 07 Feb 2010 14:46:37 +0000 http://pkrishnan.net/vba-support-in-openoffice-org-calc/#comment-1135 ingnoring the "rems" how would you right this in OOo ?? i cant work out OOo - pls get me started ?? Rem Sub Words() Rem ' Rem ' Words Macro Rem ' Macro recorded 07/02/2010 by Owner Rem ' Rem ' Keyboard Shortcut: Ctrl+w Rem ' Rem Dim NumWords As Integer Rem Dim WordLength As Integer Rem Dim Count As Integer Rem Dim Count2 As Integer Rem Dim Lcase As Integer Rem Rem Dim Word As String Rem Dim MixedWord As String Rem Dim Letter As String Rem Rem ' Worksheets("Words").Activate Rem Rem Set wordRange = Worksheets("Words").Range("A1:A500") Rem NumWords = Application.WorksheetFunction.CountA(wordRange) Rem Rem For Count = 1 To NumWords Rem WordLength = Len(Cells(Count, 1)) Rem Rem Rem ' Application.EnableSound = False Rem Rem ' Application.EnableSound = True Rem Word = Cells(Count, 1) Rem ' Cells(Count, 1).Activate Rem ' ActiveCell.Characters(1, 3).PhoneticCharacters = Word Rem MixedWord = "" Rem For Count2 = 1 To WordLength Rem Letter = Mid(Cells(Count, 1), Count2, 1) Rem ' Application.Speech.Speak (Letter) Rem Lcase = Round(Rnd) Rem Rem Rem If Lcase = 1 And Asc(Letter) >= 97 Then Letter = Chr(Asc(Letter) - 32) Rem Rem MixedWord = MixedWord + Letter Rem Next Count2 Rem Cells(1, 5) = MixedWord Rem Rem Dim Message, Title, Default, MyValue Rem Message = "Ready Monkey ?" Rem Title = "Honors spelling game." Rem Default = "YES" Rem MyValue = InputBox(Message, Title, Default) Rem Rem Rem For Count2 = 1 To WordLength Rem Letter = Mid(Cells(Count, 1), Count2, 1) Rem Application.Speech.Speak (Letter) Rem Next Count2 Rem Application.Speech.Speak (Word) Rem Rem If MyValue "YES" Then Rem Application.Speech.Speak ("That's wrong pooey - you entered") Rem WordLength = Len(MyValue) Rem For Count2 = 1 To WordLength Rem Letter = Mid(MyValue, Count2, 1) Rem Application.Speech.Speak (Letter) Rem Next Count2 Rem Application.Speech.Speak (MyValue) Rem End If Rem Rem Rem Next Count Rem Rem Rem End Sub Rem ingnoring the “rems”
how would you right this in OOo ?? i cant work out OOo – pls get me started ??
Rem Sub Words()
Rem ‘
Rem ‘ Words Macro
Rem ‘ Macro recorded 07/02/2010 by Owner
Rem ‘
Rem ‘ Keyboard Shortcut: Ctrl+w
Rem ‘
Rem Dim NumWords As Integer
Rem Dim WordLength As Integer
Rem Dim Count As Integer
Rem Dim Count2 As Integer
Rem Dim Lcase As Integer
Rem
Rem Dim Word As String
Rem Dim MixedWord As String
Rem Dim Letter As String
Rem
Rem ‘ Worksheets(“Words”).Activate
Rem
Rem Set wordRange = Worksheets(“Words”).Range(“A1:A500″)
Rem NumWords = Application.WorksheetFunction.CountA(wordRange)
Rem
Rem For Count = 1 To NumWords
Rem WordLength = Len(Cells(Count, 1))
Rem
Rem
Rem ‘ Application.EnableSound = False
Rem
Rem ‘ Application.EnableSound = True
Rem Word = Cells(Count, 1)
Rem ‘ Cells(Count, 1).Activate
Rem ‘ ActiveCell.Characters(1, 3).PhoneticCharacters = Word
Rem MixedWord = “”
Rem For Count2 = 1 To WordLength
Rem Letter = Mid(Cells(Count, 1), Count2, 1)
Rem ‘ Application.Speech.Speak (Letter)
Rem Lcase = Round(Rnd)
Rem
Rem
Rem If Lcase = 1 And Asc(Letter) >= 97 Then Letter = Chr(Asc(Letter) – 32)
Rem
Rem MixedWord = MixedWord + Letter
Rem Next Count2
Rem Cells(1, 5) = MixedWord
Rem
Rem Dim Message, Title, Default, MyValue
Rem Message = “Ready Monkey ?”
Rem Title = “Honors spelling game.”
Rem Default = “YES”
Rem MyValue = InputBox(Message, Title, Default)
Rem
Rem
Rem For Count2 = 1 To WordLength
Rem Letter = Mid(Cells(Count, 1), Count2, 1)
Rem Application.Speech.Speak (Letter)
Rem Next Count2
Rem Application.Speech.Speak (Word)
Rem
Rem If MyValue “YES” Then
Rem Application.Speech.Speak (“That’s wrong pooey – you entered”)
Rem WordLength = Len(MyValue)
Rem For Count2 = 1 To WordLength
Rem Letter = Mid(MyValue, Count2, 1)
Rem Application.Speech.Speak (Letter)
Rem Next Count2
Rem Application.Speech.Speak (MyValue)
Rem End If
Rem
Rem
Rem Next Count
Rem
Rem
Rem End Sub
Rem

]]> By: Krishnan http://pkrishnan.net/vba-support-in-openoffice-org-calc/comment-page-1/#comment-1118 Krishnan Mon, 09 Nov 2009 17:37:14 +0000 http://pkrishnan.net/vba-support-in-openoffice-org-calc/#comment-1118 The syntax is obviously incorrect as I can see. If, Then, Else are the keywords to be used. Not Or. The syntax is obviously incorrect as I can see.

If, Then, Else are the keywords to be used. Not Or.

]]> By: Rakesh http://pkrishnan.net/vba-support-in-openoffice-org-calc/comment-page-1/#comment-1116 Rakesh Sat, 07 Nov 2009 15:15:31 +0000 http://pkrishnan.net/vba-support-in-openoffice-org-calc/#comment-1116 Hi, I have tried doing what u have mentioned, but still it doesn't work. if SHEET1.CELLS(7, 4) = "" Or SHEET1.CELLS(9, 4) = "" Or SHEET1.CELLS(10, 4) = "" In this line i am getting property or method not found. Hi,
I have tried doing what u have mentioned, but still it doesn’t work.
if SHEET1.CELLS(7, 4) = “” Or SHEET1.CELLS(9, 4) = “” Or SHEET1.CELLS(10, 4) = “”

In this line i am getting property or method not found.

]]>