huidige directory

[Kramer]

Hallo mensen,

Ik heb een klein probleem.

Ik heb een macro die verwijst naar een plek op het netwerk. Hier staat bouwstenen correspondentie.

Wanneer ze na het draaien van de macro bestand openen doen. Opent hij deze map. Eigenlijk is dan de bedoeling dat ze de map dan open waar ze in werkte voor dat ze de macro draaide.

 

[snb]

Dan zul je de macro moeten aanpassen.

 

[Kramer]

Dan zul je de macro moeten aanpassen.

Dat snap ik. Anders zou ik de vraag niet stellen


Is het dan mogelijk dat hij op een manier de huidige map bewaard en nadat hij de map met bouwstenen heeft geopend deze weer terug zet

 

[snb]

Je hoeft de map met bouwstenen niet te 'openen' om er objekten uit te halen.
Plaats je macro hier, wel zo makkelijk.

 

[Kramer]

hier is de code

Sub bouwstenen()
paden
ipad = ipad + "\persgeg.ini"
rubriek = System.PrivateProfileString(ipad, "geg", "rubriek")
'locatie = Options.DefaultFilePath(wdUserTemplatesPath)
locatie = "g:\word"

ChangeFileOpenDirectory (locatie)
Set haalfile = Dialogs(wdDialogFileOpen)
With Dialogs(wdDialogFileOpen)
    .Name = "*.doc"
    bclicked = .Display
    resultaat = .Name
If bclicked = 0 Then 'annuleer
Else
locatie = locatie + "\" + resultaat
    Selection.InsertFile FileName:=.Name, Range _
    :="", ConfirmConversions:=False, Link:=False, Attachment:=False
End If
End With
End Sub

 

[snb]

Daar zit nogal wat overbodige code in.

om een overzicht te krijgen van alle 'bouwstenen' in combobox1:

Sub overzicht()
for each fl in createobject("scripting.filesystemobject").getfolder("G:\word").files
  c0 = c0 & fl.name & "|"
next
combobox1.list=split(c0,"|")
End Sub

nadat de keuze in de combobox is gemaakt:

activedocument.paragraphs(1).range.insertfile "G:\word\" & combobox1.value

De combobox kan in een userform staan (bij voorkeur), in een werkbalk (commandbar) of in een document.

 

[Kramer]

ziet er goed uit, ga er maandag mee aan de slag.

Gregor

 

[Kramer]

foutmelding

Ik krijg op dit stukje code een foutmelding

c0 = c0 & fl.name & "|")

Namelijk de melding:
Compileerfout:
Syntaxfout

 

[snb]

haal het sluithaakje weg, zodat resteert: c0 = c0 & fl.name & "|"

 

[Kramer]

Dom van mij dat ik het het haakje over het hoofd heb gezien.

Bedankt.

Heb er eerst een apart sjabloon van gemaakt. Nu ga ik hem inbakken in onze werkbalk van het werk.

Nogmaals bedankt

 

[Kramer]

*.doc

Is het ook mogelijk dat hij alleen alle worddocumenten eruit haalt. Dus alleen alle documenten met de extensie .doc