Atwist
Terugkerende gebruiker
- Lid geworden
- 24 jan 2006
- Berichten
- 1.076
- Besturingssysteem
- Wndows 11
- Office versie
- 2016
Hallo forum leden,
Ik heb hieronder een stukje programmeering die ik graag wil veranderen zodat ik met mijn programma PDF en DWG(AutoCad) kan inlezen maar ik heb geen idee hoe ik dat moet doen, is er iemand die deze uitdaging aankan.
__________________________________________________________________________
Sub Wrd(strBestand As String)
' Een Word-bestand openen
Dim wrdobj As Word.Application
Dim Sluiten As Boolean
On Error GoTo Fout1 'Als Word nog niet geopend is
Set wrdobj = GetObject(, "Word.Application") 'Verwijs naar een bestaande Word-instantie
On Error GoTo Fout2 'Als het bestand niet geopend kan worden
wrdobj.Visible = True 'Geef de Word-instantie weer
wrdobj.Documents.Open (strBestand) 'Open het bestand
wrdobj.Activate 'Word activeren
If wrdobj.WindowState = wdWindowStateMinimize Then 'Is het Word-venster geminimaliseerd?
wrdobj.WindowState = wdWindowStateNormal 'Herstel het Word-venster
End If
Set wrdobj = Nothing 'Hef de verwijzing naar Word op
Exit Sub
Fout1: 'Fout bij de verwijzing naar een bestaande instantie
Sluiten = True 'Word werd nu geopend
'Maak een nieuwe instantie verantwoorden Word
Set wrdobj = CreateObject("Word.Application")
Resume Next 'Ga door met de procedure
Fout2: 'Fout bij het inladen van het bestand
MsgBox ("Het bestand kon niet worden geopend!")
If Sluiten Then wrdobj.Quit 'Sluit Word weer af als de instantie nu geopend werd.
Set wrdobj = Nothing 'Hef de verwijzing op
End Sub
__________________________________________________________________________
Ik zie graag jullie reactie
Mijn dank is bijvoorbaat groot
Ik heb hieronder een stukje programmeering die ik graag wil veranderen zodat ik met mijn programma PDF en DWG(AutoCad) kan inlezen maar ik heb geen idee hoe ik dat moet doen, is er iemand die deze uitdaging aankan.
__________________________________________________________________________
Sub Wrd(strBestand As String)
' Een Word-bestand openen
Dim wrdobj As Word.Application
Dim Sluiten As Boolean
On Error GoTo Fout1 'Als Word nog niet geopend is
Set wrdobj = GetObject(, "Word.Application") 'Verwijs naar een bestaande Word-instantie
On Error GoTo Fout2 'Als het bestand niet geopend kan worden
wrdobj.Visible = True 'Geef de Word-instantie weer
wrdobj.Documents.Open (strBestand) 'Open het bestand
wrdobj.Activate 'Word activeren
If wrdobj.WindowState = wdWindowStateMinimize Then 'Is het Word-venster geminimaliseerd?
wrdobj.WindowState = wdWindowStateNormal 'Herstel het Word-venster
End If
Set wrdobj = Nothing 'Hef de verwijzing naar Word op
Exit Sub
Fout1: 'Fout bij de verwijzing naar een bestaande instantie
Sluiten = True 'Word werd nu geopend
'Maak een nieuwe instantie verantwoorden Word
Set wrdobj = CreateObject("Word.Application")
Resume Next 'Ga door met de procedure
Fout2: 'Fout bij het inladen van het bestand
MsgBox ("Het bestand kon niet worden geopend!")
If Sluiten Then wrdobj.Quit 'Sluit Word weer af als de instantie nu geopend werd.
Set wrdobj = Nothing 'Hef de verwijzing op
End Sub
__________________________________________________________________________
Ik zie graag jullie reactie
Mijn dank is bijvoorbaat groot
