Как я могу заказать многоуровневый список номеров справа налево независимо от направления абзаца?

Ответ Моники не сработал для меня в MS Word 2019, он не принимает вставку символа Юникода в диалоговом окне многоуровневого списка (я пробовал оба Alt+200F и 200Fзатем Alt+X методы).

Поэтому я попытался добавить пробел после символа разделителя (.) в диалоговом окне "Многоуровневый список". Это устраняет проблему RTL, но между числами будет пустой пробел.

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

1. В вашем документе введите какое-нибудь слово (например, "سلام")
2. Поместите курсор в середину слова
3. На вкладке "Вставка" нажмите "Символ", а затем нажмите "Другие символы..."
4. В окне "Символ" перейдите на вкладку "Специальные символы".
5. Найдите и выберите в списке "Без разрыва" и нажмите "Вставить".

Ваше первое слово в документе пока должно выглядеть как "سلام". Хотя буквы расположены рядом друг с другом, но между ними есть что-то, что загибает слово, вам нужно скопировать это в буфер обмена!

6. Используйте Shift клавиши со стрелками и для выбора, вы не увидите ничего выделенного, вам просто нужно это почувствовать.
7. Нажмите Ctrl+,C чтобы скопировать символ
8. На вкладке "Главная" формы нажмите "Многоуровневый список", а затем "Определить новый многоуровневый список..."
9. В текстовом поле "Enter Formatting..." поместите курсор после символа (ов) разделителя и нажмите Ctrl+,V чтобы вставить, опять же, вы не увидите ничего вставленного.
10. Нажмите ОК

Из вашего вопроса я понял, что, когда вы создаете нумерованный список и хотите изменить его направление на RTL, контент, вероятно, выглядел примерно так ( نص عربيl4.), Поскольку число 14 касается текста, а не точки как разделитель. Если это ваш случай, попробуйте это:

1. Просто выделите текст, для которого вы хотите изменить направление.

2. щелкните правой кнопкой мыши, чтобы открыть меню опций

3. Выберите вариант абзаца

4. На первой странице в общем разделе выберите направление текста "справа налево".

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

Вот пример того, как это сделать для списка глубины 2:

• Нажмите на часть меню кнопки меню ленты Многоуровневого списка.
• Выберите "Определить новый многоуровневый список".
• Перейдите на уровень 2 вашего списка (есть список из 9 уровней).
• В текстовом поле "Форматирование для числа" поместите курсор после символа точки (.).
• Вставьте Unicode RLM ( метка справа налево; U+200F). Вот как вы можете это сделать.
• Примите изменения, которые вы сделали.

Вот и все, теперь числа в порядке справа налево. Очевидно, вам нужно сделать это для уровней 3, 4 и т. Д. С несколькими RLM.

Это легко сделать с помощью VBA следующим образом: разделитель "/", если нужен другой, вы можете заменить его.

