Word Makro til at gemme dokument på desktop

Hej .

Prøv at bruge "%userprofile%\desktop" i stedet for c:\....
%username%\desktop

mvh.

Hej a_nor.

Det virkede ikke helt, så jeg lavede det som en function i stedet.

Jer er endt op med denne løsning som virker perfekt på tværs af 2003 og 2008 servere.

Sub gem_som_pdf()
'
' gem_som_pdf Makro
'
'
Dim path
   
    path = Environ$("USERPROFILE") & "\Desktop\"
   
    ChangeFileOpenDirectory path
   
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        path & "Brev.pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub
Function UserProfile() As String
Const RegPath = "HKEY_CURRENT_USER\Volatile Environment"
Dim HomeDrive As String, HomePath As String

HomeDrive = System.PrivateProfileString("", _
RegPath, "HOMEDRIVE")
HomePath = System.PrivateProfileString("", _
RegPath, "HOMEPATH")
UserProfile = HomeDrive & HomePath
End Function

Hej a_nor.

Smid svar så deler vi point. :)

svar

Det blev vist ikke lige et svar  :-( 

så jeg prøver lige igen

Tak for du gav mig en ledetråd til løsningen. :) 

Hav en god dag.