Ich würde gerne in meinem Projekt durchweg die Option Strict On nutzen. Wenn ich das tue, habe ich ein Problem mit folgendem Code, da die Option Strict On spätes binden nicht zulässt. Kann mir jemand sagen, ob ich den nachfolgenden Code irgendwie anpassen kann, damit er konform mit der Option Strict On ist? Ich habe alle Stellen mal in die <<< >>> Klammern gesetzt, die VB so nicht akzeptiert.
VB.NET-Quellcode
- Dim oSM, oDesk, oDoc, oReplace As Object
- Dim aNoArgs(-1) As Object
- oSM = CreateObject("com.sun.star.ServiceManager")
- oDesk = <<<oSM.createInstance>>>("com.sun.star.frame.Desktop")
- oDoc = <<<oDesk.loadComponentFromURL>>>("file:///textdatei.odt", "_blank", 0, aNoArgs) 'Öffnet ein Textdokument
- oReplace = <<<oDoc.createReplaceDescriptor>>>
- 'Nachfolgend wird das Texdokument nach bestimmten Strings durchsucht. Diese werden dann ersetzt
- <<<oReplace.SearchString>>> = "Meier"
- <<<oReplace.ReplaceString>>> = "Schulze"
- <<<oDoc.replaceAll>>>(oReplace)