Как найти аббревиатуры в ворд

Чтобы сделать это вручную потребуется не один день, а для большого документа не одна неделя, поэтому придётся делать автоматически, поиском с использованием подстановочных знаков.

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

Нажимаем комбинацию клавиш CTRL+F или кнопку Найти (Главная/редактирова­ние)

В открывшемся окне нажимаем кнопку Больше>> и устанавливаем галочку Подстановочные знаки

В поле Найти пишем формулу для поиска слова состоящего из одних заглавных букв ( могут встретиться и кириллица и латинские буквы) в количестве от 2 букв и больше

<[А-ЯЁA-Z]{2;}>

Жмём кнопку Найти в и выбираем Основной документ

После этого все сокращения будут выделены автоматически

Останется только скопировать в буфер обмена, перейти на страницу для списка сокращений и вставить.

Каждая аббревиатура будет написана на отдельной строчке, останется только сформировать список и добавить расшифровки.

Microsoft Edge Word для Microsoft 365 Word для Интернета Еще…Меньше

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

При необходимости с помощью поиска (Майкрософт) можно найти значение этих арктанных акронимов. Вы можете использовать поле поиска в Bing, SharePoint и Office.com или на области акронимов в Word. 

Использование полей поиска

Используйте поле поиска в Bing, SharePoint или Office.com, чтобы получить результаты, включающие все значения и определения, которые важны для вас и вашей организации. На любом из этих сайтов просто введите в поле поиска аббревиатуру и ключевые слова о значении или определении. Например, можно найти аббревиатуру FTE, используя один из следующих запросов:

  • Что такое FTE

  • определение fte

  • Определение FTE

  • Развернуть FTE

  • расширение fte

  • значение fte

  • FTE означает

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

Акронимы в поиске доступны для следующих языков: 

  • Bing:    Английский (EN), испанский (ES), французский (ФРАНЦИЯ), итальянский (IT), немецкий (DE) и португальский (PT)

  • SharePoint и Office.com:    Только английский (США) с дополнительными языками в будущем

Использование области “Акронимы” в Word

Чтобы помочь в этом, Word может отобразить список аббревиатур, используемых в документе. 

Чтобы увидеть список определенных акронимов,

  1. Перейдите в >акронимы.

  2. Найдите в области “Акронимы” аббревиатуры своего документа с их определениями.

    Чтобы узнать, где было найдено определение аббревиатуры, выберите “Найти в общем файле”, “Найтив сообщении” или “Определено в вашей организации”.

В области “Акронимы” доступны:

  • Word для рабочего стола:    Английский (США) только в настоящее время, а другие языки будут в будущем

  • Word в Интернете:    Любой из языков, которые в настоящее время поддерживаются Редактором.

Вставка определений в Word в Интернете с помощью Редактора

При работе в Word в Интернете Редактор отслеживает задаваемые аббревиатуры по мере их написания.

Для управления акронимами в Редакторе:

  1. На вкладке “Главная” выберите “Редактор”.

  2. В области “Редактор” в области уточненийобратите внимание на число рядом с аббревиатурами.

  3. Если здесь указаны какие-либо акронимы, щелкните “Акронимы”, чтобы увидеть их в тексте. Word выберет первое в аббревиатуре любое аббревиатура в документе и выберет его.

  4. При выборе аббревиатуры в тексте Word предлагает возможные определения и другие параметры. Выполните одно из следующих действий:

    • Чтобы записать определение аббревиатуры, выберите нужное определение из списка. Word вставит определение в скобки после аббревиатуры. Определение первого экземпляра аббревиатуры таким образом является хорошей практикой написания.

    • Чтобы ничего не делать и перестать определять аббревиатуру, выберите “Игнорировать”.

    • Чтобы перейти к следующему или предыдущему аббревиатуре в тексте, щелкните стрелку вправо или влево.

Если вы определили или проигнорировали все аббревиатуры, которые “Редактор” указал в тексте, рядом с аббревиатурой от изменений аббревиатуры будет установлена отметка.

Совет: Если аббревиатура несколько, “Редактор” выделяет только первый из них.

Каков источник определений акронимов?

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

Когда в области “Акронимы” появится определение акронима, вы увидите источник ниже:“Найдено в общем файле”, “Найдено в сообщении электронной почты” или “Определено в вашей организации”.

Кто может видеть акронимы и их определения?

Акронимы и их определения можно увидеть только в том случае, если у вас есть доступ к документам и электронным письмам, из которые были произведены определения акронимов.

Почему я не вижу определения всех акронимов?

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

Нужна дополнительная помощь?

Нужны дополнительные параметры?

Изучите преимущества подписки, просмотрите учебные курсы, узнайте, как защитить свое устройство и т. д.

В сообществах можно задавать вопросы и отвечать на них, отправлять отзывы и консультироваться с экспертами разных профилей.

