SaveAs i word

Du får uden tvivl et linieskift/afsnitskift med i din markering

Prøv følgende rettelse:

strTemp = Left(Selection, Len(Selection) - 1)

Det virker, men jeg får ikke dialogboksen "Gem som" frem således, at jeg kan "godkende" filnavnet inden jeg gemmer og hvis jeg senere gemmer igen, overskriver den bare filen med de evt. nye ændringer.

Prøver at finde en løsning

'Jeg har fundet følgende kode til at sætte filnavnet i SaveAs boksen. Jeg klipper den ud fra et givent sted i dokumentet og forsøger så, at få udklipsholderen til at sætte navnet, hvorefter jeg manuelt skal trykke gem (kontrol), men følgende fejlmeddelelse kommer op. Hvad gør jeg forkert?
'Run-time error ’5487’:
'En fuld lagring kunne ikke gennemføres på grund af fejl i forbindelse med adgangen til filen.
Sub SaveAsMedNavn()
Dim fs, svar, dok
Dim strTemp As String

    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy

    strTemp = Left(Selection, Len(Selection) - 1)
   
    Set fs = CreateObject("Scripting.FileSystemObject")

    If fs.fileexists(strTemp + ".doc") = False Then
        gemDocument strTemp
    Else
        Set sti = fs.getfile(strTemp + ".doc")
        svar = MsgBox(sti.Path + strTemp + ".doc findes i forvejen - overskrives?", vbYesNo)
        If svar = 6 Then
            gemDocument strTemp
        End If
    End If
End Sub
Private Sub gemDocument(strTemp)
    ActiveDocument.SaveAs FileName:=strTemp, _
        FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
       
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Jeg ved ikke hvad der er sket, men ser dit svar ikke lidt underligt ud?

Det er din oprindelige indledning, der er i begyndelsen af koden - det var ikke meningen.

Jeg har kopieret hele dit første indlæg ind i VBA - derfor.

Undskyld ventetiden!
Det ser ud til du har 2 makroer
???
Eller ser dit svar således ud?

Sub SaveAsMedNavn()
Dim fs, svar, dok
Dim strTemp As String

    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy

    strTemp = Left(Selection, Len(Selection) - 1)
   
    Set fs = CreateObject("Scripting.FileSystemObject")

    If fs.fileexists(strTemp + ".doc") = False Then
        gemDocument strTemp
    Else
        Set sti = fs.getfile(strTemp + ".doc")
        svar = MsgBox(sti.Path + strTemp + ".doc findes i forvejen - overskrives?", vbYesNo)
        If svar = 6 Then
            gemDocument strTemp
        End If
    End If
End Sub

og kan jeg sætte denne mappehenvisning på - evt. hvor

    ChangeFileOpenDirectory "C:\Documents and Settings\pom\Skrivebord\"
    ActiveDocument.SaveAs FileName:=strTemp, _
        FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
    Selection.MoveLeft Unit:=wdCharacter, Count:=1

OK m/ventetid - vi har jo også andet, der skal passes.
Vil du hellere have ChangeFileOpenDirectory ....... m.v. inkluderet?

Dette er makroen p.t. - med 2 Sub's:

Sub SaveAsMedNavn()
Dim fs, svar, dok
Dim strTemp As String

    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy

    strTemp = Left(Selection, Len(Selection) - 1)
   
    Set fs = CreateObject("Scripting.FileSystemObject")

    If fs.fileexists(strTemp + ".doc") = False Then
        gemDocument strTemp          'kald af Sub gemDocument *)
    Else
        Set sti = fs.getfile(strTemp + ".doc")
        svar = MsgBox(sti.Path + strTemp + ".doc findes i forvejen - overskrives?", vbYesNo)
        If svar = 6 Then
            gemDocument strTemp      '-"- *)
        End If
    End If
End Sub

Private Sub gemDocument(strTemp)
    ActiveDocument.SaveAs FileName:=strTemp, _
        FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
       
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Vil du hellere have ChangeFileOpenDirectory ....... m.v. inkluderet?

Ja- det vil jeg gerne, da jeg så også kan betemme/ændre mappe, hvor filen skal ligge og se filnavnet inden jeg gemmer.

Den korte version:

Sub SaveAsMedNavn()
Dim strTemp As String
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy

    strTemp = Left(Selection, Len(Selection) - 1)
   
    ChangeFileOpenDirectory "C:\Documents and Settings\pom\Skrivebord\"
    Set dia = Dialogs(wdDialogFileSaveAs)
        dia.Name = strTemp
        dia.Show
       
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Nu er det fint, men den overskriver, hvis man gemmer igen med samme filnavn

Ok - så indsætter vi den tidligere kontrol ind igen.

Men - er det evt. ikke tilstrækkeligt at man bliver advaret, hvis filen findes i forvejen og derved mulighed for at overskrive eller gemme under andet navn/placering??

Det lyder rigtigt, men jeg er vist stået helt af. Kan du ikke vise mig helt præcist, hvad jeg gør?

Const sti = "C:\Documents and Settings\pom\Skrivebord\" 
Sub SaveAsMedNavn()
Dim strTemp As String, fs
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy

    strTemp = Left(Selection, Len(Selection) - 1)
   
    Set fs = CreateObject("Scripting.FileSystemObject")

    If fs.fileexists(sti + strTemp + ".doc") = True Then
        MsgBox (strTemp + " eksisterer i forvejen")
        strTemp = "???"
    End If
   
    ChangeFileOpenDirectory sti
    Set dia = Dialogs(wdDialogFileSaveAs)
        dia.Name = strTemp
        dia.Show
       
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Det virker ikke. Du har en linie udenfor Sub`en - skal den være der?

Skulle ikke betyde noget - flyt den blot indenfor - eftersom der nu kun er en Sub.

Kanon - det funker.Ligger du et nyt svar eller skal jeg give point på dit tidligere svar?

Fint at det lykkedes - du får et svar

Hej igen. Har jeg givet dig point?

Nej..

Jeg er ret ny i det her - hvordan er det lige jeg giver dig point.