Sub rightToLiftMultiLevelList() ' ' Muhammad Abu-gabal 'Арабский многоуровневый список, separator ="/" ' ChrW(8207) является символом справа налево, юникод U+200F Со ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1) .ListLevels (1).ListLevels (1).).NumberFormat = "%1" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = InchesToPoints(0) .Alignment = wdListLevelAlignLeft .TextPosition = InchesToPoints.NumberPosition = 1InchesToPoints. Жирный шрифт = wdUndefined .Italic = wdUndefined .StrikeThrough = wdUndefined.Subscript = wdUndefined.Superscript = wdUndefined.Shadow = wdUndefined.Outline = wdUndefined.Emboss = wdUndefined.Outline = wdUndefined.Emboss = wdUndefined.ndefined.ndefined.ndefined. wdUndefined.Размер = wdUndefined.Animation = wdUndefined.DoubleStrikeThrough = wdUndefined.Name = "".SizeBi = wdUndefined.NameBi = "".BoldBi = wdUndefined.ItalicBi = wdUndefined Конец с.LinkedStyleStart с.LinkedStyle = "Конечный элемент списка с.LinkedStyle =".ListTemplates(1).ListLevels(2) .NumberFormat = "%2/%1" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = InchesToPoints(0) .Alignment = wdListLevelAlignment = wdListLevelAlignment = wdListLevelAlignment = wdListLevelAlignment ResetOnHigher = 1.StartAt = 1 С.Font .Bold = wdUndefined .Italic = wdUndefined .StrikeThrough = wdUndefined .Subscript = wdUndefined .Superscript = wdUndefined .Shadow = wdUndefined .OutdAndefined =.dUndefined..Скрытый = wdUndefined.Underline = wdUndefined.Color = wdUndefined.Size = wdUndefined.Animation = wdUndefined.DoubleStrikeThrough = wdUndefined.Name = "".SizeBi = wdUndefined.Name = "".SizeBi = wdUndefined.NameBoldi = ".SizeBi = wdUndefined.NameBoldi =". "Заголовок 2" заканчивается на ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(3) .NumberFormat = "%3/%2/%1" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberStyle = wdListNumberStyleArabic. Выравнивание = wdListLevelAlignLeft.TextPosition = InchesToPoints (0,5) .TabPosition = wdUndefined .ResetOnHigher = 2 .StartAt = 1 С.Font .Bold = wdUndedowUndefined .Italic = wdUndefined .DescriptionUndefined.DescriptionUndefined. Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Color = wdUndefined.Size = wdUndefined.Animation = wdUndefined.Size = wdUndefined.Animation = wdUndefined.Size = wdUndefined ". BoldBi = wdUndefined.ItalicBi = wdUndefined Конец с.LinkedStyle = "Заголовок 3" Конец с ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(4) .NumberFormat = "%4/% 1" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = InchesToPoints(0) .Alignment = wdListLevelAlignLeft .TextPosition = InchesToPoints(0,6) .UndesToPoints (0,6) .TaboldPoints (0,6) .TaboldPosition =. = wdUndefined. Подстрочный = wdUndefined.Надпись = wdUndefined.Shadow = wdUndefined.Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Hidden = wdUndefined.Underline = wdUndefined. "".SizeBi = wdUndefined.NameBi = "".BoldBi = wdUndefined.ItalicBi = wdUndefined Конец на.LinkedStyle = "Заголовок 4" Конец на ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLeplate (1).ListLeplate (1). 5/%4/%3/%2/%1" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = InchesToPoints(0) .Alignment = wdListLevelAlignLeft .TextPosition = wdListLevelAlignLeft.TextPosition = wdListLevelAlignLeft. = 1 С.Font .Bold = wdUndefined.Курсив = wdUndefined.StrikeThrough = wdUndefined.Subscript = wdUndefined.Superscript = wdUndefined.Shadow = wdUndefined.Outline = wdUndefined.Emboss = wdUndefined.Engrave = wdUndefined.ndefined.ndefined.ndefined. wdUndefined.Animation = wdUndefined.DoubleStrikeThrough = wdUndefined.Name = "".SizeBi = wdUndefined.NameBi = "".BoldBi = wdUndefined.ItalicBi = wdUndefined Окончание с.LinkedStyleplates (с заголовком.LinkedStyleplates) 1).ListLevels(6) .NumberFormat = "%6/%5/%4/%3/%2/%1" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = InchesToPoints(0) .AlignLevelAlignment = wdTrailingTab. = InchesToPoints(0.8) .TabPosition = wdUndefined .ResetOnHigher = 5 .StartAt = 1 С.Font .Bold = wdUndefined .Italic = wdUndefined .StrikeThrough = wdUndefined .Subscript = wdUndefined .Superscript = wdUndefined .Shadow = wdUndefined .OutdAndefined =.dUndefined..Hidden = wdUndefined .Underline = wdUndefined .Color = wdUndefined .Size = wdUndefined .Animation = wdUndefined .DoubleStrikeThrough = wdUndefined .Name = "" .SizeBi = wdUndefined .Name = "".SizeBi = wdUndefined.NameBoldic = ".NameBoldi =". = "Заголовок 6" Заканчивается на ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(7) .NumberFormat = "%7/%6/%5/%4/%3/%2/%1" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = InchesToPoints(0) .Выравнивание = wdListLevelAlignLeft .TextPosition = InchesToPoints(0.9) .TabPosition = wdUndefined .ResetOnHigher = 6 .StartAt = 1 с.Font .Bold = wdUndedowUndefined .Italic = wdUndefined .DescriptionUndefined.DescriptionUndefined. Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Color = wdUndefined.Size = wdUndefined.Color = wdUndefined.Size = wdUndefined.Color = wdUndefined.Size = wdUndefined.Color = wdUndefined. = "".BoldBi = wdUndefined.ItalicBi = wdUndefined Конец с.LinkedStyle = "Заголовок 7" Конец с ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(8) .NumberFormat = "% 6 /%7/% 7 /%5/%4/%3/%2/%1" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = InchesToPoints(0) .Alignment = wdListLevelAlignLeft .TextPosition = InchesToPoints(1) .TabPosition = wdUndefined .ResetOnHigher = 7 .dUndefined.ResetOnHigher =. = wdUndefined.Superscript = wdUndefined.Shadow = wdUndefined.Outline = wdUndefined.Emboss = wdUndefined.Engrave = wdUndefined.Allcaps = wdUndefined..Name = "".SizeBi = wdUndefined.NameBi = "".BoldBi = wdUndefined.ItalicBi = wdUndefined Конец на.LinkedStyle = "Заголовок 8" Конец на ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListTemplates (1). знак равно%9/%8/%7/%6/%5/%4/%3/%2/%1" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = InchesToPoints(0) .Alignment = wdListLevelAcheslignLeft. (1.1) .TabPosition = wdUndefined .ResetOnHigher = 8 .StartAt = 1 С.Font .Bold = wdUndefined .Italic = wdUndefined .StrikeThrough = wdUndefined.Subscript = wdUndefined.Superscript = wdUndefined.Superscript = wdUndefined.Superscript = wdUndefined.Superscript = wdUndefined..Engrave = wdUndefined.AllCaps = wdUndefined.Hidden = wdUndefined.Underline = wdUndefined.Color = wdUndefined.Size = wdUndefined.Animation = wdUndefined.DoubleStrikeThrough = wdUndefined.DoubleStrikeThrough = wdUndefined.DoubleStrikeThrough = wdUndefined..ItalicBi = wdUndefined Конец на.LinkedStyle = "Заголовок 9"Завершить с помощью ListGalleries(wdOutlineNumberGallery).ListTemplates(1).Name = "" Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _ ListGalleries (wdOutlineNumberGallery).ListTemplates(wdOutlineNumberGallery).ListTemplates(1), _ ContinuePrevious:=wdWord10ListBehavior End Sub