DialogModul.xba (3e02b54d) | DialogModul.xba (bc0b50dd) |
---|---|
1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<!--*********************************************************** 4 * 5 * Licensed to the Apache Software Foundation (ASF) under one 6 * or more contributor license agreements. See the NOTICE file 7 * distributed with this work for additional information 8 * regarding copyright ownership. The ASF licenses this file --- 75 unchanged lines hidden (view full) --- 84' Applications(X,3) = "File:///..." (SourceUrl of the documents) 85' Applications(X,4) = "File///:..." (TargetUrl of the documents) 86' Applications(X,5) = True/False (Templates are to be converted) 87' Applications(X,6) = True/False (Including Subdirectories) 88' Applications(X,7) = "File:///..." (SourceUrl of the templates) 89' Applications(X,8) = "File:///..." (TargetUrl of the templates) 90' Applications(X,9) = 0 (Key to the original Index of the Applications) 91 | 1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<!--*********************************************************** 4 * 5 * Licensed to the Apache Software Foundation (ASF) under one 6 * or more contributor license agreements. See the NOTICE file 7 * distributed with this work for additional information 8 * regarding copyright ownership. The ASF licenses this file --- 75 unchanged lines hidden (view full) --- 84' Applications(X,3) = "File:///..." (SourceUrl of the documents) 85' Applications(X,4) = "File///:..." (TargetUrl of the documents) 86' Applications(X,5) = True/False (Templates are to be converted) 87' Applications(X,6) = True/False (Including Subdirectories) 88' Applications(X,7) = "File:///..." (SourceUrl of the templates) 89' Applications(X,8) = "File:///..." (TargetUrl of the templates) 90' Applications(X,9) = 0 (Key to the original Index of the Applications) 91 |
92Public Const SBMAXEXTENSIONLENGTH = 15 | 92Public Const SBMAXEXTENSIONLENGTH = 17 |
93 94 95Sub FillStep_Welcome() 96Dim i as Integer 97' bDoKeepApplValues = False 98 ImportDialogArea.Title = sTitle 99 With ImportDialog 100 .cmdHelp.Label = sHelpButton --- 306 unchanged lines hidden (view full) --- 407 sKeyName(1) = "Software\Microsoft\Office\8.0\Excel\Microsoft Excel" 408 sKeyName(2) = "Software\Microsoft\Office\8.0\PowerPoint\Recent Folder List\Default" 409 410 sValueName(0) = "DOC-PATH" 411 sValueName(1) = "DefaultPath" 412 sValueName(2) = "" 413 414' See definition of Filtername-Array about meaning of fields | 93 94 95Sub FillStep_Welcome() 96Dim i as Integer 97' bDoKeepApplValues = False 98 ImportDialogArea.Title = sTitle 99 With ImportDialog 100 .cmdHelp.Label = sHelpButton --- 306 unchanged lines hidden (view full) --- 407 sKeyName(1) = "Software\Microsoft\Office\8.0\Excel\Microsoft Excel" 408 sKeyName(2) = "Software\Microsoft\Office\8.0\PowerPoint\Recent Folder List\Default" 409 410 sValueName(0) = "DOC-PATH" 411 sValueName(1) = "DefaultPath" 412 sValueName(2) = "" 413 414' See definition of Filtername-Array about meaning of fields |
415 MSFilterName(0,0) = "doc" 416 MSFilterName(0,1) = "writer8" 417 MSFilterName(0,2) = "odt" | 415 MSFilterName(0,0) = "doc|docx|docm" 416 MSFilterName(0,1) = "writer8|writer8|writer8" 417 MSFilterName(0,2) = "odt|odt|odt" |
418 MSFilterName(0,3) = sMSDocumentCheckBox(0) 419 MSFilterName(0,4) = "Word" 420 421 | 418 MSFilterName(0,3) = sMSDocumentCheckBox(0) 419 MSFilterName(0,4) = "Word" 420 421 |
422 MSFilterName(1,0) = "xls" 423 MSFilterName(1,1) = "calc8" 424 MSFilterName(1,2) = "ods" | 422 MSFilterName(1,0) = "xls|xlsx|xlsm" 423 MSFilterName(1,1) = "calc8|calc8|calc8" 424 MSFilterName(1,2) = "ods|ods|ods" |
425 MSFilterName(1,3) = sMSDocumentCheckBox(1) 426 MSFilterName(1,4) = "Excel" 427 | 425 MSFilterName(1,3) = sMSDocumentCheckBox(1) 426 MSFilterName(1,4) = "Excel" 427 |
428 MSFilterName(2,0) = "ppt|pps" 429 MSFilterName(2,1) = "impress8|impress8" 430 MSFilterName(2,2) = "odp|odp" | 428 MSFilterName(2,0) = "ppt|pps|pptx|pptm" 429 MSFilterName(2,1) = "impress8|impress8|impress8|impress8" 430 MSFilterName(2,2) = "odp|odp|odp|odp" |
431 MSFilterName(2,3) = sMSDocumentCheckBox(2) 432 MSFilterName(2,4) = "PowerPoint" 433 | 431 MSFilterName(2,3) = sMSDocumentCheckBox(2) 432 MSFilterName(2,4) = "PowerPoint" 433 |
434 MSFilterName(3,0) = "dot" 435 MSFilterName(3,1) = "writer8_template" 436 MSFilterName(3,2) = "ott" | 434 MSFilterName(3,0) = "dot|dotx|dotm" 435 MSFilterName(3,1) = "writer8_template|writer8_template|writer8_template" 436 MSFilterName(3,2) = "ott|ott|ott" |
437 MSFilterName(3,3) = sMSTemplateCheckBox(0) 438 MSFilterName(3,4) = "Word" 439 | 437 MSFilterName(3,3) = sMSTemplateCheckBox(0) 438 MSFilterName(3,4) = "Word" 439 |
440 MSFilterName(4,0) = "xlt" 441 MSFilterName(4,1) = "calc8_template" 442 MSFilterName(4,2) = "ots" | 440 MSFilterName(4,0) = "xlt|xltx|xltm" 441 MSFilterName(4,1) = "calc8_template|calc8_template|calc8_template" 442 MSFilterName(4,2) = "ots|ots|ots" |
443 MSFilterName(4,3) = sMSTemplateCheckBox(1) 444 MSFilterName(4,4) = "Excel" 445 | 443 MSFilterName(4,3) = sMSTemplateCheckBox(1) 444 MSFilterName(4,4) = "Excel" 445 |
446 MSFilterName(5,0) = "pot" 447 MSFilterName(5,1) = "impress8_template" 448 MSFilterName(5,2) = "otp" | 446 MSFilterName(5,0) = "pot|potx|potm" 447 MSFilterName(5,1) = "impress8_template|impress8_template|impress8_template" 448 MSFilterName(5,2) = "otp|otp|otp" |
449 MSFilterName(5,3) = sMSTemplateCheckBox(2) 450 MSFilterName(5,4) = "PowerPoint" 451End Sub 452 453 454 455' This is an extract from "http://util.openoffice.org/source/browse/util/sot/source/base/exchange.cxx?rev=1.25&content-type=text/x-cvsweb-markup" 456' about the listed defined mimetypes that are required to define binary StarOffice templates that have for all applications the same extension ".vor" --- 221 unchanged lines hidden --- | 449 MSFilterName(5,3) = sMSTemplateCheckBox(2) 450 MSFilterName(5,4) = "PowerPoint" 451End Sub 452 453 454 455' This is an extract from "http://util.openoffice.org/source/browse/util/sot/source/base/exchange.cxx?rev=1.25&content-type=text/x-cvsweb-markup" 456' about the listed defined mimetypes that are required to define binary StarOffice templates that have for all applications the same extension ".vor" --- 221 unchanged lines hidden --- |