begin process at 2013 06 18 09:19:04
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Base de registre

 > AJOUTER " ENREGISTRER SOUS" AU MENU CONTEXTUEL

AJOUTER " ENREGISTRER SOUS" AU MENU CONTEXTUEL


 Information sur la source

Note :
Aucune note
Catégorie :Base de registre Source .NET ( DotNet ) Classé sous :Registre, Menucontextuel, Word, image, conversion Niveau :Débutant Date de création :12/09/2012 Date de mise à jour :25/09/2012 14:25:21 Vu / téléchargé :3 656 / 186
Auteur : Le Pivert

Ecrire un message privé
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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

  • '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
   '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.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

16 septembre 2012 11:57:17 :
Ajout d'une fonction pour convertir les documents Word en texte, rtf et html.
17 septembre 2012 10:58:21 :
Pour toutes les autres extensions conversion en Document Word (texte brut).
25 septembre 2012 14:25:25 :
Pour rendre ce programme compatible avec Vista et Windows7, j'ai fait une fonction permettant de trouver les clés associées aux extensions. Si les possesseurs de Vista et Windows7 pouvait par retour me confirmer le bon fonctionnement de ce programme, je les en remercie par avance.

 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) EXTRAIRE IMAGES ET SONS D'UNE PRÉSENTATION POWERPOINT PAR CL...
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER ET CONNECTER UNE BASE ACCESS SOUS WINDOWS 8
Source avec Zip Source avec une capture Source .NET (Dotnet) EPHEMERIDE W8
Source avec Zip Source avec une capture Source .NET (Dotnet) DESSINER UNE FORME SUR UNE IMAGE
Source avec Zip Source avec une capture Source .NET (Dotnet) TEXTURE D'IMAGE SUR UNE IMAGE
Toutes les sources de Le Pivert

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) EXPLORATEUR DE REGISTRE par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) SHELLVIEW EN VB.NET par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) AJOUTER OU SUPPRIMER MENU CONTEXTUEL D'APPLICATION PAR CLIC ... par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) MODIFIER IMAGE COULEUR EN NOIR ET BLANC PAR CLIC DROIT par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) RENOMMER TOUS LES FICHIERS D'UN DOSSIER PAR CLIC DROIT par Le Pivert
Toutes les sources de la catégorie Base de registre

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) EXTRAIRE IMAGES ET SONS D'UNE PRÉSENTATION POWERPOINT PAR CL... par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) TEXTURE D'IMAGE SUR UNE IMAGE par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) MODIFIER IMAGE COULEUR EN NOIR ET BLANC PAR CLIC DROIT par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) REDIMENSIONNER ET IMPRIMER FORMAT PHOTO (10X15) par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) ACTION_MENU_CONTEXTUEL_FICHIER par Le Pivert

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

COPIER FICHIER WORD EN IMAGE VERS EXCEL [ par chris ] Comment peut-on copier le contenu d'un fichier word vers un fichier excel sous forme d'image?MERCI. Conversion Word => Excel [ par Seb ] J'ai un fichier word dont les champs sont séparés par des TABULATIONS..Je veux le convertir a partir de VB en format Excel. Comment c'est t'y qu'on fa Insérer image [ par Nightwing ] J'ai une base de données access contenant des objets olé (.jpeg), je voudrais savoir le code pour les insérer dans un document word, alors si vous con Insérer des champs d'image d'Access dans Word [ par Luong ] Bonjour,Comment peut-on insérer des champs d'Access définis en tant qu'objet OLE dans un document Word pour publipostage?Merci. Conversion .txt dos windows [ par Olli ] Bonjour à tous,je cherche à convertir un fichier texte dos sous windows.Comment faire, j'ai essayé les macros de word 2000, ca marche sous word, mais conversion Jpg en Tiff [ par polochon ] Le sujet parle de lui meme.Alors si quelqu'un c comment tranformer une image.jpg en image.tif je suis ouvert a tout les morceaux de code en vb merci Conversion image couleur en noir et blanc [ par merlin ] Je cherche a convertir l'image d'un picturebox en couleurs vers une image monochrome, pour ensuite la mettre dans le clipboard (prend moins de place). Conversion Word Basic vers VBA 6 [ par Dansar ] Bonjour,J'ai écrit une macro en Word Basic,il y a 7 pages de Codes et commentaires,La macro fonctionne bein an VBA,mais le mot WordBasic apparait part insertion d'une image dans word [ par TPY ] Salut à tous, Pouvez-vous m'indiquer le code qui permet d'insérer une image contenue dans une picturebox, dans un document word. Merci


Nos sponsors


Sondage...

CalendriCode

Juin 2013
LMMJVSD
     12
3456789
10111213141516
17181920212223
24252627282930

Consulter la suite du CalendriCode

Photothèque

Photo Sealife in a coral reefPhoto Anemones on reef
  

Visiter la photothèque

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,686 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib [FR] AndroLib [US] FormidApps [FR] FormidApps [US]