Trouver seul texte de style “Titre 1” (Gamme.Trouver pour correspondre à un style)
Je suis en train d'essayer de trouver du texte dans un document qui apparaît seulement dans le "Titre 1" les styles. Jusqu'à présent, en vain.
Exemple De Code:
With ThisDocument.Range.Find
.Text = "The Heading"
.Style = "Heading 1" 'Does not work
.Execute
If .Found Then Debug.Print "Found"
End With
Juste une remarque, il s'arrête à la table des matières.
Edit: correction de la mispelt if
OriginalL'auteur Matt Rowles | 2012-02-15
Vous devez vous connecter pour publier un commentaire.
Votre code me semble bon. Ma meilleure supposition est que le "Titre 1" style existe dans votre table des matières?
Le code ci-dessous devrait continuer à le trouver, de trouver toutes les occurrences:
J'espère que cette aide.
Remplacement De Débogage.Print "Trouvé" avec Debug.D'impression .Parent.De l'Information(wdFirstCharacterLineNumber) sera de retour, le numéro de la ligne
Qu'advient-il si j'attends le script à exécuter sur différentes versions linguistiques de la Parole? En hongrois, c'est
"Címsor 1"
au lieu de"Heading 1"
et ainsi de suite. N'est-il pas construit en référence à celui sans une chaîne de clé?Je ne crois pas que vous pouvez faire référence à des styles par défaut comme des variables statiques, au moins autant que j'ai fait des recherches. C'est probablement parce que vous pouvez créer votre propre ou de modifier les styles existants. Je suppose que vous avez juste à répondre aux différents langages comme ci-dessus, ou en utilisant des caractères génériques peut-être?
Depuis lors, j'ai apparemment trouvé la solution à la builtin style de référencement problème: msdn.microsoft.com/en-us/library/..., mais je ne l'ai pas essayé.
OriginalL'auteur markblandford
J'ai trouvé cette question sur Google et sur le code en question n'a pas de travail pour moi. J'ai fait les modifications suivantes pour résoudre le problème:
Selection.Find.Style = "Heading 1"
à un objet..Execute
plutôt que.Found
J'espère que cela aide certains autres Googlers.
OriginalL'auteur AdmiralAdama
La raison pour laquelle je pense qu'il n'est pas le travail, c'est parce que vous devez définir la
drapeau, et vous peut devez spécifier le style via la .Styles méthode:
OriginalL'auteur perlhacker9876