[Word 2003] Automatisch variabelen als bestandsnaam

[Mud]

Hier op het werk doen ze regelmatig faxen, de faxen die binnen komen worden via Word 2003 geladen.

Om het archiveren van die faxen zo makkelijk mogelijk te maken willen ze al een aantal terug komende zaken als order/charter/datum automatisch in de bestandsnaam hebben als ze het document willen bewaren.

Via de search op GoT/Office help/google heb ik nog niets kunnen vinden.
Zelf zit ik al wel in de richting van VB/Microsoft scripts te denken.

Wat is & zou het makkelijkst zijn?

[YellowCube]

om te beginnen kun je deze macro maken:

code:

Sub BestandOpslaan

Dim bestandslocatie, bestandsnaam, ordernummer as String

'Bedenk hier iets of je bestandnaam samen te stellen bijv:
ordernummer = 'een bepaalde kenmerk in de fax
bestandsnaam = Date$ & "_" & ordernummer


    ChangeFileOpenDirectory _
        bestandslocatie
    ActiveDocument.SaveAs FileName:=bestandsnaam, FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
End Sub

hoe je dat ordernummer uit de fax haalt moet je zelf even over nadenken. Staat dit bijv. altijd op dezelfde plek in het document? Zo ja, dan kun je in de macro zetten dat ie de tekst van een bepaalde locatie moet gebruiken als ordernummer.
die macro kun je dan gebruiken om zaken op te slaan.

Is dit een goed begin?

[Mud]

YellowCube schreef op dinsdag 17 juli 2007 @ 11:40:
om te beginnen kun je deze macro maken:

code:

Sub BestandOpslaan

Dim bestandslocatie, bestandsnaam, ordernummer as String

'Bedenk hier iets of je bestandnaam samen te stellen bijv:
ordernummer = 'een bepaalde kenmerk in de fax
bestandsnaam = Date$ & "_" & ordernummer


    ChangeFileOpenDirectory _
        bestandslocatie
    ActiveDocument.SaveAs FileName:=bestandsnaam, FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
End Sub

hoe je dat ordernummer uit de fax haalt moet je zelf even over nadenken. Staat dit bijv. altijd op dezelfde plek in het document? Zo ja, dan kun je in de macro zetten dat ie de tekst van een bepaalde locatie moet gebruiken als ordernummer.
die macro kun je dan gebruiken om zaken op te slaan.

Is dit een goed begin?

De order/charter staat altijd op dezelfde plek in het document.

Dit is zeker een goed begin ik zal er eens mee gaan spelen

[YellowCube]

dan is het op zich goed te doen.
Staat dat ordernummer alleen of wordt het altijd vooraf gegaan door
order: ordernummer

dan kun je namelijk met een macro op zoek naar het woord order.

code:

Sub FindExpression
'
Dim expression as String

expression = "order"
    Selection.HomeKey Unit:=wdStory 'zet cursor aan het begin van het document.
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = expression
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
End Sub

hij markeert dan automatisch het te zoeken woord (order).
Daarna kun je achter dat woord gaan zoeken naar het nummer.

[Mud]

YellowCube schreef op dinsdag 17 juli 2007 @ 11:56:
dan is het op zich goed te doen.
Staat dat ordernummer alleen of wordt het altijd vooraf gegaan door
order: ordernummer

dan kun je namelijk met een macro op zoek naar het woord order.

Ik zal eens om een fax voorbeeld vragen