Map toewijzen aan de hand van de gemaakte keuze

[RudmerWillemsma]

Voor een opdracht ben ik bezig met het maken van een word sjabloon.
Voor dit sjabloon moet elk document van een uniek nummer worden voorzien en dit moet gebeuren als je het sjabloon opent.
Daarom maak ik gebruik van een AutoNew in mijn code.
Dit heb ik al gedaan aan de hand van deze code.

Sub AutoNew()

Docnr = System.PrivateProfileString("J:\Rudmer\KwaliteitManagmentSystem\Settings\Settings.Txt", _
        "MacroSettings", "Docnr")

If Docnr = "" Then
    Docnr = 1
Else
    Docnr = Docnr + 1
End If

System.PrivateProfileString("J:\Rudmer\KwaliteitManagmentSystem\Settings\Settings.txt", "MacroSettings", _
        "Docnr") = Docnr

ActiveDocument.Bookmarks("Docnr").Range.InsertBefore Format(Docnr, "#")
ChangeFileOpenDirectory "J:\Rudmer\KwaliteitManagmentSystem\"
ActiveDocument.SaveAs FileName:="DOC_410 A&V" & Format(Docnr, "#")

End Sub

Punt 2:

Het opslaan in de daarvoor aangemaakte map aan de hand van een keuzerondje.

In mijn document heb ik 2 keuze rondjes verwerkt met daarachter de naam van de behandelaar.
Er zal altijd 1 keuze rondje worden geselecteerd.
Op de server heb ik 2 mappen voor elke persoon 1.
Nu wil ik aan de hand van dit keuzerondje kunnen aangeven in welke map dit document word opgeslagen.
Is dit mogelijk en/of wat zijn andere opties.
Ik wil niet meer dat ik het document apart moet opslaan maar dat dit automatisch gaat in de daarvoor aangegeven map aan de hand van het keuzerondje naar dat het document gesloten word.

Voor een automatische macro te maken bij sluiten word gebruik gemaakt van.

AutoClose

Nu heb ik de macro al proberen op te nemen maar dit werkte dus niet.

Als dit document verkeerd geplaatst is laat het dan even weten, want wist niet of ik bij de VB of VBA moest zijn.

Alvast bedankt,

Met vriendelijke groet,

Rudmer Willemsma

 

[Tha Devil]

Welkom op Helpmij

Je vraag is verplaatst naar Visual Basic for Applications.

Verder verwachten wij bij opdrachten altijd initiatief van de vraagsteller, dus wat heb je zelf al opgezocht om er achter te komen of het mogelijk is om met die keuzerondjes te werken?

Met vriendelijke groet,

Stefan (Tha Devil)

 

[RudmerWillemsma]

Document verplaatsen door wisselen tussen CheckBox

Ben vandaag weer wat verder gekomen.

Macro Document nr werkt nog zoals eerst

Sub AutoNew()

Docnr = System.PrivateProfileString("J:\Rudmer\KwaliteitManagmentSystem\Settings\Settings.Txt", _
        "MacroSettings", "Docnr")

If Docnr = "" Then
    Docnr = 1
Else
    Docnr = Docnr + 1
End If

System.PrivateProfileString("J:\Rudmer\KwaliteitManagmentSystem\Settings\Settings.txt", "MacroSettings", _
        "Docnr") = Docnr

ActiveDocument.Bookmarks("Docnr").Range.InsertBefore Format(Docnr, "#")

End Sub

Voor het aangeven waar deze opgeslagen moet worden maak ik gebruik van checkbox

Private Sub Q1A_Click()
 If Q1A.Value = True Then
  Q1B.Value = False
  Q1C.Value = False
 End If
 
ChangeFileOpenDirectory "J:\Rudmer\KwaliteitManagmentSystem\behandelaar 1\"
ActiveDocument.SaveAs FileName:="DOC_410 A&V" & Format(Docnr, " #")

End Sub

Private Sub Q1B_Click()
 If Q1B.Value = True Then
  Q1A.Value = False
  Q1C.Value = False
 End If

ChangeFileOpenDirectory "J:\Rudmer\KwaliteitManagmentSystem\behandelaar 2\"
ActiveDocument.SaveAs FileName:="DOC_410 A&V" & Format(Docnr, " #")

End Sub

Private Sub Q1C_Click()
 If Q1C.Value = True Then
  Q1A.Value = False
  Q1B.Value = False
 End If
 
ChangeFileOpenDirectory "J:\Rudmer\KwaliteitManagmentSystem\Geen behandelaar\"
ActiveDocument.SaveAs FileName:="DOC_410 A&V" & Format(Docnr, " #")

End Sub

Standaard zou het document moet worden opgeslagen in Geen behandelaar dit omdat checkbox voor geen behandelaar(Q1C) staat aangevinkt in het formulier.
Zodra ik dan wissel van Geen behandelaar(Q1C) naar behandelaar 1(Q1A) of behandelaar 2(Q1B) moet het document zich verplaatsen en niet opnieuw opslaan. Ook word het Docnr nu niet achter de bestandsnaam geplaatst...
Hoe los ik dit op?

Ook als het mogelijk is zou ik graag nog een melding willen geven voor dat het document word opgeslagen dat Geen behandelaar nog staat ingeschakeld als er niet is veranderd van behandelaar

Alvast bedankt