Kako v besedi nadomestiti podčrtano ležeče?

V nekaterih okoliščinah boste morda morali vse podčrtane znake nadomestiti s poševnim tiskom ali rezervo v besedi. Kako lahko v Wordu hitro zamenjate vse podčrtane znake s poševnim tiskom? To lahko storite na naslednji dve zapleteni način v Wordu.

Vse podčrtane znake zamenjajte s poševnim tiskom z Find and Replace

Vse podčrtane znake zamenjajte s poševnimi črkami z VBA

---

Vse podčrtane znake zamenjajte s poševnim tiskom z Poišči in zamenjaj

1. korak: 1. korak: kliknite Home > Zamenjaj (Word 2007.2010 / 2013) in z uporabo bližnjic Ctrl + H za zagon pogovornega okna Najdi in zamenjaj;

2. korak: kliknite Več gumb za prikaz Iskalnik možnost.

3. korak: postavite kazalko noter Poišči Kaj kliknite Pisava iz oblikovana s spustnega seznama izberite poudarjajo slog in poudarjajo barva

4. korak: postavite kazalko noter Zamenjaj z polje, kliknite Pisava iz oblikovana spustnega seznama za izbiro Ležeče na seznamu Slog pisave.

5. korak: kliknite OK>Zamenjaj vse.

Opombe:

1. klik Brez oblikovanja da se prepričate, da v datoteki niso podane nobene informacije o oblikovanju Poišči Kaj polje in Zamenjaj z pred operacijo.

2. Pri tej obdelavi besedilo le podčrtajte ležeče, podčrtanja ne morete odstraniti.

---

Vse podčrtane znake zamenjajte s poševnimi črkami z VBA

Lahko pa uporabite tudi VBA, da podčrtanje zamenjate s poševnim tiskom. Če pa makro ne obvladate, te metode ne priporočam. Naredite naslednje:

Kutools za Word, priročen dodatek, vključuje skupine orodij, ki vam olajšajo delo in izboljšajo sposobnost obdelave besedilnega dokumenta. Brezplačna preizkusna različica 45 dni! Get It Now!

Korak 1: Pritisnite Alt + F11 odpreti okno VBA v Wordu;

Korak 2: kliknite Moduli in Vstavi in vstavite kodo VBA v Moduli okno;

Koda VBA za zamenjavo vseh podčrtanih znakov s poševnim tiskom v Wordu:

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

Korak 3: kliknite Run za uporabo kode VBA (ali pritisnite F5);

Opomba:

1. Ta koda je primerna samo za enojno podčrtavanje brez barve. Lahko se spremeniš “WdUnderlineSingle” v kodi, da ustreza drugim podčrtanim slogom, kot je “WdUnderlineDouble” or “WdUnderlineThick”.

2. Ta koda samo naredi besedilo podčrtano ležeče, podčrtanja ne more odstraniti.

---