WORD en BOOKMARKS

[Jan Liekens]

Ik heb een Word werkblad waarin bovenaan een bookmark staat.
Nu zou ik deze bookmark willen gebruiken als bestandsnaam, via een macro in VBA
Het lukt vrijwel om via MsgBox de inhoud van de bookmark te tonen.
Doch bij SaveAs krijg ik steeds een foutmelding.
Wie kan mij hierbij helpen en heeft er ervaring mee.

Dank bij voorbaat
Jan Liekens

-------
De code ziet er als volgt uit :
--------------------------
Option Explicit

Sub mcrOpslaanTemplate()
'
' mcrOpslaanTemplate Macro
' Macro recorded 11/8/2007 by Jan Liekens

Dim Path1 As String
Dim Path2 As String
Dim bestandsnaam As String

Path1 = ActiveDocument.Path

Path2 = Path1 & "\Output\WordDocumenten\"



Selection.GoTo What:=wdGoToBookmark, Name:="MR_POLISNUMMER"
Selection.Find.ClearFormatting



bestandsnaam = ActiveDocument.Bookmarks("MR_POLISNUMMER").Range.Text

ActiveDocument.SaveAs FileName:=Trim(bestandsnaam) & ".doc"


ActiveWindow.Close


End Sub

 

[Wigi]

Geef jouw syntax eens van die SaveAs. En tevens de inhoud van de bookmark at run-time.

 

[Jan Liekens]

Geef jouw syntax eens van die SaveAs. En tevens de inhoud van de bookmark at run-time.

------
Option Explicit

Sub mcrOpslaanTemplate()
'
' mcrOpslaanTemplate Macro
' Macro recorded 11/8/2007 by Jan Liekens

Dim Path1 As String
Dim Path2 As String
Dim bestandsnaam As String

Path1 = ActiveDocument.Path

Path2 = Path1 & "\Output\WordDocumenten\"



Selection.GoTo What:=wdGoToBookmark, Name:="MR_POLISNUMMER"
Selection.Find.ClearFormatting



bestandsnaam = ActiveDocument.Bookmarks("MR_POLISNUMMER").Range.Text
bestandsnaam=ActiveDocument.SaveAs FileName:=Trim(bestandsnaam) & ".doc"


ActiveWindow.Close


End Sub

 

[Wigi]

In

bestandsnaam=ActiveDocument.SaveAs FileName:=Trim(bestandsnaam) & ".doc"

moet meer dan waarschijnlijk de

bestandsnaam=

weg.

 

[Jan Liekens]

In

bestandsnaam=ActiveDocument.SaveAs FileName:=Trim(bestandsnaam) & ".doc"

moet meer dan waarschijnlijk de

bestandsnaam=

weg.

-----
Klopt dat staat daar niet goed. Maar ook als ik dat verwijder krijg ik steeds de foutmelding.
--------------------------
Fout 5487 tijdens uitvoering
Kan opslaan niet voldoen wegens fout met bestandstoegang en dan volgt (c:\....\2007010006_AV_Multirisic.doc)
----------------------------
Wanneer ik Trim(bestandsnaam) & ".doc" vervang door bijv. "200710006_AV_Multirisic.doc" wordt het bestand perfect opgeslagen.


Inmiddels hartelijk bedankt voor het meedenken.
Jan Liekens

 

[Wigi]

Zet eens

MsgBox bestandsnaam

net na de regel

bestandsnaam = ActiveDocument.Bookmarks("MR_POLISNUMMER").Range.Text

Wat krijg je dan?

Wigi

 

[Wigi]

Ik vermoed dat het probleem is dat je een datum wil gebruiken in de bestandsnaam. Moet je mee opletten. Zie hier: http://www.helpmij.nl/forum/showthread.php?t=324894

 

[Jan Liekens]

Ik vermoed dat het probleem is dat je een datum wil gebruiken in de bestandsnaam. Moet je mee opletten. Zie hier: http://www.helpmij.nl/forum/showthread.php?t=324894

------
Wigi,

Ik heb het probleem inmiddels gevonden. Achter de bestandsnaam stond een ENTER teken. Dat was de reden waarom het bestand niet opgeslagen werd.
Hierna de code welke werkt.

Option Explicit

Sub mcrOpslaanTemplate()
'
' mcrOpslaanTemplate Macro
' Macro recorded 11/8/2007 by Jan Liekens

Dim Path1 As String
Dim Path2 As String
Dim sMyString As String

Path1 = ActiveDocument.Path

'MsgBox Path1
Path2 = Path1 & "\Output\WordDocumenten\"

Selection.GoTo What:=wdGoToBookmark, Name:="bkmPolisnummer"
sMyString = (Selection.Text)

'MsgBox sMyString

ChangeFileOpenDirectory Path2
ActiveDocument.SaveAs FileName:=sMyString, Fileformat:=wdFormatDocument


ActiveWindow.Close


End Sub
--------------------------------------------
Nogmaals bedankt voor het meezoeken.
Jan Liekens

 

[Wigi]

In orde, graag gedaan.

Wigi

PS:

Achter de bestandsnaam stondt een ENTER teken.