Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako odstraniti podvojene vrstice iz tabele v dokumentu Word?

V Wordovem dokumentu morda obstajajo nekatere tabele s podvojenimi vrsticami, ki jih želite odstraniti, in včasih obdržite prvi videz. V tem primeru lahko izberete ročno odstranjevanje podvojenih datotek, lahko pa tudi uporabite kodo VBA.

Odstranite podvojene vrstice iz tabele v Wordu

Hitro vstavite potrditveno polje v več vsebin hkrati v dokumentu Word

Z Kutools for Word's CheckBox pripomoček, potrebujete samo en klik, lahko polje enkrat v polje Word polje dodate v izbrane vsebine v dokumentu Word documnet. Kliknite za brezplačni preskus 45 dni!
polje polja za potrditev polja doc
Kutools for Word: z več sto priročnimi dodatki za Word, lahko brezplačno poskusite brez omejitev v 45 dneh.

Odstranite podvojene vrstice iz tabele v Wordu

1. Kazalko postavite na tabelo, iz katere želite odstraniti podvojene vrstice, in pritisnite Alt + F11 tipke, ki omogočajo Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli ustvariti nov modul.
doc odstrani podvojene tabele vrstic01

3. Kopirajte spodnje kode in jih prilepite na novo Moduli skripta.

VBA: Odstranite podvojene vrstice iz tabele v Wordu

Public Sub DeleteDuplicateRows2 () 'UpdatebyExtendoffice20181011 Dim xTable As tabela Dim xRow As Range Dim xStr As String Dim xDic As Object Dim I, J, KK, xNum Enako dolgo, če ActiveDocument.Tables.Count = 0 Nato MsgBox "Ta dokument nima tabele (s). ", vbInformation," Kutools for Word "Exit Sub End Če Application.ScreenUpdating = False Nastavite xDic = CreateObject (" Scripting.Dictionary ") Če Selection.Information (wdWithInTable) Nato nastavite xTable = Selection.Tables (1) Za I = xTable.Rows.Count za 1 korak -1 Nastavi xRow = xTable.Rows (I) .Range xStr = xRow.Text xNum = -1 Če xDic.Exists (xStr) Potem "xTable.Rows (I) .Delete Za J = xTable.Rows.Count za 1 korak -1 Če (xStr = xTable.Rows (J) .Range.Text) in (J <> I) Potem xNum = xNum + 1 xTable.Rows (J) .Delete End Če je naslednja I = I - xNum Else xDic.Add xStr, sem končal, če naslednja še za I = 1 v ActiveDocument.Tables.Count Set xTable = ActiveDocument.Tables (I) xNum = -1 xDic.RemoveAll Za J = xTable.Rows .Vnesite v korak 1 -XNU MX Set xRow = xTable.Rows (J) .Range xStr = xRow.Text xNum = -1 Če xDic.Exists (xStr) Potem "xTable.Rows (I) .Delete Za KK = xTable.Rows.Count v 1 Step - 1 Če (xStr = xTable.Rows (KK) .Range.Text) In (KK <> J) Potem xNum = xNum + 1 xTable.Rows (KK) .Delete End If Next J = J - xNum Else xDic.Add xStr , J End Če Naprej Naslednji Konec Če Application.ScreenUpdating = True End Sub

doc odstrani podvojene tabele vrstic02

4. Pritisnite F5 Če želite zagnati kodo, bodo vse podvojene vrstice odstranjene.
doc odstrani podvojene tabele vrstic03

Opombe: Zgoraj koda je občutljiva na velike ali male črke, če želite odstraniti podvojene vrstice v primeru neobčutljivega, lahko uporabite spodnjo kodo:

Public Sub DeleteDuplicateRows2 () 'UpdatebyExtendoffice20181011 Dim xTable As tabela Dim xRow As Range Dim xStr As String Dim xDic As Object Dim I, J, KK, xNum Enako dolgo, če ActiveDocument.Tables.Count = 0 Nato MsgBox "Ta dokument nima tabele (s). ", vbInformation," Kutools for Word "Exit Sub End Če Application.ScreenUpdating = False Nastavite xDic = CreateObject (" Scripting.Dictionary ") Če Selection.Information (wdWithInTable) Nato nastavite xTable = Selection.Tables (1) Za I = xTable.Rows.Count za 1 korak -1 Set xRow = xTable.Rows (I) .Range xStr = UCase (xRow.Text) xNum = -1 Če xDic.Exists (xStr) Potem "xTable.Rows (I ) .Delete Za J = xTable.Rows.Count v 1 Step -1 Če (xStr = xTable.Rows (J) .Range.Text) In (J <> I) Potem xNum = xNum + 1 xTable.Rows (J) .Delete End If Next I = I - xNum Else xDic.Add xStr, sem končal, če sem naslednji, za I = 1 v ActiveDocument.Tables.Count Set xTable = ActiveDocument.Tables (I) xNum = -1 xDic.RemoveAll Za J = xTable.Rows.Count Za 1 St ep -1 Nastavi xRow = xTable.Rows (J) .Range xStr = UCase (xRow.Text) xNum = -1 Če xDic.Exists (xStr) Potem "xTable.Rows (I) .Delete Za KK = xTable.Rows. Če želite (XStr = xTable.Rows (KK) .Range.Text) In (KK <> J) Potem xNum = xNum + 1 xTable.Rows (KK) .Delete End Če je naslednji J = J - xNum Else xDic.Add xStr, J End Če Naprej Naslednji Konec Če Application.ScreenUpdating = True End Sub

Če želite odstraniti podvojene vrstice v vseh tabelah dokumenta, postavite kurzor na poljubno mesto dokumenta zunaj tabele in nato uporabite eno od zgornjih kod.


Brskanje po spletnem brisanju in urejanje več dokumentov z Wordom / delovni zvezki Excel kot Firefox, Chrome, Internet Raziščite 10!

Morda ste pozabljeni, da si ogledate več spletnih strani v Firefoxu / Chrome / IE in preklopite med njimi tako, da preprosto kliknete ustrezne jezičke. Tu tabla Office podpira podobno obdelavo, ki vam omogoča brskanje po več dokumentih Word ali Excelovih delovnih zvezkov v enem oknu programa Word ali Excel ter preprosto preklapljate med njimi tako, da kliknete njihove zavihke.
Kliknite brezplačno preskusno različico Office Tab!

Brskanje po več besednih dokumentih v enem oknu kot Firefox


Priporočena orodja za produktivnost Worda

Kutools for Word - več kot 100 napredne funkcije Za Microsoft Word shranite svoj čas 50%

  • Zapletene in ponavljajoče se operacije lahko opravite enkratno obdelavo v sekundah.
  • V dokument Worda vstavite več slik v mapah.
  • Združite in združite več datotek Word v mapah v eno z želenim naročilom.
  • Razdelite trenutni dokument v ločene dokumente v skladu z naslovom 1, odlomkom odseka ali drugimi merili.
  • Pretvorite datoteke med Doc in Docx, Docx in PDF, zbirko orodij za običajne konverzije in izbiro, in tako naprej...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.