завалялся скрипт, который изменяет каждое слово в каждой ячейке в таблице (ворд) писать с заглавной буквы?
и второй скрипт
если слова написаны по-русски, но на английской раскладке, чтобы они заменялись на русскую?
Привет. 1) Выделите все строки столбца, удерживая левый Alt, а затем нажмите сочетание клавиш Shift + F3. Каждое последующее нажатие меняет регистр.
у меня 1000 таблиц, я ой как сильно не хочу что-то выделять ) мне нужно чтобы иванов иван иванович, если он так будет написал стал Иванов Иван Иванович +)
Так каждое слово или только ФИО?
у меня в ячейке только ФИО - три слова - это каждое слово... =)
Привет ещё раз. Попробуйте на копии документа. Напишите, пожалуйста, результат. 1. На вкладке View нажмите Macros, а затем выберите View Macros. Откроется окно Macros. 2. Выберите текущий документ в раскрывающемся списке. 3. В поле Macro name введите _SetCapsInTables_, а затем нажмите кнопку Create (или, на Mac, кнопку плюса). Откроется окно редактирования макроса. 4. Нажмите Crtl + A, а затем вставьте макрос отсюда. 5. Нажмите кнопку Run для запуска макроса. ' Sets table text to UPPERCASE Sub SetCapsInTables() Dim oDoc As Document Dim oTbl As Table Dim oRow As Row Dim oCell As Cell Set oDoc = ThisDocument For Each oTbl In oDoc.Table For Each oRow In oTbl.Rows For Each oCell In oRow.Cells oCell.Range.Text = UCase(oCell) Next oCell Next oRow Next oTbl End Sub #инструменты #word #макрос #macro
сейчас попробую =)
Обсуждают сегодня