Коллеги, доброе утро, случайно ни у кого под рукой не

Question

Коллеги, доброе утро, случайно ни у кого под рукой не

завалялся скрипт, который изменяет каждое слово в каждой ячейке в таблице (ворд) писать с заглавной буквы?

и второй скрипт
если слова написаны по-русски, но на английской раскладке, чтобы они заменялись на русскую?

0

13.11.2023

6 ответов

15 просмотров

Dmitriy Автор вопроса

у меня 1000 таблиц, я ой как сильно не хочу что-то выделять ) мне нужно чтобы иванов иван иванович, если он так будет написал стал Иванов Иван Иванович +)

0

9 месяцев назад

Stas Rychkov

Dmitriy
у меня 1000 таблиц, я ой как сильно не хочу что-то...

Так каждое слово или только ФИО?

0

9 месяцев назад

Dmitriy Автор вопроса

Stas Rychkov
Так каждое слово или только ФИО?

у меня в ячейке только ФИО - три слова - это каждое слово... =)

0

9 месяцев назад

Stas Rychkov

Привет ещё раз. Попробуйте на копии документа. Напишите, пожалуйста, результат. 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

0

9 месяцев назад

Dmitriy Автор вопроса

Stas Rychkov
Привет ещё раз. Попробуйте на копии документа. Нап...

сейчас попробую =)

0

9 месяцев назад

Stas Rychkov · Accepted Answer

Stas Rychkov

Привет. 1) Выделите все строки столбца, удерживая левый Alt, а затем нажмите сочетание клавиш Shift + F3. Каждое последующее нажатие меняет регистр.

0

9 месяцев назад

Похожие чаты

Коллеги, доброе утро, случайно ни у кого под рукой не

6 ответов

Похожие вопросы