Как в ворде сократить фио до инициалов
Перейти к содержимому

Как в ворде сократить фио до инициалов

  • автор:

Как в ворде сократить фио до инициалов

Есть ТекстБокс в нем пишется имя например «Казакова Ирина Владимировна», в одно место документа добавляется имя добавляется целиком, а в другое нужно «И.В. Козакова». Как сделать из полного имени и отчества инициалы?

Были идеи тупо создать еще один ТекстБокс с инициалами, но хочется автоматизировать процесс.

Подскажите каким образом решить ситуацию.

NOT TRUE = FALSE NOT FALSE = TRUE
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837

Можно вот так, например. Передаете строку которая содержит Фамилию, Имя и Отчество. Именно в такой последовательности. А получаете инициалы и фамилию. Можно ее усовершенствовать и научить различать порядок слов (по окончанию отчества). Но это оставляю на совести ТС.

Function GetInitials(ByVal fio As String) As String Dim sStr sStr = Split(Trim(Replace(fio, " ", " ")), " ") GetInitials = UCase(Left(sStr(1), 1)) & "." & UCase(Left(sStr(2), 1)) & ". " & UCase(sStr(0)) End Function

Лучше день потерять — потом за пять минут долететь!©

Изменение имени пользователя и инициалов

Excel для Microsoft 365 Word для Microsoft 365 Outlook для Microsoft 365 PowerPoint для Microsoft 365 Access для Microsoft 365 OneNote для Microsoft 365 Классический клиент Project Online Publisher для Microsoft 365 Visio, план 2 Excel 2021 Word 2021 Outlook 2021 PowerPoint 2021 Access 2021 Project профессиональный 2021 Project стандартный 2021 Publisher 2021 Visio профессиональный 2021 Visio стандартный 2021 Excel 2019 Word 2019 Outlook 2019 PowerPoint 2019 Access 2019 Project профессиональный 2019 Project стандартный 2019 Publisher 2019 Visio профессиональный 2019 Visio стандартный 2019 Excel 2016 Word 2016 Outlook 2016 PowerPoint 2016 Access 2016 OneNote 2016 Project профессиональный 2016 Project стандартный 2016 Publisher 2016 Visio профессиональный 2016 Visio стандартный 2016 Excel 2013 Word 2013 Outlook 2013 PowerPoint 2013 Access 2013 OneNote 2013 Project профессиональный 2013 Project стандартный 2013 Publisher 2013 Visio профессиональный 2013 Visio 2013 InfoPath 2013 Еще. Меньше

После установки и открытия приложения Office вам будет предложено указать имя пользователя и инициалы в диалоговом окне, которое выглядит примерно так:

Диалоговое окно

Ваше имя и инициалы будут связаны со всеми документами Office, которые вы создаете, и выводиться в примечаниях, исправлениях и свойствах документа. Вы можете ввести любое имя, но учитывайте то, с кем вы будете делиться документами и для кого их рецензировать. Большинство людей просто указывают свое имя и фамилию.

Если диалоговое окно «Имя пользователя» выводится каждый раз при запуске приложения Office, см. раздел Предотвращение запроса имени пользователя и инициалов.

Изменение имени пользователя и инициалов

При создании документов Office, которые будут использоваться совместно с другими людьми, важно правильно указывать данные об авторах. Имя пользователя и инициалы можно изменить в любое время.

Важно: При их изменении в одной из программ Office они также будут изменены во всех программах Office, установленных на компьютере.

Параметры персонализации Word 2010

  1. Выберите Файл >Параметры.
  2. В диалоговом окне Параметры измените имя пользователя и инициалы в разделе Личная настройка Microsoft Office.

Примечание: В Excel 2010 используется только имя пользователя, а не инициалы.

  1. В открытом документе нажмите кнопку Office

, а затем нажмите кнопку Параметры в нижней части меню.

  • В OneNote откройте меню Сервис и выберите Параметры.
  • В Project и Visio в меню Сервис выберите команду Параметры и откройте вкладку Общие.

Параметры персонализации Word 2007

Измените сведения в полях Имя пользователя и Инициалы. Отображающееся диалоговое окно может отличаться от приведенного ниже примера в зависимости от используемой программы Office.

Примечание: В Excel 2007 используется только имя пользователя, а не инициалы.

Предотвращение запроса имени пользователя и инициалов

Диалоговое окно «Имя пользователя» должно выводиться только один раз — при первом открытии установленной программы Office. Если вы видите его каждый раз при запуске программы, нужно изменить разрешения в реестре.

Предупреждение: Эта процедура содержит инструкции по изменению реестра компьютера. Ошибки при изменении реестра могут привести к серьезным проблемам. Внимательно выполните эти действия. В качестве дополнительной меры предосторожности перед внесением изменений создайте резервную копию реестра. Тогда в случае возникновения проблемы вы сможете восстановить реестр. Сведения о резервном копировании и восстановлении реестра см. в статье Резервное копирование и восстановление реестра в Windows.

  1. На начальном экране Windows 10, Windows 8, Windows 7 или Windows Vista введите regedit.exe в поле поиска, а затем нажмите клавишу ВВОД.

