blob: 88351b17811580cdee5c86b48b4dbb2fae0406a8 (
plain)
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
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
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
' <http://www.openoffice.org/license.html>
' 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
|