Все категории

  • Фотография и видеосъемка
  • Знания
  • Другое
  • Гороскопы, магия, гадания
  • Общество и политика
  • Образование
  • Путешествия и туризм
  • Искусство и культура
  • Города и страны
  • Строительство и ремонт
  • Работа и карьера
  • Спорт
  • Стиль и красота
  • Юридическая консультация
  • Компьютеры и интернет
  • Товары и услуги
  • Темы для взрослых
  • Семья и дом
  • Животные и растения
  • Еда и кулинария
  • Здоровье и медицина
  • Авто и мото
  • Бизнес и финансы
  • Философия, непознанное
  • Досуг и развлечения
  • Знакомства, любовь, отношения
  • Наука и техника


0

Что делать если надо выбрать из очень большого документа Ворд все слова-сокращения?

Как найти в огромном тексте документа Word все аббревиатуры?

Как в программе Ворд сделать список всех используемых в тексте сокращений?

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

1 ответ:



2



0

Чтобы сделать это вручную потребуется не один день, а для большого документа не одна неделя, поэтому придётся делать автоматически, поиском с использованием подстановочных знаков.

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

Нажимаем комбинацию клавиш CTRL+F или кнопку Найти (Главная/редактирова­<wbr />ние)

В открывшемся окне нажимаем кнопку Больше>> и устанавливаем галочку Подстановочные знаки

В поле Найти пишем формулу для поиска слова состоящего из одних заглавных букв ( могут встретиться и кириллица и латинские буквы) в количестве от 2 букв и больше

<[А-ЯЁA-Z]{2;}>

Жмём кнопку Найти в и выбираем Основной документ

После этого все сокращения будут выделены автоматически

Останется только скопировать в буфер обмена, перейти на страницу для списка сокращений и вставить.

Каждая аббревиатура будет написана на отдельной строчке, останется только сформировать список и добавить расшифровки.

Читайте также

Можно попробовать тут:

http://www.pobediteli.ru/

http://soldat1941.narod.ru/links.html

http://qurilka.ru/forum60.html

Но самое лучшее получить официальную справку в Центральном архиве Министерства обороны Российской Федерации (ЦАМО).

Как это сделать можно посмотреть здесь:

http://www.moscow-faq.ru/all_question/state/army/2009/July/20418

Для начала я бы посоветовала исследовать морское побережье Азовского моря в Запорожской области, ведь не так давно стал доступен 3 G интернет, и скорость довольно неплохая. На некоторых базах отдыха можно воспользоваться wi-fi интернетом, а в крупных городах как Бердянск и Приморск это вообще не проблема.

У моря, у лимана, в песках, в аквапарках, в дельфинарии можно найти редких покемонов.

В самом Запорожье мног покемонов находят в городских парках, на Хортице, в центре города, в переулочках центральных улиц, в местах скопления людей, даже в макдональдс.

В контакте есть группа соответствующей тематики.

Пещерная сера – это порошок, на основе самой пещерной серы, который горит под водой.

Пещерную серу в Subnautica можно найти в гнезде рыбы камикадзе, после того как подорвать само гнездо или убить рыбу. Но если гнездо будет полностью уничтожено, порошок там больше не появится.

Мусорные баржи обычно находятся вдоль причалов. Найти их можно даже на глобальной карте. Просто приблизьте карту и ищите здания, стоящие наполовину в воде, наполовину на суше. И смотрите в более бедных районах, потому что в богатых вы, скорее всего, наткнетесь на берег с яхтами.

Гараж главного персонажа расположен в баре “Сэмми”, по умолчанию. Он находится там же, где стоит ваш сейф, в который вы прячете наличность. Этот сейф есть на карте. Однако сохранить машину надолго не получится: она все равно рано или позно пропадет или разобьется, поэтому легче сразу пользоваться услугами доставщика автомобилей.

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

Вот эта реальная будет информация.

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

Для начала внесите все сокращения в Предметный указатель. Для этого выделите нужные слова или аббревиатуры и нажмите комбинацию клавиш [Alt]+[Shift]+[X]. Появится небольшое окно, в котором выделенное слово уже будет внесено в поле основного элемента указателя. В поле «Дополнительный» внесите описание сокращения и нажмите на кнопку «Пометить».

wordПосле сокращения в самом тексте появятся фигурные скобки, которые, однако, не будут видны при печати или в PDF. Подобным образом пометьте оставшиеся сокращения и нажмите на кнопку «Закрыть».

Теперь нужно добавить список сокращений в ваш документ. Для этого поставьте курсор на ту страницу, где вы хотите разместить список. Если эта страница находится в конце документа, разместите курсор после основного текста на новой пустой странице, создав ее с помощью «Вставка | Разрыв страницы».

Создать список сокращений. В текстовом редакторе Word Вы можете быстро и легко создать список применяемых в тексте сокращений

Создать список сокращений. В текстовом редакторе Word Вы можете быстро и легко создать список применяемых в тексте сокращений

