Eric KERGRESSE
Expert éminent

/
Il s'agit d'obtenir le résultat suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TestMettreUnePuceApresRetourChariot()
 
Dim I As Integer
Dim DocEnCours As Document
 
    Set DocEnCours = ActiveDocument
    With DocEnCours
 
         If .ContentControls.Count = 0 Then Exit Sub
 
         For I = 1 To .ContentControls.Count
             If .ContentControls(I).Type = wdContentControlRichText

En lire plus...

//
Problématique :

Je veux savoir comment ouvrir en VBA un fichier en mode **écriture** lorsqu’il y a l’option « Lecture seule recommandée » dessus.
Je ne parle pas ici de l'attribut que l'on peut changer à partir d'Explorer mais de l'attribut ActiveDocument.ReadOnly (combiné avec ActiveDocument.ReadOnlyRecommended).
Avec un batch, j'ai besoin de faire un "search & replace" régulièrement dans une centaine de fichiers dont la moitié est en mode

En lire plus...

//
Ce billet fait suite à cette discussion : publipostage-filtrer-enregistrements

Il s'agit de faire un publipostage à partir d'un tableau Excel en fonction d'un champ nommé "POSITION". Ce champ peut contenir de 1 à 160 numéros différents. Le but est de pouvoir sélectionner la ou les positions en cours dans le tableau et d'éditer la liste en fonction de la position choisie.
A l'ouverture, le code recherche les différentes positions du document, les charge dans

En lire plus...

//
Ce billet fait suite à cette discussion : automatisation-renommer-fichiers-champs-doc-donnee-unique

Le code dans le fichier "Fichiers renommer 2018-10-21.docm" joint, charge, dans une boite de dialogue, les fichiers présents dans un répertoire des modèles (Nb : La variable contenant le chemin du répertoire est une constante).

En allant chercher le répertoire de destination avec le bouton "..." et après avoir saisi un nom de substitution

En lire plus...

Utilisation

Cet outil permet de surligner plusieurs chaines de caractères dans un document Word. Une sélection des couleurs système permet de différencier le surlignage des chaînes sélectionnées.
La sélection des chaines se fait directement sur le document



Les commandes de la barre d'accès rapide :

A l'ouverture du document support, la barre d'accès rapide est chargée de 4 boutons :

En lire plus...