ThisDocument.cls (cdf0e10c) ThisDocument.cls (d4a3fa4b)
1'/*************************************************************************
2' *
3' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4'
5' Copyright 2000, 2010 Oracle and/or its affiliates.
1'*************************************************************************
6'
2'
7' OpenOffice.org - a multi-platform office productivity suite
3' Licensed to the Apache Software Foundation (ASF) under one
4' or more contributor license agreements. See the NOTICE file
5' distributed with this work for additional information
6' regarding copyright ownership. The ASF licenses this file
7' to you under the Apache License, Version 2.0 (the
8' "License"); you may not use this file except in compliance
9' with the License. You may obtain a copy of the License at
10'
11' http://www.apache.org/licenses/LICENSE-2.0
12'
13' Unless required by applicable law or agreed to in writing,
14' software distributed under the License is distributed on an
15' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16' KIND, either express or implied. See the License for the
17' specific language governing permissions and limitations
18' under the License.
8'
19'
9' This file is part of OpenOffice.org.
10'
11' OpenOffice.org is free software: you can redistribute it and/or modify
12' it under the terms of the GNU Lesser General Public License version 3
13' only, as published by the Free Software Foundation.
14'
15' OpenOffice.org is distributed in the hope that it will be useful,
16' but WITHOUT ANY WARRANTY; without even the implied warranty of
17' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18' GNU Lesser General Public License version 3 for more details
19' (a copy is included in the LICENSE file that accompanied this code).
20'
21' You should have received a copy of the GNU Lesser General Public License
22' version 3 along with OpenOffice.org. If not, see
23' <http://www.openoffice.org/license.html>
24' for a copy of the LGPLv3 License.
25'
26' ************************************************************************/
20'*************************************************************************
27
28Public wrdStrings As StringDataManager
29
30Private Sub Document_Open()
31 Set wrdStrings = New stringDataManager
32
33 wrdStrings.InitStringData (GetResourceDataFileName(ThisDocument.Path))
34 LoadCommonStrings wrdStrings

--- 18 unchanged lines hidden ---
21
22Public wrdStrings As StringDataManager
23
24Private Sub Document_Open()
25 Set wrdStrings = New stringDataManager
26
27 wrdStrings.InitStringData (GetResourceDataFileName(ThisDocument.Path))
28 LoadCommonStrings wrdStrings

--- 18 unchanged lines hidden ---