VBA sets the font outside the table to the title in Word

Using VB, you can set the font of the outside of the table to the actual operation as follows:

The VB code is as follows:

Suboliver_1 () Selection.endkey Unit:=wdstory'cursor moves to the end of the text fori =1  toActiveDocument.Tables.Count'There are several tables, the following operations are looped several times      withApplication.browser. Target= Wdbrowsetable'the insertion point is in the table. Previous'before the insertion point moves to the previous table      End  withselection.moveup Unit:=wdline, count:=1 'move the cursor to a row on the tableSelection.style = ActiveDocument.Styles ("Title 3")'set to Heading 1 NextEnd Sub

The above code is entered into the specified area and then pressed F5 to execute, or you can save and then open Excle,alt+f8, then run oliver_1.

VBA sets the font outside the table to the title in Word