Recupérer le texte entre accolade [""]
Résolu/Fermé
A voir également:
- Recupérer le texte entre accolade [""]
- Recuperer video youtube - Guide
- Recuperer message whatsapp supprimé - Guide
- Comment récupérer un compte facebook piraté - Guide
- Excel cellule couleur si condition texte - Guide
- Impossible de récupérer mon compte gmail - Guide
1 réponse
Remplacer ca :
Par ca:
x = 1 Do While x < WApp.ActiveDocument.Paragraphs.Count WApp.Selection.Find.Execute "[" WApp.Selection.MoveEnd unit:=wdParagraph, Count:=1 Set WSel = WApp.Selection i = i + 1 ws.Cells(i, 1) = WSel WApp.Selection.Find.Execute "]" If WApp.Selection <> "]" Then WApp.Selection.Find.Execute " " End If WApp.Selection.Find.Forward = True WApp.Selection.Find.Wrap = wdFindContinue x = x + 1 Loop
Par ca:
WApp.Selection.HomeKey unit:=wdStory Do While Not fin With Selection With WApp.Selection.Find .Text = "[" .Execute .Forward = True fin = .Found = False End With WApp.Selection.ExtendMode = True If Not fin Then With WApp.Selection.Find .Text = "]" .Forward = True .Execute End With Set WSel = WApp.Selection i = i + 1 ws.Cells(i, 1) = WSel WApp.Selection.ExtendMode = False WApp.Selection.MoveRight unit:=wdWord, Count:=1 End If End With Loop