hvordan til at skifte direkte citater til at krølle citater i ord?

,,,,, før der finder og erstatte, skal du gå til stavekontrol valgmuligheder, uncheck, "direkte citater" med "smart citater", se boks.,, i ord, 2003, stavekontrol muligheder, er under, værktøj, bar.og i ord, 2007, anvende, stavekontrol valgmuligheder ved at klikke, >, optioner, >, beskyttelse, >, stavekontrol valgmuligheder.her tager vi ord 2010 /2013, for eksempel:,, trin 1.klik, >, valg, >, beskyttelse, >, stavekontrol muligheder, >, autoformat som type, og udvælge, "direkte citater" med "smart citater", se boks.se skærmbillede:,,,,,, trin 2.klik, hjem, > i stedet for i, redigering, gruppe eller pressen, ctrl + h, til at vise, at finde og erstatte, dialog, ind, "eller", i finder, hvad, rubrik, ind, "eller", i stedet for, box.se skærmbillede:,,,,, trin 3.klik, erstatter alle,.,,, note:,, hvis du ønsker at erstatte alle curly citater med direkte citater, vær klar, "direkte citater" med "smart citater", se boks).,,,,, ændring direkte citater til at krølle citater med vba,,, til at erstatte alle direkte citater med krøllet citater i ord, 2010 med benyttelse af vba klikkes, fil >, valg, >, beskyttelse og klik, autokorrektur, valg og vælge de "direkte citater" med "smart citater", se rubrik således først.(note: hvis man ønsker at erstatte alle curly citater med direkte citater, ryd "direkte citater" med "smart citater" check kasse), trin 1: press ", alt-f11," at åbne microsoft visual basic anvendelse vindue;,, trin 2: klik, modul om indsæt, tab, kopiere og pasta følgende vba kode i modul, vindue;,, trin 3: så klik, løb, knap til at anvende vba.,,, følgende vba er at ændre direkte citater til at krølle citater:,,, - changedoublestraightquotes() "ajourføring 20131107 selection.find.clearformatting selection.find.replacement.clearformatting med udvælgelse.. (=" "" "" "" ". replacement.text =. = = wdfindcontinue frem. - format = falsk. matchcase = falsk. matchwholeword = falsk. matchwildcards = falsk. matchsoundslike = falsk. matchallwordforms = falske ende med selection.find.execute erstatte: = wdreplaceall ende afrika,,,, følgende vba er at ændre curly citater til direkte citater:,,, - replacesmartquotes() dim vfindtext som variant dim vrepltext som variant dim jeg så længe vfindtext = system ("[(0145) 0146]", "[/0147 (0148]") vrepltext = system ("^)", "(034") med udvælgelse. finde. clearformatting. replacement.clearformatting. fremad = sandt. pak = wdfindcontinue. matchwholeword = sandt. matchwildcards = sandt for i = lbound (vfindtext) ubound (vfindtext text =). vfindtext (i). replacement.text = vrepltext (i). henret erstatte: = wdreplaceall næste jeg ende med afrika,









arrow blue right bubble



Previous:
Next Page: