In this post, we plan to share with you 2 effective tips to convert tables and associated captions to pictures in your Word.
Tables are useful when it comes to a large number of data. They hold numbers in a clear manner for reader access. However, as far as data is involved, there is always the concern over data integrity.
There are a couple of ways to prevent others from accessing your tables. Among them is the way to convert tables to pictures. And today, we would like to offer you 2 ways to convert tables and their captions to pictures.
Method 1: Paste Tables and Associated Captions as Pictures Manually
- First of all, select target table and click the drop-down button on “Font Color” under “Home” tab in the Ribbon.
- Next on the drop-down menu, choose “Automatic”.
- And right click on the selected table and choose “Table Properties” to open the same name dialog box.
- Click “Borders and Shading” tab to open a box.
- In the box open, click “Borders” and set width as 3/4 pt. If you don’t increase the line width, your table may lose its borders during conversion.
- Next click “OK” in both boxes.
- Then select its associated caption and press “Ctrl+ Shift+ F9” to unlink the field. If there are multiple tables in the document to convert to pictures, this step is necessary. If the field in caption is preserved, then the caption number in all your tables will take “Table 1” by default, such as bellow:
- Now select both table and its caption. Press “Ctrl+ X”.
- Go to click “Paste” and choose “Paste Special”.
- In the box, select “Picture (Enhanced Metafile)”.
- Lastly, click “OK”.
View the effect here:
Method 2: Run Word Macro
Above method shows you how to deal with a few tables. This method will enable you to process multiple tables at the same time.
- To begin with, press “Alt+ F11” to trigger VBA editor.
- Then click “Normal” in the left-side column.
- Next click “Insert” and “Module”.
- Double click on new module to open it.
- Paste the following codes there:
Sub ConvertTablesToPictures() Dim objTable As Table Dim objDoc As Document Dim objParagraph As Paragraph Dim nTable As Integer Set objDoc = ActiveDocument nTable = 0 With objDoc For Each objParagraph In .Paragraphs If objParagraph.Range.Style = "Caption" Then objParagraph.Range.Delete End If Next objParagraph For Each objTable In .Tables objTable.Rows(1).Select Selection.InsertRowsAbove nTable = nTable + 1 objTable.Cell(1, 1).Range.InsertAfter "Table" & " " & nTable objTable.Cell(1, 1).Range.Style = "Caption" objTable.Rows(1).Cells.Borders.Enable = False objTable.Rows(1).Cells.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle objTable.Range.Select Selection.Cut Selection.PasteSpecial Link:=False, dataType:=wdPasteEnhancedMetafile, _ Placement:=wdInLine, DisplayAsIcon:=False Next objTable End With End Sub
- Last but not the least, click “Run” or hit “F5”.
Cope with Corruption in Word
Word is not immune to errors. Therefore, there is a high chance that you could run into a Word corruption from time to time. In such scenario, your documents can be in danger. This is the time to get an advanced repairing tool to fix the problem.
Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair xlsx and pdf repair software products. For more information visit www.datanumen.com