Ak chcete rýchlo vytlačiť všetky tabuľky bez ostatných textov v e-maile programu Outlook, môžete na to použiť jeden z dvoch prístupov.
Keď dostanete e-mail, ktorý obsahuje veľa tabuliek v tele správy, občas možno budete chcieť tieto tabuľky extrahovať a vytlačiť len bez textov v tele. Program Outlook však nemá žiadne súvisiace funkcie na jeho dosiahnutie. V nasledujúcom texte sa s vami podelíme o 2 prostriedky.
Metóda 1: Vytlačte všetky tabuľky na samostatných stranách
- K start s, spustite program Outlook.
- Potom v hlavnom okne programu Outlook stlačte klávesové skratky „Alt + F11“.
- V nasledujúcom okne „Microsoft Visual Basic for Applications“ môžete nájsť a otvoriť modul, ktorý sa nepoužíva.
- Potom by ste mali skopírovať nasledujúci kód VBA do tohto modulu.
Sub PrintAllTables_inOutlookEmail_Individually() Dim objMail As Outlook.MailItem Dim objMailDocument as Word.Document Dim objTable As Word.Table Dim lTableCount as Long Dim objWordApp As Word.Application Dim objWordDocument Dim objMa iDo = Source' Dim objMailDocument as Word. Outlook.Application.ActiveExplorer.Selection.Item(1) Set objMailDocument = objMail.GetInspector.WordEditor lTableCount = objMailDocument.Tables.count Set objWordApp = CreateObject("Word.Application") objWordApp.Visible = TrueT Set for i objTable = objMailDocument.Tables(i) objTable.Range.Copy 'Kopírovať každú tabuľku do každej sady dokumentov programu Word objWordDocument = objWordApp.Documents.Add objWordDocument.Content.Paste 'Vytlačiť každý dokument objWordDocument.WjWordCloseApple Next objQ End Sub
- Neskôr by ste mali pridať nový projekt VBA na panel s nástrojmi Rýchly prístup. Ak to chcete dosiahnuť, prejdite na kartu „Možnosti programu Outlook“ > „Panel s nástrojmi Rýchly prístup“.
- Nakoniec môžete urobiť záber.
- Najprv vyberte e-mail, ktorý obsahuje niekoľko tabuliek.
- Potom kliknite na tlačidlo nového makra na paneli s nástrojmi Rýchly prístup.
- Všetky tabuľky budú naraz vytlačené na jednotlivých stranách.
Metóda 2: Vytlačte všetky tabuľky v sérii
- V prvom rade postupujte podľa krokov 1 až 2 vyššie a prejdite do okna „Microsoft Visual Basic for Applications“.
- Potom prejdite k nepoužívanému modulu, do ktorého musíte skopírovať nasledujúci kód VBA.
Sub PrintAllTables_inOutlookEmail_Continuously() Dim objMail as Outlook.MailItem Dim objMailDocument as Word.Document Dim objTable as Word.Table Dim lTableCount as long Dim objWordApp ako Word.Application Dim objWordDocument as Word.Document Dim objMailDocument ako Word.Document .ActiveExplorer.Selection.Item(1) Nastaviť objMailDocument = objMail.GetInspector.WordEditor 'Vytvoriť súbor dokumentov programu Word objWordApp = CreateObject("Word.Application") Nastaviť objWordDocument = objWordApp.Documents.Add =Activate ObjWordVisible.WordDocument. Každá tabuľka objTable v objMailDocument.Tables objTable.Range.Copy 'Kopírovať všetky tabuľky do jedného dokumentu Word pomocou objWordDocument.Range .Collapse wdCollapseEnd .PasteSpecial wdPasteRTF .Text = vbCrLf Koniec WjPrintou WordjDocumentu obt.Print. Zatvorte False objWordApp .Ukončite End Sub
- Neskôr môžete nové makro pridať na panel s nástrojmi Rýchly prístup.
- Nakoniec vyberiete zdrojovú poštu a stlačíte tlačidlo makra na paneli s nástrojmi Rýchly prístup. Všetky tabuľky v tomto e-maile sa okamžite skopírujú do jedného dokumentu programu Word, ktorý sa teraz vytlačí.
Chráňte údaje programu Outlook pred korupciou
Napriek mnohým funkciám Outlook nemôže uniknúť chybám, zlyhaniu a poškodeniu. Keď teda narazíte na zlyhanie, vaše údaje programu Outlook budú mať tendenciu sa s vami rozlúčiť. Preto, aby sa zabránilo Výhľadová korupcia, musíte vynaložiť určité úsilie, ako je blokovanie skrytých vírusov, správne zatváranie programu Outlook atď. Navyše je rozumné zohnať skúsený opravárenský nástroj, napr DataNumen Outlook Repair.
Úvod autora:
Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť mdf a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. Sc