hvordan til at finde og erstatte specifikke tekst i tekst kasser?

, de kan finde og erstatte den tekst, som de har brug for manuelt, én efter én, men hvis der er flere tekst kasser, vil dette være kedelig og træt.så følgende vba kode kan hjælpe dig afslutte det på en gang.,,.,.aktiver din arbejdsplan, og holde den, alat + f11, nøgler til at åbne den, microsoft visual basic for ansøgninger vindue,.,,,. 2.klik, indsæt >, modul, og pasta følgende kode i modul vindue,.,,, vba kode: finde og erstatte specifikke tekst i tekst kasser af nuværende arbejdsplan,,,,,,, - textboxreplace() "updateby20140603 dim xws som kladde tågede små vandkraftværker i form xfindstr dim som snor dim xreplace som snor xfindstr = anvendelse. inputbox (" find ", xtitleid", ", type: = 2) xreplace = anvendelse. inputbox (" i stedet for ", xtitleid", ", type: = 2) xws = application.activesheet om fejl genoptage næste for hver små vandkraftværker i xws. former xvalue = shp.textframe.characters.text shp.textframe.characters.text = vba. erstatte (xvalue, xfindstr, xreplace, 1) næste ende afrika, 3., så tryk, f5, nøglen til at løbe denne kode, og en hurtig boks vil hoppe ud til at minde dig ind i yvores gamle tekst, som de ønsker at erstatte.se skærmbillede:,,,,,,. 4.gå du, okay, og i denne hurtige kasse, type i den nye tekst værdi, som du vil,,,,,,, skærmbillede: 5.og så klik, okay, gamle værdier er blevet erstattet med nye værdier, at du trådte ind i den nuværende arbejdsplan.se screenshots:,,,,,,,

doc-replace-text-boxes1
doc-replace-text-boxes1
doc-replace-text-boxes3
-1
doc-replace-text-boxes4



Previous:
Next Page: