xref: /trunk/main/migrationanalysis/src/driver_docs/sources/word/ApplicationSpecific.bas (revision e76eebc6)

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