Come salvare con nome file utilizzando una macro

[Ordegno]

Devo salvare con nome utilizzando una macro in modo che nel nome del file compaia un dato presente in una cella del file.

sub SALVAMODULO2
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 1

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Name"
args2(0).Value = "Foglio6"
args2(1).Name = "Index"
args2(1).Value = 1

dispatcher.executeDispatch(document, ".uno:Insert", "", 0, Args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Name"
args3(0).Value = "CLIENTE ZZZZ"  ****QUI DEVE INSERIRE IL DATO PRESENTE NELLA CELLA C7 +CELLA I7****

dispatcher.executeDispatch(document, ".uno:RenameTable", "", 0, args3())

[antonio.faccioli]

Hai usato il registratore di macro che va benissimo per capire che eventi stai utilizzando, ti consiglio tuttavia di imparare a scriverti il codice a mano.
Per fare quello che chiedi tu potresti fare così:

sub salva

dim doc  as object
dim document as object
dim dispatcher as object

doc = ThisComponent
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

Sheet = doc.Sheets.getByName("NOME FOGLIO")
Cell = Sheet.getCellRangeByName("RIFERMINETO CELLA, ES. A1")
NomeFile = Cell.String

Path = "file:///PERCORSO/"
File = Path+NomeFile

dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = File
args1(1).Name = "FilterName"
args1(1).Value = "calc8"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())

end sub

TI consiglio di studiarti questo manualone http://www.pitonyak.org/oo.php