From 67e181bee06b98fa96aa7a37f3f6240c9f8b90f6 Mon Sep 17 00:00:00 2001 From: "Michael E. Bohn" Date: Wed, 1 Sep 2010 04:12:05 +0200 Subject: mib19: #163494# removed the exlamation mark at the begin of the macro name in application.run --- vbahelper/source/vbahelper/vbaapplicationbase.cxx | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'vbahelper') diff --git a/vbahelper/source/vbahelper/vbaapplicationbase.cxx b/vbahelper/source/vbahelper/vbaapplicationbase.cxx index 7fdfa75795ef..b676571780be 100644 --- a/vbahelper/source/vbahelper/vbaapplicationbase.cxx +++ b/vbahelper/source/vbahelper/vbaapplicationbase.cxx @@ -295,6 +295,13 @@ VbaApplicationBase::getVersion() throw (uno::RuntimeException) void SAL_CALL VbaApplicationBase::Run( const ::rtl::OUString& MacroName, const uno::Any& varg1, const uno::Any& varg2, const uno::Any& varg3, const uno::Any& varg4, const uno::Any& varg5, const uno::Any& varg6, const uno::Any& varg7, const uno::Any& varg8, const uno::Any& varg9, const uno::Any& varg10, const uno::Any& varg11, const uno::Any& varg12, const uno::Any& varg13, const uno::Any& varg14, const uno::Any& varg15, const uno::Any& varg16, const uno::Any& varg17, const uno::Any& varg18, const uno::Any& varg19, const uno::Any& varg20, const uno::Any& varg21, const uno::Any& varg22, const uno::Any& varg23, const uno::Any& varg24, const uno::Any& varg25, const uno::Any& varg26, const uno::Any& varg27, const uno::Any& varg28, const uno::Any& varg29, const uno::Any& varg30 ) throw (uno::RuntimeException) { + ::rtl::OUString aMacroName; + if (0 == MacroName.trim().indexOf('!')) + { + aMacroName = MacroName.trim().copy(1); + }else{ + aMacroName = MacroName; + } VBAMacroResolvedInfo aMacroInfo = resolveVBAMacro( getSfxObjShell( getCurrentDocument() ), MacroName.trim() ); if( aMacroInfo.IsResolved() ) { -- cgit v1.2.3