Ajouter " enregistrer sous" au menu contextuel

Soyez le premier à donner votre avis sur cette source.

Vue 6 996 fois - Téléchargée 736 fois

Description

Ajouter "Enregistrer sous" au menu contextuel(clic droit) des fichiers images: jpg,gif,bmp et png
et des fichiers textes: txt, doc, rtf, hta, html, mhtml et vbs.
A l'ouverture de l'application vous cochez les options que vous désirez mettre. Ensuite vous créez les clés correspondantes dans le registre. Il vous suffira d'aller sur un fichier correspondant aux extensions mentionnées plus haut pour voir "Enregistrer sous" dans le menu contextuel. Pour supprimer ces clés il suffit d'ouvrir l'application et de supprimer les clés. Très pratique pour les codes vbscript que vous pouvez copier dans l'editeur de texte et ensuite les enregistrer en vbs ou hta.
Vous pouvez changer de nom, d'extension et de répertoire.
Pour les documents Word conversion en txt, rtf et html.
Pour toutes les autres extensions conversion en Document Word (texte brut).

Source / Exemple :


'convertir Document Word en rtf, txt et html et toutes extensions en Document Word(texte brut)
    Private Function convertword(ByVal Ext As String) As String
        'Créer une instance de word
        oWord = CreateObject("Word.Application")
        'Ouvrir un nouveau document
        oWord.Documents.Open(Cheminsource)
        'rendre le document word visible
        '  oWord.Visible = True 'ce n'est pas obligatoire
        Select Case Ext
            Case ".txt"
                'on enregistre en TXT
                oWord.ActiveDocument.SaveAs(FileName:=chemin & nom & ".txt", FileFormat:=Word.WdSaveFormat.wdFormatDOSText, _
                LockComments:=False, Password:="", AddToRecentFiles _
                :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                SaveAsAOCELetter:=False)
            Case ".rtf"
                'on enregistre en RTF
                oWord.ActiveDocument.SaveAs(FileName:=chemin & nom & ".rtf", FileFormat:=Word.WdSaveFormat.wdFormatRTF, _
                LockComments:=False, Password:="", AddToRecentFiles _
                :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                SaveAsAOCELetter:=False)
            Case ".html"
                'on enregistre en HTML
                oWord.ActiveDocument.SaveAs(FileName:=chemin & nom & ".html", FileFormat:=Word.WdSaveFormat.wdFormatFilteredHTML, _
                LockComments:=False, Password:="", AddToRecentFiles _
                :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                SaveAsAOCELetter:=False)
            Case ".doc"
                'on enregistre en Document Word (texte brut)
                oWord.ActiveDocument.SaveAs(FileName:=chemin & nom & ".doc", FileFormat:=Word.WdSaveFormat.wdFormatDocument, _
                LockComments:=False, Password:="", AddToRecentFiles _
                :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                SaveAsAOCELetter:=False)
        End Select
        oWord.ActiveDocument.Close() 'on ferme le document
        '  oWord.Visible = False
        oWord.Quit() 'on ferme Word
        Return Ext
    End Function

Conclusion :


Pour plus de détail sur les associations de clés avec les extensions voyez ce programme:
http://www.vbfrance.com/codes/SHELLVIEW-VB-NET_53400.aspx
Vous le trouverez aussi dans Sources de la même catégorie ci-dessous en cliquant dessus.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.