Question : Remplacer la corde dans l'adresse de lien hypertexte

Chers experts : la feuille de travail ACTIVE du

The contient beaucoup de liens hypertextes dans lesquels la corde suivante. \ My%20Product \… fait partie de l'adresse de lien hypertexte. le
I voudrait remplacer cette corde « My%20Product » par juste « MyProduct » partout où ce fait partie du lien hypertexte address.

After que cette opération a été fini je voudrais exécuter le même procédé avec le nom montré du lien hypertexte. le

Help est beaucoup apprécié. Merci beaucoup à l'avance.

Regards, Andreas class= de

Réponse : Remplacer la corde dans l'adresse de lien hypertexte

Cher Andreas,

Essayer svp avec le code ci-joint.

Ce qu'il fait est de faire une boucle par tous les liens hypertextes dans l'activesheet, et remplace les cordes que vous avez mentionnées dans 2 attributs :

1. Adresse - est responsable du lien
2. TextToDisplay - est responsable du texte que vous voyez dans la feuille.

La fonction qui fait le remplacement est remplacent.

Veuillez vous noter pourrait juste donner « %20 » pendant que corde pour changer et » « (l'espace) comme le remplacement pour obtenir le travail effectué dans d'autres parties de l'adresse.

Noter svp également pour tirer une copie de votre feuille de travail avant de courir n'importe quel code.

Respect
fakest

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 :

Faible string_to_change comme corde, string_replacement comme corde string_to_change = « \ My%20Products \ » string_replacement = « \ mes produits \ » Faibles hl comme lien hypertexte Pour chaque hl dans ActiveSheet.Hyperlinks hl. L'adresse = remplacent (hl. Adresse, string_to_change, string_replacement) hl.TextToDisplay = remplacent (hl.TextToDisplay, string_to_change, string_replacement) Après