1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
/*************************************************************************
*
* $RCSfile: svxmsbas.hxx,v $
*
* $Revision: 1.4 $
*
* last change: $Author: kz $ $Date: 2005-01-21 15:35:11 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
*
* - GNU Lesser General Public License Version 2.1
* - Sun Industry Standards Source License Version 1.1
*
* Sun Microsystems Inc., October, 2000
*
* GNU Lesser General Public License Version 2.1
* =============================================
* Copyright 2000 by Sun Microsystems, Inc.
* 901 San Antonio Road, Palo Alto, CA 94303, USA
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License version 2.1, as published by the Free Software Foundation.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
* MA 02111-1307 USA
*
*
* Sun Industry Standards Source License Version 1.1
* =================================================
* The contents of this file are subject to the Sun Industry Standards
* Source License Version 1.1 (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.openoffice.org/license.html.
*
* Software provided under this License is provided on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
* See the License for the specific provisions governing your rights and
* obligations concerning the Software.
*
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
*
* Copyright: 2000 by Sun Microsystems, Inc.
*
* All Rights Reserved.
*
* Contributor(s): _______________________________________
*
*
************************************************************************/
#ifndef _SVXMSBAS_HXX
#define _SVXMSBAS_HXX
#ifndef _SOLAR_H
#include <tools/solar.h>
#endif
#ifndef INCLUDED_SVXDLLAPI_H
#include "svx/svxdllapi.h"
#endif
#include <sot/storage.hxx>
class SfxObjectShell;
/* Construct with the root storage of the MS document, with bImportCode
* set the visual basic code will be imported into the stardocument when Import
* is called, with bCopyStorage set, the visual basic storage tree will be
* copied completely into staroffice, so that any future export to a msoffice
* format will retain the vba code, allowing a lossless roundtrip from
* msoffice to staroffice and back.
*
* Setting bAsComment to true in Import will import the visual basic as a
* starbasic comment. Which is currently necessary, as vb is not valid sb.
*
* Setting bStripped will remove the "Attribute" lines from the vb, msoffice
* does this itself when it shows the vb code in the vbeditor, so this is
* probably what the user expects to see when viewing the code
*/
class SVX_DLLPUBLIC SvxImportMSVBasic
{
public:
SvxImportMSVBasic( SfxObjectShell &rDocS, SotStorage &rRoot,
BOOL bImportCode = TRUE, BOOL bCopyStorage = TRUE )
: xRoot(&rRoot), rDocSh(rDocS),
bImport(bImportCode), bCopy(bCopyStorage)
{}
// returns the status of import:
// 0 - nothing has done
// bit 0 = 1 -> any code is imported to the SO-Basic
// bit 1 = 1 -> the VBA - storage is copy to the ObjectShell storage
int Import( const String& rStorageName, const String &rSubStorageName,
BOOL bAsComment=TRUE, BOOL bStripped=TRUE );
// only for the export - copy or delete the saved VBA-macro-storage
// form the ObjectShell
// - returns a warning code if a modified basic exist, in all other
// cases return ERRCODE_NONE.
ULONG SaveOrDelMSVBAStorage( BOOL bSaveInto, const String& rStorageName );
// check if the MS-VBA-Storage exist in the RootStorage of the DocShell.
// If it exist, then return the WarningId for loosing the information.
static ULONG GetSaveWarningOfMSVBAStorage( SfxObjectShell &rDocS );
static String GetMSBasicStorageName();
private:
SotStorageRef xRoot;
SfxObjectShell &rDocSh;
BOOL bImport;
BOOL bCopy;
SVX_DLLPRIVATE BOOL ImportCode_Impl( const String& rStorageName,
const String &rSubStorageName,
BOOL bAsComment, BOOL bStripped);
SVX_DLLPRIVATE bool ImportForms_Impl(const String& rStorageName,
const String &rSubStorageName);
SVX_DLLPRIVATE BOOL CopyStorage_Impl( const String& rStorageName,
const String &rSubStorageName);
};
#endif
|
