Când compuneți un e-mail care conține multe tabele în corpul mesajului, dacă doriți să redimensionați în lot toate tabelele pentru a se potrivi conținutului sau ferestrei curente, puteți utiliza metodele partajate în acest articol.
După ce ați creat mai multe tabele într-un e-mail, pentru a face conținutul e-mailului aliniat și ordonat, puteți spera să redimensionați toate tabelele pentru a se potrivi cu conținutul sau fereastra curentă a mesajului. În acest caz, dacă există doar două sau trei tabele, puteți utiliza doar funcția încorporată „AutoFit” pentru a le redimensiona unul câte unul, așa cum este introdus în următoarea Metodă 1. Dar, dacă există mai multe tabele, ar fi mai bine să folosiți Metoda 2, care folosește codul VBA pentru a realiza cu ușurință „Redimensionarea lotului”.
Metoda 1: Redimensionați tabelele unul câte unul prin funcția „AutoFit”.
- În primul rând, în e-mailul deschis, plasați cursorul peste un tabel.
- Apoi, faceți clic pe pictograma cruce din colțul din stânga sus al tabelului pentru a o selecta.
- Apoi, accesați fila „Aspect” din panglica „Instrumente pentru tabel”.
- Aici, găsiți și selectați opțiunea „AutoFit”.
- Acum, selectați „AutoFit Contents” sau „AutoFit Window” în funcție de nevoile dvs. Următoarea captură de ecran arată rezultatul exemplului – „AutoFit Window”.
- Imediat, tabelul selectat este potrivit pentru fereastră.
- După aceea, puteți utiliza acest mod pentru a redimensiona celelalte tabele unul câte unul.
Metoda 2: Redimensionarea lotului cu Outlook VBA
- La început, păstrați e-mailul deschis.
- Ulterior, declanșați editorul Outlook VBA prin „Alt + F11”.
- Apoi, introduceți următorul cod VBA într-un modul sau proiect.
Sub ResizeAllTables_FitContentsOrWindow() Dim objMail As Outlook.MailItem Dim objMailDocument As Word.Document Dim objTables As Word.Tables Dim i As Integer Dim objTable As Word.Table Set objMail = Outlook.Application.ActiveInspector.WordMailInspector.Word.MailInspector. dEditor Set objTables = objMailDocument.Tables Dacă objTables.Count > 0 Then For i = 1 To objTables.Count Set objTable = objTables.Item(i) 'Fit the window objTable.AutoFitBehavior wdAutoFitWindow 'Fit the contents, use the following line instead 'objTable .AutoFitBehavior wdAutoFitContent Next End If End Sub
- Apoi, apăsați direct butonul „F5” pentru a rula această macrocomandă.
- Când macrocomanda se termină, reveniți la e-mail. Veți descoperi că toate tabelele au fost redimensionate pentru a se potrivi automat în fereastra de mesaje.
Gestionați problemele Outlook cu agilitate
Se știe că utilizatorii pot întâmpina diverse probleme în Outlook, cum ar fi mesajele de eroare obișnuite, blocarea bruscă și resuscitarea automată bruscătarting, corupție catastrofală a fișierelor de date și așa mai departe. Soluțiile corespunzătoare ar trebui să varieze în funcție de tipul de probleme. De exemplu, pentru a remedia erori minuscule, puteți utiliza pur și simplu instrumentul de reparare a căsuței primite. Dar, în cazul unor probleme grave, cum ar fi probleme cu fișierele PST, ar trebui să apelați la un instrument extern de reparare robust și bine dovedit, cum ar fi DataNumen Outlook Repair la reparați PST fișier.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com
1
Salut din nou Shirley,
Am reușit să remediez mesajul de eroare VBA mergând la Dezvoltator > Instrumente > Referințe și adăugând „Microsoft Word 16.0 Object Library” și „Microsoft Scripting Runtime”. Acum, codul dvs. din metoda VBA #2 este compilat cu succes. Am creat un link în Bara de instrumente Acces rapid. Cu toate acestea, nu face nimic unui e-mail Outlook deschis cu o imagine într-un tabel care se află departe de partea dreaptă a ecranului. Aveți vreo sugestie pentru ce altceva pot face pentru ca acesta să funcționeze.
Multumesc,
UTS
Bună Shirley,
Am încercat codul dvs. VBA Metoda #2 în Outlook 2021, dar am primit „Eroare de compilare: tipul definit de utilizator nu este definit” pe linia „Dim objMailDocument As Word.Document”. Aveți sugestii pentru a rezolva această eroare?