Attribute VB_Name = "ApplicationSpecific" '/************************************************************************* ' * ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. ' ' Copyright 2000, 2010 Oracle and/or its affiliates. ' ' OpenOffice.org - a multi-platform office productivity suite ' ' This file is part of OpenOffice.org. ' ' OpenOffice.org is free software: you can redistribute it and/or modify ' it under the terms of the GNU Lesser General Public License version 3 ' only, as published by the Free Software Foundation. ' ' OpenOffice.org 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 version 3 for more details ' (a copy is included in the LICENSE file that accompanied this code). ' ' You should have received a copy of the GNU Lesser General Public License ' version 3 along with OpenOffice.org. If not, see ' ' for a copy of the LGPLv3 License. ' ' ************************************************************************/ Option Explicit '** Issue Categories Public Const CID_INFORMATION_REFS = 0 Public Const CID_CHANGES_AND_REVIEWING = 1 Public Const CID_CHARTS_TABLES = 2 Public Const CID_CONTENT_AND_DOCUMENT_PROPERTIES = 3 Public Const CID_CONTROLS = 4 Public Const CID_FILTERS = 5 Public Const CID_FORMAT = 6 Public Const CID_FUNCTIONS = 7 Public Const CID_OBJECTS_GRAPHICS = 8 Public Const CID_PORTABILITY = 9 Public Const CID_VBA_MACROS = 10 Public Const CTOTAL_CATEGORIES = 10 '** Excel - XML Issue and SubIssue strings Public Const CSTR_ISSUE_CHANGES_AND_REVIEWING = "ChangesAndReviewing" Public Const CSTR_ISSUE_CHARTS_TABLES = "ChartsAndTables" Public Const CSTR_ISSUE_CONTROLS = "Controls" Public Const CSTR_ISSUE_FUNCTIONS = "Functions" Public Const CSTR_ISSUE_OBJECTS_GRAPHICS = "ObjectsAndGraphics" Public Const CSTR_SUBISSUE_ATTRIBUTES = "CellAttributes" Public Const CSTR_SUBISSUE_DATEDIF = "DATEDIF" Public Const CSTR_SUBISSUE_EMBEDDED_CHART = "EmbeddedChart" Public Const CSTR_SUBISSUE_ERROR_TYPE = "ERROR.TYPE" Public Const CSTR_SUBISSUE_EXTERNAL = "External" Public Const CSTR_SUBISSUE_INFO = "INFO" Public Const CSTR_SUBISSUE_MAX_ROWS_EXCEEDED = "MaximumRowsExceeded" Public Const CSTR_SUBISSUE_MAX_SHEETS_EXCEEDED = "MaximumSheetsExceeded" Public Const CSTR_SUBISSUE_PAGE_SETUP = "PageSetup" Public Const CSTR_SUBISSUE_PASSWORD_PROTECTION = "PasswordProtection" Public Const CSTR_SUBISSUE_PHONETIC = "PHONETIC" Public Const CSTR_SUBISSUE_SHEET_CHART = "SheetChart" Public Const CSTR_SUBISSUE_WORKBOOK_PROTECTION = "WorkbookProtection" Public Const CSTR_SUBISSUE_ZOOM = "Zoom" Public Const CSTR_SUBISSUE_CHART_COMPLEX = "ChartIssuesComplex" Public Const CSTR_SUBISSUE_CHART_MINOR = "ChartIssuesMinor" Public Const CSTR_SUBISSUE_CHART_PIVOT = "Pivot" Public Const CSTR_SUBISSUE_INVALID_WORKSHEET_NAME = "InvalidWorksheetName" Public Const CSTR_SUBISSUE_DB_QUERY = "DBQuery" '** END Excel - XML Issue and SubIssue strings Public Const CAPPNAME_WORD = "Word" 'Public Const CAPPNAME_WORD_DOC = ".doc" 'Public Const CAPPNAME_WORD_DOT = ".dot" Public Const CAPPNAME_EXCEL = "Excel" Public Const CAPPNAME_EXCEL_DOC = ".xls" Public Const CAPPNAME_EXCEL_DOT = ".xlt" Public Const CAPPNAME_POWERPOINT = "PowerPoint" 'Public Const CAPPNAME_PP_DOC = ".ppt" 'Public Const CAPPNAME_PP_DOT = ".pot" 'Public Const CAPP_DOCPROP_LOCATION = "Document" Public CAPP_DOCPROP_LOCATION As String 'Public Const CAPP_DOCPROP_LOCATION = "Presentation" 'Public Const CAPP_XMLDOCPROP_LOCATION = "Document" Public Const CAPP_XMLDOCPROP_LOCATION = "Workbook" 'Public Const CAPP_XMLDOCPROP_LOCATION = "Presentation" Public Const CTHIS_DOCUMENT = "ThisWorkbook" Public Const CTOPLEVEL_PROJECT = "VBAProject" Public Function getAppSpecificDocExt() As String getAppSpecificDocExt = CAPPNAME_EXCEL_DOC End Function Public Function getAppSpecificTemplateExt() As String getAppSpecificTemplateExt = CAPPNAME_EXCEL_DOT End Function Public Function getAppSpecificPath() As String getAppSpecificPath = ActiveWorkbook.path End Function Public Function getAppSpecificApplicationName() As String getAppSpecificApplicationName = CAPPNAME_EXCEL End Function Public Function getAppSpecificCustomDocProperties(currDoc As Workbook) As DocumentProperties Set getAppSpecificCustomDocProperties = currDoc.CustomDocumentProperties End Function Public Function getAppSpecificCommentBuiltInDocProperty(currDoc As Workbook) As DocumentProperty Set getAppSpecificCommentBuiltInDocProperty = currDoc.BuiltinDocumentProperties("Comments") End Function Public Function getAppSpecificVBProject(currDoc As Workbook) As VBProject Set getAppSpecificVBProject = currDoc.VBProject End Function Public Function getAppSpecificOLEClassType(aShape As Shape) As String Dim objType As String If aShape.OLEFormat.ProgID = "" Then objType = aShape.OLEFormat.ClassType Else objType = aShape.OLEFormat.ProgID End If getAppSpecificOLEClassType = objType End Function Public Sub SetAppToMinimized() Application.WindowState = xlMinimized Application.Visible = False End Sub Public Sub LocalizeResources() Dim xlStrings As StringDataManager Set xlStrings = New StringDataManager xlStrings.InitStringData (GetResourceDataFileName(ThisWorkbook.path)) LoadCommonStrings xlStrings LoadExcelStrings xlStrings LoadResultsStrings xlStrings Set xlStrings = Nothing SetWBDriverText End Sub Public Sub SetWBDriverText() On Error Resume Next CAPP_DOCPROP_LOCATION = RID_STR_COMMON_RESULTS_LOCATION_TYPE_DOCUMENT ThisWorkbook.Names("RID_STR_DVR_XL_EXCEL_DRIVER").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_EXCEL_DRIVER ThisWorkbook.Names("RID_STR_DVR_XL_ISSUES").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_ISSUES ThisWorkbook.Names("RID_STR_DVR_XL_PURPOSE").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_PURPOSE ThisWorkbook.Names("RID_STR_DVR_XL_READ_README").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_READ_README ThisWorkbook.Names("RID_STR_DVR_XL_THE_MACROS").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_THE_MACROS ThisWorkbook.Names("RID_STR_DVR_XL_THIS_DOC").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_THIS_DOC ThisWorkbook.Names("RID_STR_DVR_XL_TITLE").RefersToRange.Cells(1, 1) = RID_STR_DVR_XL_TITLE End Sub