Примечание: В Windows XP нажмите кнопку Пуск, выберите Выполнить, введите regedit.exe и нажмите клавишу ВВОД.

Преобразование имени отчества в Инициалы

Author24 — интернет-сервис помощи студентам

Я сделал три закладки Фамилия, Имя, Отчество. В тех местах где их нужно вставить я сделал перекрестные ссылки.
Есть в документе ситуации когда нужно писать Фамилию и инициалы. В Excele можно было с помощью формул и функций это реализовать а возможно ли в Word такое? Возможно есть функция которая только первую букву из закладки покажет или типо того)

На форум.docx (21.3 Кб, 15 просмотров)

94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:

Напечатать вместо имени и отчества инициалы
2. Заданы фамилия, имя и отчество учащегося, разделенные пробелами. Напишите программу, печатающую.

Перевод фамилии, имени, отчества в фамилию и инициалы
Я делаю учебную базу данных. Но не знаю как преобразовать фамилию, имя, отчество в фамилию и.

Сформировать из фамилии, имени, отчества строку: фамилия и инициалы
В три символьные переменные F, I, O ввести свои фамилию, имя, отчество. Сформировать из этих данных.

Сократить все строки текстового файла, оставив из фамилии/имени/отчества только фамилию и инициалы
В каждой строке текстового файла имя которого вводится из клавиатуры записана фамилия имя и.

8938 / 4850 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246
Получить инициалы из имени и отчества с помощью полей невозможно.
Буду мудрее сегодня
Регистрация: 16.11.2017
Сообщений: 43
ViterAlex, а какие есть варианты?
8938 / 4850 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246
Сделай отдельные закладки для первых букв имени и отчества
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Помогаю со студенческими работами здесь

В списке, содержащем фамилии, имена и отчества студентов группы, заменить имена и отчества на инициалы
В списке, содержащем фамилии, имена и отчества студентов группы, заменить имена и отчества на.

Создать функцию ShortName, из полного «Фамилии Имени, Отчества» получить «Фамилию, инициалы»
Создать функцию ShortName, которая из указанного полного «Фамилии Имени Отчества», создаёт.

Изменение текста в ячейке (из Фамилии Имя Отчества в Фамилию и инициалы)
Доброго времени суток! Така я вот задачка. У меня есть много работников: Порфирьев.

Описать процедуру, которая печатает фамилию и инициалы вместо имя и отчества
Заданы фамилия, имя, отчество учащегося, разделенного пробелами. Описать процедуру, которая.

Или воспользуйтесь поиском по форуму:

Как в EXCEL «Иванов Иван Иванович» превратить в «Иванов И.И.»

Если Фамилия, Имя и Отчество (ФИО) хранятся в одной ячейке (например, в B1 ) и отсутствуют лишние пробелы, то превратить полное ФИО в Фамилию + инициалы можно с помощью этой формулы (см. файл примера ): =ЛЕВСИМВ(B1;НАЙТИ(» «;B1;1)+1)&».»&ПСТР(B1;НАЙТИ(» «;B1;НАЙТИ(» «;B1;1)+1)+1;1)&».»

Формула определяет позицию начала Имени и Отчества по пробелам (код символа пробел =32). Очевидно, что порядок следования фамилии и имени с отчеством важен для работы формулы.

Формула НАЙТИ(» «;B1;1) в выражении Иванов Иван Иванович . Соответственно, выражение ЛЕВСИМВ(B1;НАЙТИ(» «;B1;1)+1) выводит фамилию и первый инициал (первую букву имени).

Гарантировать, что в ячейке отсутствуют лишние пробелы можно предварительно применив формулу СЖПРОБЕЛЫ() .

Чтобы превратить Иванов Иван Иванович (в ячейке B2 ) в И.И. Иванов (инициалы перед фамилией) используйте формулу = ПСТР(B2;НАЙТИ(СИМВОЛ(32);B2;1)+1;1)&».»&ПСТР(B2;ПОИСК(СИМВОЛ(32);B2;НАЙТИ(СИМВОЛ(32);B2;1)+1)+1;1)&». «&ЛЕВСИМВ(B2;НАЙТИ(СИМВОЛ(32);B2;1)-1)

Совет : Если бы фамилия, имя и отчество хранились в отдельных ячейках , то формула была бы гораздо проще =ЛЕВСИМВ(B1;1)&».» То же относится и к другим строковым значениям: Адрес (индекс, страна, город, улица); Название книги (автор, название), банковские реквизиты (номер счета, банк, БИК) и др. Формулы становятся значительно проще, если разные по смыслу данные хранятся в отдельных ячейках.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *