[Word 2003] bestandsnaam via VBA

[Devilmen]

Hoi allemaal,
ik ben een sjaboon aan het maken waarin de volgende dingen moeten gebeuren
wanneer iemand met dit sjabloon aan het werk gaat:
* Openen "Opslaan als ..." venster <-- reeds gelukt)
* Aangedragen filenaam moet gelijk zijn aan de templatenaam.
Dus:
Stel template is "Template 12.dot"
Nu staat er "Doc2" maar dit moet dan "Template 12" worden.

Bij voorbaat dank voor Uw hulp.

Devilmen

[onkl]

Als je er echt niet uitkomt kan je een referentie naar Excel opnemen en daarvan de getsaveasfilename gebruken. Maar het is omslachtig, ik zou even wachten op een beter idee van een slimmer mens.

[ Voor 20% gewijzigd door onkl op 05-12-2005 16:50 ]

[BertS]

Visual Basic:

  Dim dlg As Dialog
  
  Set dlg = Dialogs(wdDialogFileSaveAs)
  dlg.Name = ActiveDocument.AttachedTemplate.Name

[Devilmen]

Bedankt voor jullie reacties,
maar ben d'r nog niet uit.

Het volgende heb ik:

code:

'Pad instellen
  Dim a
  a = "Z:\Anders" 'Hier wordt de locatie aangegeven

'Zorgt voor dat b de naam van de dot-file heeft
  Dim b, strDocName
  Set myTemplate = ActiveDocument.AttachedTemplate
  b = myTemplate.Name
  
'Find position of extension in filename
  strDocName = b
  intPos = InStrRev(strDocName, ".")
  strDocName = Left(strDocName, intPos - 1)
'  strDocName = strDocName & ".doc"

'Moet de titel zien aan te passen van de nieuwe doc-file
Documents.Add.BuiltInDocumentProperties(wdPropertyTitle) = strDocName

'Dialoogvenster weergeven
  ChangeFileOpenDirectory (a) 'Pad dat wordt weergegeven in het dialoogvenster
  ActiveDocument.SaveAs (strDocName) 'slaat meteen op. NIET DE BEDOELING. wil nog locatie aangeven
  Dialogs(wdDialogFileSaveAs).Show  '"Save As..."-dialoogvenster weergeven

nu dus nog die titel/naam van de doc file aanpassen.

Alvast bedankt voor eventuele hulp en moeite.

Grtz.
devilmen

[ Voor 7% gewijzigd door Devilmen op 06-12-2005 17:03 ]

[Daos]

Is lezen zo moeilijk?

bee-es schreef op maandag 05 december 2005 @ 17:16:

Visual Basic:

  Dim dlg As Dialog
  
  Set dlg = Dialogs(wdDialogFileSaveAs)
  dlg.Name = ActiveDocument.AttachedTemplate.Name

Als je daar naar kijkt, dan zie je dat je het volgende kan doen:

Visual Basic:

'Dialoogvenster weergeven
  ChangeFileOpenDirectory (a) 'Pad dat wordt weergegeven in het dialoogvenster
  Set dlg = Dialogs(wdDialogFileSaveAs)
  dlg.Name = ActiveDocument.AttachedTemplate.Name
  dlg.Show  '"Save As..."-dialoogvenster weergeven

Verder nog een tipje:
Gebruik duidelijke namen voor je variabelen (Dus geen a en b).

[Verwijderd]

snel:

code:

Sub t()
  With Dialogs(wdDialogFileSaveAs)
    .Name = strDocName
    .Show
  End With
End Sub

regel 21 kun je dan gewoon weglaten. regel 17 gaat niet werken vrees ik aimgh is dit een bug in word.

[Devilmen]

[quote]Daos schreef op dinsdag 06 december 2005 @ 17:15:
Is lezen zo moeilijk?
quote]
Lezen is best wel moeilijk zonder schone brilglazen

Bedankt voor de tip. zal d'r de volgende keer aan denken.

[Devilmen]

Hartelijk dank voor ieders hulp.
Het is gelukt.


Grtz.
devilmen

[ Voor 42% gewijzigd door Devilmen op 07-12-2005 13:42 ]