![]() HeightRule:=wdRowHeightAtLeast 'There are some problems here ![]() Selection.Rows(aa).SetHeight RowHeight:=ToPoint, _ RowHeight:=ToPoint, _ĮlseIf Selection.Information(wdWithInTable) = True And If Selection.Information(wdWithInTable) = True And 1 Then 'for mutltiple row ToPoint = Application.CentimetersToPoints(UserData / 10) UserData = InputBox(PromptBottom, HeaderTop) PromptBottom = "Input Row Height for Selection _ mm" Here is the script I propose: Sub TableChangeSelectedRowHeight() Is there any way to modify the row height or column width among a table with vertical and horizontal merged cells table? ![]() VBA would show the error message: Run time error:'5991'. However, when it comes to a table with vertically merged cells, I couldn't do that. I could do this when I highlighted multi-row by mouse, but I also would like to do the same thing when I just put my cursor in a specific single row in the word table. I would like to use InputBox to set the given parameter to change the table row height on cursor now position or the highlighted area. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |