Si të hiqni formatimin e teksteve të ngjitura me makro dhe VBA në Word

Zgjidhjet e fjalëve Shtator 28, 2025

Ky artikull do t'ju tregojë se si të hiqni formatimin e tekstit të ngjitur me makro dhe VBA në fjalën tuaj.

Ndodh shumë kur kopjoni një tekst në internet dhe gjeni se teksti është në formatim të pasur. Për shembull, ka fjalë të përsëritura, rreshta bosh, karaktere skedash, etj. Megjithatë, një formatim i tillë mund të jetë mjaft i bezdisshëm, veçanërisht në momentet që nuk ju nevojiten. Natyrisht, ju do të hiqni formatimin me dorë secili nga secili. Megjithatë, çka nëse teksti është vërtet i gjatë? Atëherë metoda e mësipërme do të jetë më pak efikase.

Në fakt, ekziston një mënyrë për të përdorur makro për të hequr të gjithë formatimin e tekstit një herë e përgjithmonë. Këtu është më shumë:

Hapat për të regjistruar një makro në Word

  1. Së pari, hapni Word-in tuaj.
  2. Dhe sigurohuni që së pari të keni shtuar skedën "Zhvilluesi" në Shirit. Për udhëzime të hollësishme për të shtuar "Zhvillues", ju lutemi lexoni artikullin: Si të futni muzikë në sfond në dokumentin tuaj Word
  3. Pasi të jetë e disponueshme skeda "Zhvilluesi", klikoni atë.
  4. Pastaj klikoni "Regjistro makro" në grupin "Kodi".Kliko "Zhvilluesi" -> Kliko "Regjistro makro"
  5. Tani do të shfaqet një kuti dialogu "Regjistro makro". Së pari, shkruani emrin e makro, si p.sh. "copytext" këtu.
  6. Më pas në pjesën "Cakto makro në", zgjidhni ose "Button" ose "Tastiera". Këtu do të shkojmë "Button".
  7. Tjetra, klikoni "OK".Emërtoni makro -> Zgjidhni ose "Button" ose "Keyboard" për "Cakto makro në" -> Kliko "OK"
  8. Dhe tani do të shihni dritaren "Opsionet e fjalës". Klikoni "Personalizoni shiritin".
  9. Pastaj gjeni një vendndodhje për makro në anën e djathtë. Këtu do të klikojmë "Grupi i ri" për të vendosur një të ri për makro.
  10. Jo, vazhdoni të zgjidhni "Macros" nga lista rënëse e "Zgjidhni komandat nga".
  11. Pastaj klikoni në makro që sapo krijoni.
  12. Pastaj klikoni "Shto" në mes të dritares.
  13. Tani makro do të vendoset në grupin e ri. Thjesht klikoni me të djathtën në makro.
  14. Dhe zgjidhni opsionin "Riemërto".Klikoni "Customize Ribbon" -> Zgjidhni një vend për makro -> Zgjidhni "Macros" në "Choose commands from" -> Klikoni në Macro -> klikoni "Shto" -> Klikoni me të djathtën në makro -> Zgjidhni "Riemërto"
  15. Në kutinë e dialogut "Riemërto", zgjidhni një simbol për makronë tuaj.
  16. Pastaj shkruani emrin e shfaqur.
  17. Kliko "OK".Zgjidhni një simbol -> shkruani emrin e ekranit -> kliko "OK"
  18. Tani kthehuni te dritarja "Opsionet e Fjalës" dhe klikoni "OK" atje. Makroja fillon regjistrimin që nga tani.Kliko "OK" në "Opsionet e Word"Word Fillimi i Regjistrimit të një Makroje

Ngjit tekstin si tekst të paformatuar

  1. Së pari, kopjoni një pjesë të një teksti të gjatë.
  2. Pastaj klikoni në skedën "Home".
  3. Klikoni "Ngjit".
  4. Tjetra, zgjidhni "Paste Special".Kliko "Home" -> Kliko "Ngjit" -> Kliko "Ngjit Special"
  5. Dhe zgjidhni "Tekst i paformatuar" në kutinë e dialogut "Ngjit Special".
  6. Pastaj klikoni "OK". Ju mund të merrni një tekst me formatim si më poshtë:Zgjidhni "Tekst i paformatuar" -> Kliko "OK"Teksti i ngjitur si tekst i paformatuar

Hiq fjalët që përsëriten

  1. Pastaj filloni të pastroni formatimin majtas. Shtypni "Ctrl+ H" për të hapur kutinë e dialogut "Gjej dhe zëvendëso".
  2. Dhe shkruani "Shigjetën" në kutinë e tekstit "Gjeni çfarë".
  3. Pastaj klikoni "Zëvendësoni të gjitha".Shkruani fjalën që përsëritet në kutinë e tekstit "Gjej çfarë" -> Kliko "Zëvendëso të gjitha"

Hiq karakteret e skedës

  1. Së pari, shtypni "Ctrl+ H" për të hapur kutinë e dialogut "Gjeni dhe zëvendësoni".
  2. Pastaj shkruani "^t" në kutinë e tekstit "Gjeni çfarë".
  3. Pastaj klikoni "Replace All" për të hequr të gjithë karakteret e skedës.Shkruani "^t" në kutinë e tekstit "Gjej çfarë" -> Kliko "Zëvendëso të gjitha"

Hiqni boshllëqet shtesë

  1. Ende shtypni "Ctrl+ H" për të hapur kutinë e dialogut "Gjeni dhe zëvendësoni".
  2. Në kutinë e tekstit "Gjeni atë", shtypni dy herë tastin bosh.
  3. Pastaj klikoni në butonin "Zëvendësoni të gjitha".Shtypni tastin bosh dy herë në kutinë e tekstit "Gjej çfarë" -> Kliko "Zëvendëso të gjitha"

Hiq linjat boshe dhe boshllëqet shtesë së bashku

Ndonjëherë, kur përdorni funksionin "Gjeni dhe zëvendësoni" për të hequr formatimin, duhet të rregulloni pak për të përmbushur nevojën tuaj. Për shembull, nëse nuk arrini të hiqni të gjitha boshllëqet shtesë kur zbatoni hapat e mësipërm, mund të përdorni hapat e mëposhtëm për t'i fshirë ato së bashku me vijat bosh.

  1. Në mënyrë të ngjashme, shtypni "Ctrl+ H" për të hapur kutinë e dialogut "Gjeni dhe zëvendësoni".
  2. Më pas në kutinë e tekstit "Gjeni atë", shtypni së pari një çelës bosh.
  3. Pastaj shkruani "^p".
  4. Në kutinë e tekstit "Replace with", shkruani "^p".
  5. Klikoni "Zëvendësoni të gjitha".Shtypni së pari tastin bosh -> shkruani "^p" në "Gjej çfarë" kutia e tekstit -> Shkruani "^p" në "Zëvendëso me" kutinë e tekstit -> Kliko "Zëvendëso të gjitha"
  6. Përsëri hapni kutinë e dialogut "Gjeni dhe zëvendësoni".
  7. Dhe në kutinë e tekstit "Gjeni çfarë", fillimisht shkruani "^p".
  8. Pastaj shtypni butonin bosh një herë.
  9. Pastaj shkruani "^p" në kutinë e tekstit "Replace with".
  10. Në fund klikoni në butonin "Zëvendësoni të gjitha".Shkruani "^p" Së pari -> Shtypni butonin bosh një herë në kutinë e tekstit "Gjej çfarë" -> Shkruani "^p" në "Zëvendëso me" kutinë e tekstit -> Kliko "Zëvendëso të gjitha"

Hiqni vijat e majta bosh nëse është e nevojshme

Megjithatë, nëse ka mbetur rreshta bosh, provoni hapat e mëposhtëm:

  1. Shtypni "Ctrl+ H" për të hapur kutinë e dialogut "Gjeni dhe zëvendësoni".
  2. tjetër shkruani "^p^p" në kutinë e tekstit "Gjeni çfarë".
  3. Dhe shkruani "^p" në kutinë e tekstit "Replace with".
  4. Në fund, klikoni në butonin "Zëvendësoni të gjitha".Shkruani "^p^p" në "Gjej çfarë" Text Box -> Shkruani "^p" në "Replace with" Text Box -> Kliko "Replace All"

Deri tani, ju mund të merrni rezultatin si më poshtë:Efekti i përdorimit të funksionit "Replace" për të hequr formatimin

Këtu ju sugjerojmë të merrni urdhrin e mësipërm për të hequr formatimin e tekstit në mënyrë që të mund të fshini formatimin në përgjithësi. Dhe siç e kemi përmendur, ndonjëherë ju duhet të pastroni lloje të tjera të formatimit, atëherë duhet të përdorni funksionin "Gjeni dhe zëvendësoni" vetë. Për më shumë mënyra për të hequr formatimin, mund të vizitoni këtë artikull: 3 mënyra për të hequr menjëherë elementët e padëshiruar nga dokumentet tuaja Word

Ju mund të shikoni videon e mëposhtme për të parë demonstrimin:

Ndalo regjistrimin e makro

  1. Pasi të keni përfunduar heqjen e formatimit të tekstit, klikoni në skedën "Zhvilluesi".
  2. Pastaj klikoni "Ndalo regjistrimin". Tani makro do të ruhet.Klikoni "Zhvilluesi" -> Klikoni "Ndalo regjistrimin"

Si të ekzekutoni një makro

  1. Kopjojeni tekstin me formatim në internet, të themi.
  2. Hapni Word tjetër.
  3. Pastaj klikoni në skedën "Zhvilluesi".
  4. Klikoni ikonën makro dhe do të shihni tekstin në dokument pa formatim shtesë.Klikoni "Zhvilluesi" -> Klikoni Macron e sapo regjistruarEfekti i përdorimit të makro për të hequr formatimin

Shënim: Për fillestarin, thjesht mund të ndërmerrni hapat e mësipërm për të krijuar dhe ekzekutuar një makro. Drejtimi i një makro do t'ju ndihmojë të hiqni qafe formatimin irritues në përgjithësi, gjë që mjafton.

Kodet VBA për ekspertin

