J'essaie de trouver un mot et d'enregistrer la sélection dans un tableau, puis de retrouver la sélection suivante dans la matrice. Et en fin de compte, essayez de sélectionner toutes les sélections de la matrice.
J'essaye cela mais c'est avec la moitié de la connaissance. Je ne suis pas capable de l'obtenir. Quelqu'un peut-il aider. P> Je veux garder la sélection dans la boucle et le montrer à la fin. P> solution que j'ai essayé: p > Dim totalselect as Range
For i = 1 to 2
set totalselect = totalselect + selectest(i)
Next i
totalselect.select
3 Réponses :
Essayez avec deux modifications simples Remplacement de la sélection dans la plage dans la plage objet:
J'ai essayé ça. Mais je ne suis pas capable de montrer toutes les sélections à la fois.
@Santhoshyedidi, par défaut, vous ne pouvez pas faire cela. Le modèle d'objet ne prend pas en charge une telle opération.
Si tout ce que vous voulez faire est de montrer les correspondances, il vous suffit de:
ActiveDocument.Range.Find.HitHighlight FindText:="PQXY"
Non, mon objectif est de montrer par VBA. Parce que j'ai plus de 6000 occurrences PQXY et plusieurs fois, il se bloque.
VBA Impossible de sélectionner des gammes distinctes - une seule plage peut être sélectionnée à la fois. Vous devez mieux expliquer ce que vous essayez d'atteindre.
Dans mon cas, j'ai 6000 pqxy, lorsque je fais le document (document principal), alors Word montre sa conclusion. Comme il faut beaucoup de temps et d'entre elles, je veux arrêter la recherche, je frappe le bouton Echafs (Escape). Ensuite, il montrera quelque 2 000 pqxy sélectionnés. Donc, Word recherche PQXY et ajout au jeu de sélection, qui devrait également être possible par VBA Macro
Le principal problème de Windowall dans un si grand cas est qu'il ne montre aucun progrès. Parfois, nous ne savons pas ce qui se passe
Quelle est la raison pour laquelle vous souhaitez sélectionner tous ces éléments. Si nous connaissons cette raison, nous pourrions peut-être suggérer un meilleur moyen d'atteindre votre objectif.
Je veux sélectionner tous les PQXY et changer sa police. Mais j'ai 6000 pqxy dans mon document
Vous pouvez le faire avec une simple recherche / remplacement - vous n'avez pas besoin d'une macro pour quelque chose de si trivial.
Mais j'ai trouvé que nous ne pouvons pas changer le niveau de la position à l'aide de la recherche / remplacement (comme niveau1, niveau2, etc.
Cela aussi est une entreprise triviale. De toute évidence, vous n'avez pas vraiment essayé ... encore une fois, vous n'avez pas besoin d'une macro!
Dim oRng As Word.Range
Set oRng = Selection.Range
oRng.Find.ClearFormatting
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "shhada"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
While .Execute
oRng.Editors.Add wdEditorEveryone
Wend
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
End With
End Sub
Les codes ne posent que de ne pas questionner s'il vous plaît ajouter quelques explications
Ce code limitera le texte de recherche à tous les emplacements du document actuel.