Откройте вкладку «Ссылки» и найдите группу «Предметный указатель». Нажмите на кнопку «Предметный указатель». В появившемся окне определите, сколько столбцов и какой формат будет иметь получившийся список. Подтвердите операции нажатием на «ОК».

При работе с документом вы можете добавлять элементы в список, следуя данной инструкции.

Фото: компания-производитель

I have a document with many acronyms that need to be captured and put into an acronyms table at the end of the document.

The term acronym has various meanings. I’d like to create a table that has all of the words that are initialized; two or more capitalized letters that are short for a longer meaning. I.e., CD-ROM, USB, SYNC, MMR, ASCAP, etc.

How do I create a macro to do this?

Deduplicator's user avatar

Deduplicator

44.4k7 gold badges65 silver badges115 bronze badges

asked Jun 6, 2012 at 15:16

MAbraham1's user avatar

8

Something like this might get you started. Add a reference to “Microsoft VBScript Regular Expressions” (Edit Macro: Tools > References). This library is the file, “vbscript.dll”.

You may need to adjust the regexp if all your acronyms aren’t only upper-case letters (eg some may contain numbers).

Sub Acronyms()

    Dim dict, k, tmp
    Dim regEx, Match, Matches
    Dim rngRange As Range
    Set regEx = New RegExp
    Set dict = CreateObject("scripting.dictionary")

    regEx.Pattern = "[A-Z]{2,}" '2 or more upper-case letters
    regEx.IgnoreCase = False
    regEx.Global = True
    Set Matches = regEx.Execute(ActiveDocument.Range.Text)
    For Each Match In Matches
        tmp = Match.Value
        If Not dict.Exists(tmp) Then dict.Add tmp, 0
        dict(tmp) = dict(tmp) + 1
    Next

    For Each k In dict.Keys
        Debug.Print k, dict(k)
    Next k

End Sub

answered Jun 6, 2012 at 16:06

Tim Williams's user avatar

Tim WilliamsTim Williams

151k8 gold badges96 silver badges125 bronze badges

2

Thanks Tim, your code works great!

If it will be of any use to others, the pattern [A-Z]{1,}([a-z]*|&|.*)[A-Z]{1,} will find more acronyms…

(I do not have permission to post comments, hence adding this as answer)

Edit (still no way to add comments): b[A-Z]{1,}([a-z*]|&|.|-)[A-Z]{1,}b is more robust, but will fail if the last character of the acronym is not capitalized.

answered Jul 23, 2013 at 8:39

Vignesh's user avatar

VigneshVignesh

1672 silver badges12 bronze badges

0

I have found the following works well (where some business name acronyms are tolerable). I use this to test data entries in Access, it should also work for a Word document range.

objRegExp.Pattern = "([A-Z]{1,}((&(?![A-Z]s[w]{3})w*)+|.w*)+)|[A-Z]{2,}(?![A-Z]*s[A-Z]{1}[a-z])"
  • J&K =Match
  • JK&S =Match
  • J.S.S =Match
  • JK&S.K =Match
  • JSK =Match
  • JK =Match
  • DKD And Sons =No Match
  • J&K Engineering =No Match
  • PKF Rogers and Associates =No Match

I use RegExHero to test my expressions

answered Mar 23, 2015 at 7:27

Adam's user avatar

AdamAdam

212 bronze badges

I used the following to find abbreviations in my PhD thesis. They were all in “()”.

regEx.Pattern = "([A-Z]{1,}([a-z]*|&|.|-*)[A-Z]{1,})"

answered Jul 20, 2015 at 22:31

Sina's user avatar

SinaSina

2402 silver badges8 bronze badges

1

You will be running a macro on the main Word document. Open a separate Word document that is blank. This will be used to store discovered the acronyms.

  1. Press “Record Macro”. Choose a unique name, and assign a shortcut key such
    as CTRL + ALT + A.
  2. Open the Find dialogue (CTRL + F). Paste the following search text:
    <[A-Z]{2,}>. In the Find dialogue, choose “More” > check the box for “Use Wildcards”. Click the Find Next button.
  3. Right-click on the selected text, being careful not to change the
    highlight. Select Copy from the context menu.
  4. Navigate to the separate Word document (ALT + TAB, select the Word
    document). Paste the copied text, and hit Enter. ALT + TAB back to
    the original Word document.
  5. Close the find dialogue and click the right arrow once. This moves
    the cursor off the highlighted text, and readies it for the next
    search.
  6. Stop the macro recording.

You now have a macro that finds a word containing two or more capitalized letters, and saves the text to a separate document. In order to search for the remaining acronyms, press CTRL + ALT + A continuously until the end of the document has been reached. Or, edit the macro, and add while a loop.

Here is what the macro looks like (without the loop):

Sub GetAcronyms()
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "<[A-Z]{2,}>"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Copy
    Windows("Document1.docx").Activate
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.TypeParagraph
    Windows("TheOriginalDocument.docx").Activate
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

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