| /************************************************************** |
| * |
| * Licensed to the Apache Software Foundation (ASF) under one |
| * or more contributor license agreements. See the NOTICE file |
| * distributed with this work for additional information |
| * regarding copyright ownership. The ASF licenses this file |
| * to you under the Apache License, Version 2.0 (the |
| * "License"); you may not use this file except in compliance |
| * with the License. You may obtain a copy of the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, |
| * software distributed under the License is distributed on an |
| * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| * KIND, either express or implied. See the License for the |
| * specific language governing permissions and limitations |
| * under the License. |
| * |
| *************************************************************/ |
| |
| |
| |
| // MARKER(update_precomp.py): autogen include statement, do not remove |
| #include "precompiled_filter.hxx" |
| |
| #include <basic/basmgr.hxx> |
| #include <sfx2/objsh.hxx> |
| #include <svx/svxerr.hxx> |
| #include <filter/msfilter/svxmsbas.hxx> |
| |
| using namespace com::sun::star; |
| |
| sal_uLong SvxImportMSVBasic::SaveOrDelMSVBAStorage( sal_Bool bSaveInto, |
| const String& rStorageName ) |
| { |
| sal_uLong nRet = ERRCODE_NONE; |
| uno::Reference < embed::XStorage > xSrcRoot( rDocSh.GetStorage() ); |
| String aDstStgName( GetMSBasicStorageName() ); |
| SotStorageRef xVBAStg( SotStorage::OpenOLEStorage( xSrcRoot, aDstStgName, |
| STREAM_READWRITE | STREAM_NOCREATE | STREAM_SHARE_DENYALL ) ); |
| if( xVBAStg.Is() && !xVBAStg->GetError() ) |
| { |
| xVBAStg = 0; |
| if( bSaveInto ) |
| { |
| BasicManager *pBasicMan = rDocSh.GetBasicManager(); |
| if( pBasicMan && pBasicMan->IsBasicModified() ) |
| nRet = ERRCODE_SVX_MODIFIED_VBASIC_STORAGE; |
| |
| SotStorageRef xSrc = SotStorage::OpenOLEStorage( xSrcRoot, aDstStgName, STREAM_STD_READ ); |
| SotStorageRef xDst = xRoot->OpenSotStorage( rStorageName, STREAM_READWRITE | STREAM_TRUNC ); |
| xSrc->CopyTo( xDst ); |
| xDst->Commit(); |
| ErrCode nError = xDst->GetError(); |
| if ( nError == ERRCODE_NONE ) |
| nError = xSrc->GetError(); |
| if ( nError != ERRCODE_NONE ) |
| xRoot->SetError( nError ); |
| } |
| } |
| |
| return nRet; |
| } |
| |
| // check if the MS-VBA-Storage exists in the RootStorage of the DocShell. |
| // If it exists, then return the WarningId for losing the information. |
| sal_uLong SvxImportMSVBasic::GetSaveWarningOfMSVBAStorage( SfxObjectShell &rDocSh) |
| { |
| uno::Reference < embed::XStorage > xSrcRoot( rDocSh.GetStorage() ); |
| SvStorageRef xVBAStg( SotStorage::OpenOLEStorage( xSrcRoot, GetMSBasicStorageName(), |
| STREAM_READ | STREAM_NOCREATE | STREAM_SHARE_DENYALL )); |
| return ( xVBAStg.Is() && !xVBAStg->GetError() ) |
| ? ERRCODE_SVX_VBASIC_STORAGE_EXIST |
| : ERRCODE_NONE; |
| } |
| |
| String SvxImportMSVBasic::GetMSBasicStorageName() |
| { |
| return String( RTL_CONSTASCII_USTRINGPARAM( "_MS_VBA_Macros" ) ); |
| } |