Pegar valor de célula atual e somar variável

[schiavinatto]

Tenho esta macro que pega a string da célula atual:

Sub CurrentCellContent
Dim oSel as Object
oSel = ThisComponent.getCurrentSelection()
Var1 = oSel.getString()
End Sub

Funciona perfeitamente para texto, porém necessito de pegar o valor para somar com uma variável, e não esta funcionando, onde devo alterar.

Sub LancarVoto
Dim oSel as Object
oSel = ThisComponent.getCurrentSelection()
xDig = oSel.getValue()       '<============= Alterei aqui..............................
	EnterString xDig
End Sub

Sub EnterString ( xDig% ) 
dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "StringName" : args1(0).Value = xDig+1
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:EnterString", "", 0, args1())
End Sub

Porem não soma 1…

Basicamente necessito algo assim:

• Pegar o Valor da célula ativa.
• Colocar em uma Variável.
• Somar 1 na Variável.
• Inserir a Variável na célula ativa.

[RonaldoElias]

Olá, isso resolve!

Sub CurrentCellContent
Dim oSel as Object, Var1 as String, Var2 as String
oSel = ThisComponent.getCurrentSelection()
Var1 = oSel.getString()
Var2 = 1
Print Val(Var1) + Val(Var2)
End Sub

[schiavinatto]

Ok @RonaldoElias, valeu a dica, ajustei a macro:

Sub CurrentCellContent
Dim oSel as Object, Var1 as String, Var2 as String
oSel = ThisComponent.getCurrentSelection()
Var1 = oSel.getValue()
Var2 = 1
Var1 = Val(Var1) + Val(Var2)
dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "StringName" : args1(0).Value = Var1
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:EnterString", "", 0, args1())
End Sub

E ajudei outro usuário: HELP: Necessità di aiuto sulle macro