|
|
#2
04-07-2021, 03:57 AM
|
||||
|
||||
How about
Code:
With Selection.Tables(1)
On Error Resume Next
.Style = "Tabelraster"
If Err Then
.Style = "Table Grid"
End If
On Error GoTo 0
End With
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com 
|
| Tags |
| language, style language |
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Having Difficulty Changing the Default Language and Spell Check Language | JimG35 | PowerPoint | 0 | 10-30-2020 04:41 PM |
 installation of a language pack in Greek language for MS office 2016 professional plus/prob
|
alsw | Office | 3 | 02-26-2018 08:49 PM |
| Macro to change language and untick 'do not check spelling' | William E | PowerPoint | 2 | 05-13-2017 01:47 PM |
|
Word macro - remove shading from active para. and assign language to it, keep text cursor position
|
dejanm83 | Word VBA | 3 | 03-19-2017 02:36 PM |
| install new interface language | shmu | Office | 4 | 09-21-2014 02:43 AM |
Windows 10 
Office 2019
Threaded Mode