Attribute VB_Name = "ApplicationSpecific" | |
'************************************************************************* | |
' | |
' Licensed to the Apache Software Foundation (ASF) under one | |
' or more contributor license agreements. See the NOTICE file | |
' distributed with this work for additional information | |
' regarding copyright ownership. The ASF licenses this file | |
' to you under the Apache License, Version 2.0 (the | |
' "License"); you may not use this file except in compliance | |
' with the License. You may obtain a copy of the License at | |
' | |
' http://www.apache.org/licenses/LICENSE-2.0 | |
' | |
' Unless required by applicable law or agreed to in writing, | |
' software distributed under the License is distributed on an | |
' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY | |
' KIND, either express or implied. See the License for the | |
' specific language governing permissions and limitations | |
' under the License. | |
' | |
'************************************************************************* | |
Option Explicit | |
'** Issue Categories | |
Public Const CID_INFORMATION_REFS = 0 | |
Public Const CID_CHANGES_AND_REVIEWING = 1 'no issue logged | |
Public Const CID_CONTENT_AND_DOCUMENT_PROPERTIES = 2 | |
Public Const CID_CONTROLS = 3 'no issue logged | |
Public Const CID_FIELDS = 4 | |
Public Const CID_FORMAT = 5 | |
Public Const CID_INDEX_AND_REFERENCES = 6 | |
Public Const CID_OBJECTS_GRAPHICS_FRAMES = 7 | |
Public Const CID_PORTABILITY = 8 | |
Public Const CID_TABLES = 9 | |
Public Const CID_VBA_MACROS = 10 | |
Public Const CID_WRITING_AIDS = 11 | |
Public Const CTOTAL_CATEGORIES = 11 | |
'** Word - XML Issue and SubIssue strings | |
Public Const CSTR_ISSUE_CHANGES_AND_REVIEWING = "ChangesAndReviewing" | |
Public Const CSTR_ISSUE_CONTROLS = "Controls" | |
Public Const CSTR_ISSUE_FIELDS = "Fields" | |
Public Const CSTR_ISSUE_INDEX_AND_REFERENCES = "IndexesAndReferences" | |
Public Const CSTR_ISSUE_TABLES = "Tables" | |
Public Const CSTR_SUBISSUE_APPEARANCE = "Appearance" | |
Public Const CSTR_SUBISSUE_BORDER_STYLES = "BorderStyles" | |
Public Const CSTR_SUBISSUE_CELL_SPAN_PAGE = "CellSpanningPage" | |
Public Const CSTR_SUBISSUE_COMMENT = "Comment" | |
Public Const CSTR_SUBISSUE_CUSTOM_BULLET_LIST = "CustomBulletList" | |
Public Const CSTR_SUBISSUE_FORM_FIELD = "FormField" | |
Public Const CSTR_SUBISSUE_MAILMERGE_DATASOURCE = "MailMergeDatasource" | |
Public Const CSTR_SUBISSUE_MAILMERGE_FIELD = "MailMergeField" | |
Public Const CSTR_SUBISSUE_NESTED_TABLES = "NestedTables" | |
Public Const CSTR_SUBISSUE_TABLE_OF_AUTHORITIES = "TableOfAuthorities" | |
Public Const CSTR_SUBISSUE_TABLE_OF_AUTHORITIES_FIELD = "TableOfAuthoritiesField" | |
Public Const CSTR_SUBISSUE_TABLE_OF_CONTENTS = "TableOfContents" | |
'** END Word - 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 CAPP_DOCPROP_LOCATION As String | |
'Public Const CAPP_DOCPROP_LOCATION = RID_STR_COMMON_RESULTS_LOCATION_TYPE_WORKBOOK | |
'Public Const CAPP_DOCPROP_LOCATION = RID_STR_COMMON_RESULTS_LOCATION_TYPE_PRESENTATION | |
Public Const CAPP_XMLDOCPROP_LOCATION = "Document" | |
'Public Const CAPP_XMLDOCPROP_LOCATION = "Workbook" | |
'Public Const CAPP_XMLDOCPROP_LOCATION = "Presentation" | |
Public Const CTHIS_DOCUMENT = "ThisDocument" | |
Public Const CTOPLEVEL_PROJECT = "Project" | |
Public Function getAppSpecificDocExt() As String | |
getAppSpecificDocExt = CAPPNAME_WORD_DOC | |
End Function | |
Public Function getAppSpecificTemplateExt() As String | |
getAppSpecificTemplateExt = CAPPNAME_WORD_DOT | |
End Function | |
Public Function getAppSpecificPath() As String | |
getAppSpecificPath = ActiveDocument.path | |
End Function | |
Public Function getAppSpecificApplicationName() As String | |
getAppSpecificApplicationName = CAPPNAME_WORD | |
End Function | |
Public Function getAppSpecificCustomDocProperties(currDoc As Document) As DocumentProperties | |
Set getAppSpecificCustomDocProperties = currDoc.CustomDocumentProperties | |
End Function | |
Public Function getAppSpecificCommentBuiltInDocProperty(currDoc As Document) As DocumentProperty | |
Set getAppSpecificCommentBuiltInDocProperty = currDoc.BuiltInDocumentProperties(wdPropertyComments) | |
End Function | |
Public Function getAppSpecificVBProject(currDoc As Document) 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 = wdWindowStateMinimize | |
Application.Visible = False | |
End Sub | |
Public Sub LocalizeResources() | |
Dim wrdStrings As StringDataManager | |
Set wrdStrings = New StringDataManager | |
wrdStrings.InitStringData (GetResourceDataFileName(ThisDocument.path)) | |
LoadCommonStrings wrdStrings | |
LoadWordStrings wrdStrings | |
LoadResultsStrings wrdStrings | |
Set wrdStrings = Nothing | |
'SetWordDriverText | |
End Sub | |
' Set the loaded string variable into the fields in the document | |
Private Sub SetWordDriverText() | |
On Error Resume Next | |
CAPP_DOCPROP_LOCATION = RID_STR_COMMON_RESULTS_LOCATION_TYPE_DOCUMENT | |
ThisDocument.FormFields.item("RID_STR_WDVR_SOANA").Result = RID_STR_WDVR_SOANA | |
ThisDocument.FormFields.item("RID_STR_WDVR_INTRO").Result = RID_STR_WDVR_INTRO | |
ThisDocument.FormFields.item("RID_STR_WDVR_TITLE").Result = RID_STR_WDVR_TITLE | |
ThisDocument.FormFields.item("RID_STR_WDVR_PURPO").Result = RID_STR_WDVR_PURPO | |
ThisDocument.FormFields.item("RID_STR_WDVR_PARA1").Result = RID_STR_WDVR_PARA1 | |
ThisDocument.FormFields.item("RID_STR_WDVR_ISSUE").Result = RID_STR_WDVR_ISSUE | |
ThisDocument.FormFields.item("RID_STR_WDVR_PARA2").Result = RID_STR_WDVR_PARA2 | |
End Sub | |