Pagina 5 di 10 PrimaPrima ... 34567 ... UltimaUltima
Risultati da 41 a 50 di 94

Discussione: Macro x PDF

  1. #41
    Moderatore L'avatar di radio
    Iscritto dal
    2008
    Messaggi
    1255
    Professione
    Progettista (credevo...)
    Regione
    Lombardia
    Software
    Solid Edge ST7

    Predefinito

    Citazione Originariamente Scritto da Be_on_edge Visualizza Messaggio
    nome = Left (objDoc.Name, Len(objDoc.Name) -4)
    Muccias graccias!

    P.S. Appena trovo il tempo mi studio le funzioni Len e Left.
    Prima regola: Non Comprare Mai Nulla Subito!

  2. #42
    Utente Junior
    Iscritto dal
    2008
    Messaggi
    94
    Professione
    più lavoro meno ne sò
    Regione
    marche PU
    Software
    SOLID EDGE ST8

    Predefinito

    mi inserisco con una aggiunta all'argomento: è possibile aggiungere un "invia per email" dopo aver salvato il file in pdf?
    ciao grazie

  3. #43
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    Citazione Originariamente Scritto da bladina Visualizza Messaggio
    è possibile aggiungere un "invia per email" dopo aver salvato il file in pdf?
    ciao grazie
    considerando che non è detto che ogni volta che salvi in pdf avrai bisogno di inviare in una singola email,
    considerando che ogni sistema operativo è configurato diversamente con client e-mail differenti, non mi sembra una buona idea.

    piuttosto alcuni comandi interessanti potrebbero essere:
    - Apri la cartella di salvataggio
    - Apri il file con il programma predefinito

    poi su Acrobat metti l'icona 'invia File'

    Codice:
    ' comandi personalizzati da aggiungere subito dopo i comandi di salvataggio
    fullfilepath = percorso + "\" + nome + "." + "pdf"
    	
    ' Apri la cartella di salvataggio e seleziona il file
    CreateObject("WScript.Shell").Exec("Explorer /select,""" + fullfilepath + """")
    
    ' Apri il file con il programma predefinito
    CreateObject("WScript.Shell").Run("""" + fullfilepath + """")
    codice testato, da me funziona.

  4. #44
    Utente Junior
    Iscritto dal
    2008
    Messaggi
    49
    Professione
    disegnatore
    Regione
    Lombardia
    Software
    Solid EDGE ST9

    Predefinito

    Buonasera a tutti,
    ringrazio vespa per la macro utilissima.

    Avrei un quesito:
    ho utilizzato questa riga di programma:

    Call objDoc.SaveAs(percorso + "\DOC" + nome + " - Material." + "pdf") ' salva con nome
    Ma se la cartella DOC non esiste come faccio a fargliela creare?
    ovviamente sarebbe utile che verifichi che ci sia la cartella e se non c'è la deve creare...

  5. #45
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    la cartella non sarà "\DOC" bensì "\DOC".

    Prendo per vero che SaveAs non funziona se la cartella non esiste.

    In tal caso servirà un controllo (If..Then..Else) prima del SaveAs per verificare se la cartella esiste e se non esiste va creata.
    per i file io uso questa funzione, dovrebbe funzionare anche per i percorsi:
    Codice:
    Function file_exist(filename)
        Dim fso
        Set fso = CreateObject("Scripting.FileSystemObject")
        file_exist = fso.FileExists(filename)
        Set fso = Nothing
    End Function
    Per creare il percorso prova ad integrare questa soluzione:
    http://stackoverflow.com/questions/4...he-folders-not

    Ce la fai da solo? se riesci, dicci brevemente come hai fatto, grazie, ciao

  6. #46
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    Citazione Originariamente Scritto da vespa_83 Visualizza Messaggio
    la cartella non sarà \DOC bensì \DOC\ .
    il forum si mangia il backslash prima delle vergolette

  7. #47
    Utente Junior
    Iscritto dal
    2008
    Messaggi
    49
    Professione
    disegnatore
    Regione
    Lombardia
    Software
    Solid EDGE ST9

    Predefinito

    Ahime...

    son riuscito a capire dove introdurre quella parte di codice, ma riesco solo a far creare la directory in C:\...
    Poche conoscenze di linguaggio...

  8. #48
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    beh, ti avevo anche suggerito male... la funzione file_exist() funziona per i file ma non per le cartelle, chiedo scusa.
    googlando "vbscript check if folder exists or create it"
    è facile trovare esempi che funzionano.

    Premesso che io sono favorevole al fatto che i pdf siano nella stessa posizione del dft e non da un'altra parte, perchè complica le cose e la gestione, se proprio uno si vuol complicare la vita, allora ecco la nuova versione con la predisposizione alla modifica del percorso da riga 72:

    Save+PDF v. 0.5
    (script di base eventualmente da personalizzare secondo le proprie esigenze)

    ps: E' gradito il contributo di una idonea icona da parte degli utilizzatori, per i successivi rilasci
    File Allegati File Allegati

  9. #49
    Utente Junior
    Iscritto dal
    2008
    Messaggi
    49
    Professione
    disegnatore
    Regione
    Lombardia
    Software
    Solid EDGE ST9

    Predefinito

    Errore nella riga 124 quando si processa lo spcript...
    qualce chiarimento??

  10. #50
    Utente Standard L'avatar di Davimont
    Iscritto dal
    2007
    Messaggi
    486
    Professione
    Disegnatore meccanico Fai da te.
    Regione
    Lombardia
    Software
    Solid Edge ST8

    Predefinito

    In fondo alla macro in vbs cerca la riga 124 e dovresti leggere
    If Not fso=... etc
    prima di quella incolla

    Set fso = CreateObject("Scripting.FileSystemObject")

    Così funziona ma aspetta una conferma da vespa che ti saprà dire se c'è da fare qualche altra modifica.
    Imparare è un'esperienza; tutto il resto è solo informazione. A. Einstein


  • Pagina 5 di 10 PrimaPrima ... 34567 ... UltimaUltima

    Discussioni Simili

    1. Macro (VBA) e BOM
      Di Avoplus nel forum Inventor
      Risposte: 0
      Ultimo Messaggio: 08-03-2010, 23: 32
    2. MACRO
      Di strangelittle_girl nel forum Solidworks
      Risposte: 1
      Ultimo Messaggio: 07-10-2009, 20: 49
    3. Macro ???
      Di BOSCO '71 nel forum Solid Edge
      Risposte: 12
      Ultimo Messaggio: 28-08-2009, 23: 42
    4. help macro
      Di Taylor nel forum OneSpace Designer Modeling
      Risposte: 2
      Ultimo Messaggio: 30-07-2009, 10: 28
    5. MACRO
      Di TECNOMECH nel forum Solid Edge
      Risposte: 21
      Ultimo Messaggio: 29-02-2008, 16: 42

    Segnalibri

    Segnalibri

    Permessi di Scrittura

    • Tu non puoi inviare nuove discussioni
    • Tu non puoi inviare risposte
    • Tu non puoi inviare allegati
    • Tu non puoi modificare i tuoi messaggi
    •  





    CAD3D.it - la community dei progettisti