Së pari është mënyra për të parë kodet VBA.

  1. Fillimisht klikoni në skedën "Zhvilluesi".
  2. Pastaj klikoni "Visual Basic" në grupin "Code".Klikoni "Zhvilluesi" -> Klikoni "Visual Basic"
  3. Në redaktuesin "Microsoft Visual Basic për aplikacione", kliko "Normal" në anën e majtë së pari.
  4. Pastaj klikoni "Modulet".
  5. Pastaj klikoni dy herë "NewMacros" dhe do të jeni në gjendje të shikoni kodin në zonën e djathtë.Kliko "Normal" -> Kliko "Modulet" -> Klikoni dy herë "NewMacros"

Në këtë rast, kodet janë si më poshtë:

 

Nën tekstin e kopjimit ()

'

'Makro teksti i kopjimit

'

'

    Selection.PasteSpecial Link:=False, Data Type:=wdPasteText, Placement:= _

        wdInLine, DisplayAsIcon:=False

    Zgjedhja.Gjeni.ClearFormatting

    Zgjedhja.Gjeni.Zëvendësimi.ClearFormatting

    Me Përzgjedhje.Gjeni

        .Text = "Shigjeta"

        .Zëvendësim.Tekst = ""

        .Përpara = E vërtetë

        .mbështjell = wdFindVazhdo

        .format=false

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = E rreme

        .MatchAllWordForms = False

    Mbaro me

    Selection.Find.Execute Replace:=wdReplaceAll

    Zgjedhja.Gjeni.ClearFormatting

    Zgjedhja.Gjeni.Zëvendësimi.ClearFormatting

    Me Përzgjedhje.Gjeni

        .Text = "^t"

        .Zëvendësim.Tekst = ""

        .Përpara = E vërtetë

        .mbështjell = wdFindVazhdo

        .format=false

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = E rreme

        .MatchAllWordForms = False

    Mbaro me

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.Execute Replace:=wdReplaceAll

    Zgjedhja.Gjeni.ClearFormatting

    Zgjedhja.Gjeni.Zëvendësimi.ClearFormatting

    Me Përzgjedhje.Gjeni

        .Tekst = ””

        .Zëvendësim.Tekst = ""

        .Përpara = E vërtetë

        .mbështjell = wdFindVazhdo

        .format=false

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = E rreme

        .MatchAllWordForms = False

    Mbaro me

    Selection.Find.Execute Replace:=wdReplaceAll

    Zgjedhja.Gjeni.ClearFormatting

    Zgjedhja.Gjeni.Zëvendësimi.ClearFormatting

    Me Përzgjedhje.Gjeni

        .Text = "^p"

        .Replacement.Text = "^p"

        .Përpara = E vërtetë

        .mbështjell = wdFindVazhdo

        .format=false

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = E rreme

        .MatchAllWordForms = False

    Mbaro me

    Selection.Find.Execute Replace:=wdReplaceAll

    Zgjedhja.Gjeni.ClearFormatting

    Zgjedhja.Gjeni.Zëvendësimi.ClearFormatting

    Me Përzgjedhje.Gjeni

        .Text = "^p"

        .Replacement.Text = "^p"

        .Përpara = E vërtetë

        .mbështjell = wdFindVazhdo

        .format=false

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = E rreme

        .MatchAllWordForms = False

    Mbaro me

    Selection.Find.Execute Replace:=wdReplaceAll

    Zgjedhja.Gjeni.ClearFormatting

    Zgjedhja.Gjeni.Zëvendësimi.ClearFormatting

    Me Përzgjedhje.Gjeni

        .Text = "^p^p"

        .Replacement.Text = "^p"

        .Përpara = E vërtetë

        .mbështjell = wdFindVazhdo

        .format=false

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = E rreme

        .MatchAllWordForms = False

    Mbaro me

    Selection.Find.Execute Replace:=wdReplaceAll

    Zgjedhja.Gjeni.ClearFormatting

    Zgjedhja.Gjeni.Zëvendësimi.ClearFormatting

    Me Përzgjedhje.Gjeni

        .Text = "^p^p"

        .Replacement.Text = "^p"

        .Përpara = E vërtetë

        .mbështjell = wdFindVazhdo

        .format=false

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = E rreme

        .MatchAllWordForms = False

    Mbaro me

    Selection.Find.Execute Replace:=wdReplaceAll

Sub End

 

Duke folur për ekspertë dhe përdorues të avancuar që janë të njohur me VBA, ju mund të rregulloni plotësisht kodet për të përmbushur kërkesat tuaja, të cilat do të jenë më të përshtatshme dhe më të sakta.

Siguroni skedarët tuaj

Përdoruesit e Word-it në mbarë botën priren ta përdorin atë sa më mirë. Është një ide e mrekullueshme dhe gjithashtu e rrezikshme, pasi rrit rrezikun e kolapsit të Word me operacione të gabuara. Prandaj, duhet të gjeni gjithmonë mënyra për të siguruar skedarët tuaj. Ndër opsionet e disponueshme, marrja e një riparim dok mjet paraprakisht nuk tingëllon keq.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperimi excel pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.