Hur ersätter jag understrykning med kursiv i ord?

Under vissa omständigheter kan du behöva ersätta alla understrukna tecken med kursiv eller vice reserv i ord. Hur kunde du snabbt ersätta alla understrukna tecken med kursiv i Word? Du kan få det gjort enligt följande två knepiga sätt i Word.

Ersätt alla understrukna tecken med kursiv stil med Sök och ersätt

Ersätt alla understrukna tecken med kursiv med VBA

Byt ut alla understrukna tecken med kursiv stil med Sök och ersätt

Fantastisk! Använd effektiva flikar i Word (Office) som Chrome, Firefox och New Internet Explorer!

Läs mer Gratis nedladdning

Steg 1 ： Steg 1: Klicka Hem > ersätta (Word 2007.2010 / 2013) & använder genvägar Ctrl + H för att starta dialogrutan Sök och ersätt;

Steg 2: klicka Snarare knappen för att ta upp Sök alternativ.

Steg 3: Sätt in markören hitta Vad Klicka på Font från bildad rullgardinsmenyn för att välja stryka stil och stryka färg

Steg 4: Sätt in markören Ersätt med rutan, klicka Font från bildad rullgardinsmeny för att välja Kursiv i teckensnittslistan.

Steg 5: klicka OK>Ersätt alla.

Anmärkningar:

1. klick Ingen formatering för att se till att ingen formateringsinformation anges i hitta Vad låda och Ersätt med rutan före din operation.

2. Denna bearbetning gör bara texten med understrykning kursiv, kan inte ta bort understrykning.

Ersätt alla understrukna tecken med kursiv med VBA

Alternativt kan du också använda VBA för att ersätta understrykning med kursiv. Men om du inte är bra på makro rekommenderar jag inte den här metoden. Gör enligt följande:

Kutools för Word, ett praktiskt tillägg, innehåller grupper av verktyg för att underlätta ditt arbete och förbättra din förmåga att bearbeta orddokument. Gratis provperiod i 45 dagar! Hämta den nu!

Steg 1: Tryck Alt + F11 för att öppna VBA-fönstret i Word;

Steg 2: Klicka Modulerna in Insert fliken och sätt in VBA-koden i Modulerna fönster;

VBA-koden för att ersätta alla understrukna tecken med kursiv i Word .:

Sub ReplaceUnderlineWithItalic()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Font.Underline = wdUnderlineSingle
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Replacement.Font.Underline = wdUnderlineNone
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Steg 3: Klicka run för att tillämpa VBA-koden (eller tryck på F5);

Notera:

1. Den här koden passar endast för enstrykning utan färg. Du kan förändra “WdUnderlineSingle” i koden för att passa för andra understryksstilar som “WdUnderlineDouble” or “WdUnderlineThick”.

2. Den här koden gör bara texten med understruken kursiv, kan inte ta bort understruken.

Rekommenderade Word-produktivitetsverktyg