sauvegarde avec comme nom un mot du texte

[bakaladiakouba]

Bonjour,

Je ne sais pas si cette question à déjà été posée mais je n'est rien trouvé pour le moment sur le forum.

Voila je voudria crée un bouton qui lance une sauvegarde du document en lui attribuant comme nom de fichier un mot qui se rait écrit par exemple dans un "TextBox1_Change".

J'ai déja trouvé le code pour lancé une sauvegarde avec comme nom de fichier un mot précis avec la date mais moi je veux que le nom soit un mot bien précis du texte du document

Voici le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
Dim DateDuJour As String
Dim ContenuTextBox1_Change As String
'Formatage de la date pour éviter les "/" car ça passe mal dans les fichiers...
DateDuJour = Format(Date, "dd_mm_yyyy")
'Rajouter "Fichier_" devant.
NomDuFichier = ContenuTextBox1_Change & DateDuJour
 
'Si le contenu existe (sous entendu différent de 0) alors l'ajouter à la fin de la chaine
If Len(ContenuTextBoxVille) <> 0 Then
NomDuFichier = NomDuFichier & "_" & ContenuTextBoxVille
End If
If Len(ContenuTextBoxSite) <> 0 Then
NomDuFichier = NomDuFichier & "_" & ContenuTextBoxSite
End If
NomDuFichier = NomDuFichier & ".doc"
 
 
With Dialogs(wdDialogFileSaveAs)
     .Name = NomDuFichier
     .Show
End With
 
End Sub

Merci d'avance

[carden752]

Bonjour,

Il faut utiliser une méthode pour trouver ce mot.
Soit une méthode de sélection derrière un groupe de mos clés(Objet Find), soit un emplacement (Cellule d'un tableau, premier mot d'un paragraphe) par exemple

[bakaladiakouba]

ok, ok
donc on fait comment faire une méthode de recherche d'un premier mot de paragraphe.

Sinon on peut pas faire un TextBox et demander d'en prendre le contenue comme nom pour la sauvegarde ?

[bakaladiakouba]

En fait j'ai trouvé la solution tout seul :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub CommandButton1_Click()
Dim DateDuJour As String
Dim ContenuTextBox1_Change As String
'Formatage de la date pour éviter les "/" car ça passe mal dans les fichiers...
DateDuJour = Format(Date, "dd_mm_yyyy")
'Rajouter "Fichier_" devant.
NomDuFichier = TextBox1.Value & "_" & DateDuJour
 
On Error Resume Next
 
With Dialogs(wdDialogFileSaveAs)
     .Name = NomDuFichier
     .Show
End With
End Sub

[carden752]

Bonjour,

Le premier mot d'un paragraphe est donné directement en VBA.

Code :

activedocument.paragraphs(x).range.words(y).text

Ou x correspond au numéro du paragraphe.
et y correspond au numéro du mot dans le paragraphe.

Pour le 3ème paragraphe et le premier mot, il faut utiliser :

Code :

activedocument.paragraphs(3).range.words(1).text

http://heureuxoli.developpez.com/off...rd/?page=page5