High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Manipuler Word sous vb

Dernière réponse le 15 mai 2009 à 10:54:18 Parn, le 18 fév 2002 à 11:39:01 
 Signaler ce message aux modérateurs

Bjour,

Pour l instant j arrive à ouvrir un fichier word et à me deplacer de signet en signet pour ajouter des informations. Par contre qd j'ai trop de données je souhaiterais creer une nouvelle page dans ce fichier, avec la meme forme que la premiere (logo de l entrepise, cadre bleu, etc) ms je n'arrive pas à copier tt ce qui est image, tableau et dessin. De plus une fois cette etape reussie, il faudrait que je puisse creer à partir de vb de nouveaux signets pour placer correctement les donnée pour cette nouvelle page.
Si qq un a une idée, des infos ou n importe koi qui pourrait m'aider, je suis preneur.

Merci d'avance

Meilleures réponses pour « Manipuler Word sous vb » dans :
[Word] Télécharger Word gratuitement VoirWord est un logiciel payant faisant partie de la suite bureautique Microsoft Office, il n'est donc pas possible de le télécharger. Si le logiciel a été acheté dans le commerce, il suffit d'utiliser le CD d'installation pour le réinstaller ou de...
Equivalent de Word (gratuit) VoirIl existe aujourd'hui plusieurs logiciels gratuits/libres qui équivalent le logiciel payant Word. Voici une sélection des meilleurs logiciels de traitement de texte gratuits ou libres : Pour Windows AbiWord Mega Bloc Notes OpenOffice.org...
Transformer un fichier Word (.doc) en PDF VoirTransformer en fichier PDF un fichier Microsoft Word (.doc) Rien de plus simple ! Ouvrez votre fichier *.doc avec OpenOffice.org Réglez éventuellement la mise en page par le menu Format / Page... Dès lors, 2 solutions pour transformer...
Télécharger Word Viewer Voir
Télécharger Quick Word to PDF VoirPour transférer vos documents le plus en sécurité possible, il n'y a pas mieux que le format PDF. Alors, pour convertir vos documents Word en PDF, adoptez le programme quick Word to PDF. Quick Word to PDF est un outil qui s'intègre à l'interface de...
Télécharger Ms Word Excel Cracker VoirMs Word Excel Craker est une application permettant de retrouver les mots de passe perdus ou oubliés pour les fichiers.xls ou .doc créés avec Microsoft Office 97, 2000, 2003, XP ou autres programmes Word ou Excel compatibles. Cette application vous...
VBScript - Les fonctions de manipulation de tableaux VoirLes fonctions de manipulation de tableaux Fonction Description Array(arglist) Crée un Variant contenant un tableau. L'argument arglist est la liste des valeurs, séparées par des...
Posez votre question Répondre

1

ML0808, le 29 fév 2008 à 09:40:36
  • +1

Bonjour,

Bien sûr, voici l'extrait de la macro (elle est très longue) qui gère ça. Le collage est en dernière ligne.

Merci d'avance,
Marc


' *********************** Recherche *************************

' Trouve le mot dans le document

wrdApp2.Selection.Find.ClearFormatting
With wrdApp2.Selection.Find

.ClearFormatting


' Mot proche
If Proche.Value = False Then
.Text = Mot.Value

' Mot exact
If MotEx.Value = True Then
.MatchWholeWord = True
End If

' Respect de la casse
If Casse.Value = True Then
.MatchCase = True
End If
End If

' Mot proche
If Proche.Value = True Then
.Text = MotSSA
.MatchCase = False
.MatchSoundsLike = True
End If

' Toutes les formes
If Forme.Value = True Then
.Text = Mot.Value
.MatchCase = False
.MatchAllWordForms = True
End If






.MatchWildcards = 0
.Forward = 1
.Replacement.Text = ""
.Replacement.ClearFormatting
.Execute ' recherche du mot1
End With

' Répéter l'opération jusqu'à ce qu'un mot soit trouvé
Do While wrdApp2.Selection.Find.Execute = True
wrdApp2.Selection.ParaGraphs(1).Range.Select

' Donne le numéro du paragraphe
Dim pg As Integer
pg = wrdApp2.Activedocument.Range(Start:=1, End:=wrdApp2.Selection.End).ParaGraphs.Count

' Copie le paragraphe contenant le résultat
wrdApp2.Selection.Copy
' Place le curseur à droite du paragraphe copié pour continuer la recherche dans la suite
' du document
wrdApp2.Selection.Moveright , Extend:=0


' Colle le résultat dans la feuille "Résultat"
RECH.Sheets("Résultats").Cells(m, 4).PasteSpecial Paste:=xlValues, Operation:=xlNone

   
Répondre à ML0808

2

ML0808, le 29 fév 2008 à 09:40:36

Bonjour,

Bien sûr, voici l'extrait de la macro (elle est très longue) qui gère ça. Le collage est en dernière ligne.

Merci d'avance,
Marc


' *********************** Recherche *************************

' Trouve le mot dans le document

wrdApp2.Selection.Find.ClearFormatting
With wrdApp2.Selection.Find

.ClearFormatting


' Mot proche
If Proche.Value = False Then
.Text = Mot.Value

' Mot exact
If MotEx.Value = True Then
.MatchWholeWord = True
End If

' Respect de la casse
If Casse.Value = True Then
.MatchCase = True
End If
End If

' Mot proche
If Proche.Value = True Then
.Text = MotSSA
.MatchCase = False
.MatchSoundsLike = True
End If

' Toutes les formes
If Forme.Value = True Then
.Text = Mot.Value
.MatchCase = False
.MatchAllWordForms = True
End If






.MatchWildcards = 0
.Forward = 1
.Replacement.Text = ""
.Replacement.ClearFormatting
.Execute ' recherche du mot1
End With

' Répéter l'opération jusqu'à ce qu'un mot soit trouvé
Do While wrdApp2.Selection.Find.Execute = True
wrdApp2.Selection.ParaGraphs(1).Range.Select

' Donne le numéro du paragraphe
Dim pg As Integer
pg = wrdApp2.Activedocument.Range(Start:=1, End:=wrdApp2.Selection.End).ParaGraphs.Count

' Copie le paragraphe contenant le résultat
wrdApp2.Selection.Copy
' Place le curseur à droite du paragraphe copié pour continuer la recherche dans la suite
' du document
wrdApp2.Selection.Moveright , Extend:=0


' Colle le résultat dans la feuille "Résultat"
RECH.Sheets("Résultats").Cells(m, 4).PasteSpecial Paste:=xlValues, Operation:=xlNone

   
Répondre à ML0808

3

 alimaj, le 15 mai 2009 à 10:54:18
  • +2

Le code de manipulation du macros et des signets word dans vb net

   
Répondre à alimaj
Posez votre question Répondre
Ils ont besoin de votre aide
Collection CommentÇaMarche.net