macro para saber el nombre del archivo activo en writer

[pcmacnet]

Soy nuevo en creacion de macros, me pueden ayudar hacer una macro para saber el nombre del archivo activo en write ?

[schiavinatto]

@pcmacnet,

'================================================|
Sub DirectorioActual
'================================================|
Dim link$
link = CurDir
msgbox ("El directorio actual es: " & Chr(13) & link, 0 )
End Sub

'================================================|
Sub ArchivoActual
'================================================|
Dim oDoc As Object
Dim oControlador As Object
oDoc = ThisComponent
oControlador = oDoc.getCurrentController
link = oControlador.getTitle
msgbox ("El archivo actual es: " & Chr(13) & link, 0 )	
End Sub

---

ATENCIÓN: Si desea dar más detalles a su pregunta, utilice edit en la pregunta o add a comment abajo. Agradecido.

Si la respuesta atendió su necesidad, por favor, haga clic en la bolita a la izquierda de la respuesta, para finalizar la pregunta.

[pcmacnet]

Gracias ha funcionado correctamente.

[schiavinatto]

Si la respuesta atendió su necesidad, por favor, haga clic en la bolita a la izquierda de la respuesta, para finalizar la pregunta.