End With
set apWord = nothing


Maar wat als je een bookmark in een footnote dient te voorzien van dynamische data?

We werken het eerste voorbeeld verder uit:

Dim apWord As New Word.Application
With apWord
With .Selection
.Goto wdGoToBookmark, Name:="MijnBookmarkNaam1"
.TypeText rsTabel!Veldnaam
End With
.ActiveWindow.View.SeekView = wdSeekFootnotes
.Goto wdGoToBookmark, Name:="MijnBookmarkInEenFootnoteNaam1"
.TypeText rsTabel!voetnoottekst
End With
set apWord = nothing


Ik dacht het te doen werken met het prtofilename attribuut van het printout commando.
Mijn pagina’s werden opgeslagen in de juiste directory met de juiste naam (de naam van de pagina) doch als ik ze wou openen kreeg ik een foutmelding van acrobat reader. De bestanden waren ook merkelijk groter (tot 3 maal) dan de bestanden bij een individuele afdruk.

Maar ik drijf door, zo een dingen wil ik dan echt wel kunnen oplossen.
En opeens vond ik dan pdfCreator. Ik tweakte de code die ik vond op excelguru en creëer vanaf nu pdf bestanden in batch vanuit Excel.

De fout komt er doordat bvb een vertikale opzoeking geen resultaat oplevert.
De weergave van de #N/B kan onderdrukt worden dmv de functie ISNB

Bvb:

=ALS(ISNB(VERT.ZOEKEN(B5;'[MyOtherExcelSheet.xls]Pagina1'!$A$3:$B$212;2;0));"";VERT.ZOEKEN(B5;'[MyOtherExcelSheet.xls]pagina1'!$A$3:$B$212;2;0))

In excel 2007 kan je gebruik maken van als.fout(VERT.ZOEKEN(B5;'[MyOtherExcelSheet.xls]Pagina1'!$A$3:$B$212;2;0));"")

Niet handig dus als je bvb met timers werkt die tijdsgebonden zijn.
Stel dat in dit geval de msgbox niet weggeklikt wordt dan blijft het programma gewoon hangen.

De oplossing die ik hiervoor gebruik is om de msgbox op een nieuw form te laten verschijnen. Retourwaarden van de msgboxfunctie kunnen makkelijk aan het oproepende formulier doorgegeven worden. O ja, en zo kun je eventueel zelf de layout van je msgbox gaan bepalen. Design maar eens een form met enkele buttons (bvb ja/nee) en een label erop waarop de vraag ingevuld werd.

Matthias schreef deze plugin.

Als ik mijn variabelen als volgt declareer :


' maak een referentie naar microsoft xml4.0 (project - references)
' declareer variabelen
Dim sSchemaFile As String
Dim sWorkFile As String
sSchemaFile = txtSchemaPath.Text
sWorkFile = txtPath.Text
Dim schemaCache As MSXML2.XMLSchemaCache40
Set schemaCache = New MSXML2.XMLSchemaCache40
' toevoegen van de namespace aan de schemacache
schemaCache.Add "http://mijnnamespace.be/xml", sSchemaFile
Dim xml_document As MSXML2.DOMDocument40
Set xml_document = New MSXML2.DOMDocument40
Set xml_document.Schemas = schemaCache


Dan wordt de XML file getoetst door
Set xml_document.Schemas = schemaCache

Inlezen van het bestand in onze variabele:
xml_document.async = False
If Not xml_document.Load(sWorkFile) Then
MsgBox "Error - : " & xml_document.parseError.reason
Exit Sub
End If

Maar als ik nu een enkele node of een reeks nodes in een nodeobject wens in te lezen dan krijg ik steeds een ‘Nothing’ als return waarde.


' declareer node objecten
Dim values_node As IXMLDOMNode ' single node
Dim values_nodelist As IXMLDOMNodeList ' nodelijst (array)

Set values_node = xml_document.SelectSingleNode("form//contactperson/name") --> Nothing
Set values_node = xml_document.SelectSingleNode("form//contactperson/name") --> Nothing


Ik heb de namespace dan toegevoegd aan de eigenschappen van het xml object (xml_document in mijn geval)

xml_document.validateOnParse = True 'nodig vooraleer we de namespace property instellen
xml_document.setProperty "SelectionNamespaces", "xmlns:x='http://mijnnamespace.be/xml'"

We gebruiken x als prefix.

Uitlezen:
Set values_node = xml_document.SelectSingleNode("x:form//contactperson/nom") --> Nothing
' Attributen uitlezen:
Set values_nodelist = xml_document.SelectNodes("x:form//@bedrag") --> array van bedragen


(Tijdelijke) Work around om ook die single node uit te lezen.

' in plaats van naar domdocument40 te refereren:
'Set xml_document.Schemas = schemaCache
Set xml_document = New MSXML2.DOMDocument
'Het xml_document valideren dmv de validate functie
Validate sWorkFile, sSchemaFile

End Function

En dit werkt dus wel. Ook al vind ik het maar een beetje viesjes.

Ik ben voorstander om een project te openen in een cleane werkomgeving.
Om dat te doen volstaat het om het vbw (Visual Basic Workspace) bestand van het project read only te maken.
Open het vbw bestand met een externe editor (vb notepad). Verwijder al de tekst die in het bestand staat en maak er een read only bestand van.

Als je nu de volgende keer jou visual basic project opstart, zal de editor geen forms meer openen.

Declaratie van functies:
Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName _
As String, ByVal lpKeyName As Any, ByVal lpDefault _
As String, ByVal lpReturnedString As String, ByVal _
nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName _
As String, ByVal lpKeyName As Any, ByVal lpString As Any, _
ByVal lpFileName As String) As Long


Gegevens uit een inifile halen:

Public Function sGetINI(sINIfile As String, sSection As String, sKey _
As String, sDefault As String) As String

Gegevens naar een inifile schrijven
Public Sub writeINI(sINIfile As String, sSection As String, sKey _
As String, sValue As String)

End Sub