1 '*************************************************************************
2 '
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.
19 '
20 '*************************************************************************
21 
22 Public xlStrings As StringDataManager
23 
24 Private Sub Workbook_Open()
25     Set xlStrings = New StringDataManager
26 
27     xlStrings.InitStringData (GetResourceDataFileName(ThisWorkbook.Path))
28     LoadCommonStrings xlStrings
29     LoadExcelStrings xlStrings
30     LoadResultsStrings xlStrings
31     Set xlStrings = Nothing
32 
33     SetWBDriverText
34 End Sub
35 
36 Public Sub SetWBDriverText()
37     On Error Resume Next
38     CAPP_DOCPROP_LOCATION = RID_STR_COMMON_RESULTS_LOCATION_TYPE_DOCUMENT
39     ThisWorkbook.Names("RID_STR_DVR_XL_EXCEL_DRIVER").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_EXCEL_DRIVER
40     ThisWorkbook.Names("RID_STR_DVR_XL_ISSUES").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_ISSUES
41     ThisWorkbook.Names("RID_STR_DVR_XL_PURPOSE").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_PURPOSE
42     ThisWorkbook.Names("RID_STR_DVR_XL_READ_README").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_READ_README
43     ThisWorkbook.Names("RID_STR_DVR_XL_THE_MACROS").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_THE_MACROS
44     ThisWorkbook.Names("RID_STR_DVR_XL_THIS_DOC").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_THIS_DOC
45     ThisWorkbook.Names("RID_STR_DVR_XL_TITLE").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_TITLE
46 End Sub
47 
48