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