A voir également:
- Vba ouvrir un fichier word
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Comment ouvrir un fichier 7z - Guide
5 réponses
Bonjour,
Ce n'est pas la bonne solution pour ouvrir un word.
Ce code est commenté et sert à ouvrir un word, rechercher et remplacer un mot et enregistrer le word sous (si nécessaire).
Mesurer la masse de sa connerie permettrait dans connaitre sa gravité ;)
Ce n'est pas la bonne solution pour ouvrir un word.
Sub ouvrirWord()
Dim objWord As Word.Document
Set objWord = GetObject("Chemin complet avec nom du document", "Word.Document")
' Rend Word visible important car la fusion ne se fait pas si pas visible
objWord.Application.Visible = True
NomFichier = objWord.Name
Remplacement = "Mot De Remplacement"
objWord.Content.Find.Execute FindText:="motRecherché", ReplaceWith:=Remplacement, Replace:=wdReplaceAll
' procédure d'enregistrement
DoCmd.SetWarnings False
objWord.SaveAs "Addresse complete" & Format(Now(), "yyyy-mm-dd") & ".doc" 'enregistre le fichier à la date du jour
DoCmd.SetWarnings True
End Sub
Ce code est commenté et sert à ouvrir un word, rechercher et remplacer un mot et enregistrer le word sous (si nécessaire).
Mesurer la masse de sa connerie permettrait dans connaitre sa gravité ;)
Bonjour,
Pour enlever le bout de code qui enregistre, il me faut le supprimer jusqu'au paragraphe "DoCmd.SetWarnings True" ?
Configuration: Windows 7 / Firefox 31.0
Pour enlever le bout de code qui enregistre, il me faut le supprimer jusqu'au paragraphe "DoCmd.SetWarnings True" ?
Configuration: Windows 7 / Firefox 31.0
En fait je veux juste ouvrir le document et pointer vers les occurrences du mot recherché (ici "MOT").
Une fois installé le code qui ouvre le doc (qui fonctionne), j'essaye de lancer ma recherche avec cette phrase :
objWord.Content.Find.Execute FindText:="MOT"
Car il me semble que le reste du bout de code ne sert qu'à remplacer, ce que je ne veux pas faire. Mais cela ne fonctionne pas...
Sub FnOpeneWordDoc()
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open
objWord.Visible = True
objWord.Content.Find.Execute FindText:="MOT"
End Sub
Que dois-je rajouter pour faire fonctionner a macro ?
Une fois installé le code qui ouvre le doc (qui fonctionne), j'essaye de lancer ma recherche avec cette phrase :
objWord.Content.Find.Execute FindText:="MOT"
Car il me semble que le reste du bout de code ne sert qu'à remplacer, ce que je ne veux pas faire. Mais cela ne fonctionne pas...
Sub FnOpeneWordDoc()
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open
objWord.Visible = True
objWord.Content.Find.Execute FindText:="MOT"
End Sub
Que dois-je rajouter pour faire fonctionner a macro ?
Bonjour,
Le code à écrire est le suivant :
Il faut pour que ca fonctionne aller dans outil - références et cocher : "Mircosoft Word 14.0 Object Libray"
Quel est le but de la manœuvre exactement ?
Le code à écrire est le suivant :
Sub FnOpeneWordDoc()
Dim objWord As Word.Document
Set objWord = GetObject
objWord.Application.Visible = True
NomFichier = objWord.Name
objWord.Content.Find.ClearFormatting
With Selection.Find
.Text = "MOT"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub
Il faut pour que ca fonctionne aller dans outil - références et cocher : "Mircosoft Word 14.0 Object Libray"
Quel est le but de la manœuvre exactement ?
Bonjour,
Je n'ai pas la bibliothèque word 14.0 dans le menu outil, mais seulement la 12.0... Et donc je reçois ce message d'erreur : "Erreur définie par l'application ou par l'objet".
Roland
Je n'ai pas la bibliothèque word 14.0 dans le menu outil, mais seulement la 12.0... Et donc je reçois ce message d'erreur : "Erreur définie par l'application ou par l'objet".
Roland
Alors j'ai trouvé quelque chose en bidouillant à l'aide de Sendkeys :
- J'arrive bien à ouvrir la boîte de dialogue "Rechercher"
- Et j'arrive à lancer la recherche de mon mot dans le document
La clé de la bidouille pour ouvrir la boite de dialogue: Application.SendKeys ("^f")
Sub AAAN()
Dim objWord As Word.Document
Set objWord = GetObject("\\fichier.docx", "Word.Document")
objWord.Application.Visible = True
NomFichier = objWord.Name
Application.SendKeys ("^f")
SendKeys "Mot recherché"
SendKeys "{Enter}"
End Sub
- J'arrive bien à ouvrir la boîte de dialogue "Rechercher"
- Et j'arrive à lancer la recherche de mon mot dans le document
La clé de la bidouille pour ouvrir la boite de dialogue: Application.SendKeys ("^f")
Sub AAAN()
Dim objWord As Word.Document
Set objWord = GetObject("\\fichier.docx", "Word.Document")
objWord.Application.Visible = True
NomFichier = objWord.Name
Application.SendKeys ("^f")
SendKeys "Mot recherché"
SendKeys "{Enter}"
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Je ne met pas résolu car à cause des sendkeys je suis obligé de fermer le document ouvert pour relancer une macro identique (sinon une erreur est signalée).
En effet, la sendkeys n'est pas liée au document comme peut l'être une fonction find...
Je cherche donc encore à faire marcher cette dernière fonction.
En effet, la sendkeys n'est pas liée au document comme peut l'être une fonction find...
Je cherche donc encore à faire marcher cette dernière fonction.