Word selection font bold

• 
• Forum
• VBA Code & Other Help
• Word Help
• Selection.Font.Bold = True doesn’t work

1. 01-10-2009, 02:48 AM

   
   

   #1

   Selection.Font.Bold = True doesn’t work
   

   I tried use VBA to bold a selected word in MS Word. The code is …

   Selection.Font.Bold = True

   However, this doesn’t work. I also tried

   Selection.Font.Bold = wdToggle

   And this doesn’t work also. Please help.

   ---

2. 01-10-2009, 03:52 AM

   
   

   #2

   Hi vaxim,

   It works for me. What version of Word are you using? Are macros enabled?

   Cheers
   Paul Edstein
   [Fmr MS MVP — Word]

   ---

3. 01-10-2009, 06:26 AM

   
   

   #3

   dear macropod

   I use Word 2003 and I think macro is enabled because I can run other VBA script.

   ---

4. 01-10-2009, 10:13 AM

   
   

   #4

   You have to actually select some text vaxim……manually or with code.

   Just having the cursor in the line will not work.

   Steve
   «Nearly all men can stand adversity, but if you want to test a man’s character, give him power.»
   -Abraham Lincoln

   ---

5. 01-10-2009, 06:12 PM

   
   

   #5

   I tried

   Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
   Selection.Font.Bold = True

   But the selected text was not bold.

   ---

6. 01-10-2009, 11:22 PM

   
   

   #6

   Hi vaxim,

   With your latest code, all that gets the bold font is the string from the right of the insertion point until the end of the word in which the insertion point in located, plus the following puntuation character. For example, with the text «The quick brown fox jumps over the lazy dog.», if the insertion point is between the ‘w’ and ‘n’ in ‘brown’, all that gets the bold font is the ‘n ‘. If the insertion point is after the ‘n’ in ‘brown’, all that gets the bold font is the ‘ ‘ and, if the insertion point is beyween the ‘ ‘ and ‘b’ in ‘brown’, what gets the bold font is ‘brown ‘.

   Perhaps you could explain what you’re trying to do.

   Cheers
   Paul Edstein
   [Fmr MS MVP — Word]

   ---

7. 01-11-2009, 01:05 AM

   
   

   #7

   Hi Macropod

   Thank you for your reply. I tested the lastest macro in this thread with the string «the quick brown …» The result is the same as you said. However, when I tested with the string in Thai language, the macro cannot bold any word at all.

   Fortunately, now I know a solution to this problem. I changed

   Selection.Font.Bold = True

   to

   Selection.Font.BoldBi = True

   And the macro can bold a Thai word.

   ---

8. 01-12-2009, 12:58 PM

   
   

   #8

   .Bold applies to left-to-right languages.

   The BoldBi property applies to text in a right-to-left language.

   Note that BoldBi also applies to the Range object in right-to-left languages. It applies to the color index (Font.ColorIndexBi). It applies to italics (Font.ItalicsBi; Range.Font.ItalicsBi) and all the format properties, such as Font.SizeBi.

   ---

9. 01-21-2009, 07:51 AM

   
   

   #9

   Have you defined your Word application object? Otherwise Selection by itself would be ambiguous to VB. For example:

   Dim oWord As Word.Application
   Set oWord As New Word.Application (or the name of your existing file)

   Once you have that then you can select the desired text either manually or with the code and do:

   oWord.Selection.Font.Bold = True

   ---

10. 01-21-2009, 11:18 AM

    
    

    #10

    Huh?

    1. What makes you think there is any need for an explicit application object? The OP never mentions VB, or actioning Word from any other application.

    The OP wrote: «I tried use VBA to bold a selected word in MS Word.»

    Therefore they ARE in Word. There is no need for an oWord As Word.Application.

    2. The OP does mention that they are using Thai language.

    Fortunately, now I know a solution to this problem. I changed

    Selection.Font.Bold = True

    to

    Selection.Font.BoldBi = True

    And the macro can bold a Thai word.

    The reason .BoldBi does work (and .Bold does not) is BECAUSE it is Thai. .Bold will never work — with or without an properly defined application object — on a right-to-left language.

    All format properties require the use of Bi for these languages.

    .SizeBi
    .BoldBi
    .ItalicsBi

    etc.

    ---

Posting Permissions

ActiveDocument.Words.Item(7).Select
Selection.Font.Italic = True

Листинг
11.1.
Выделяем седьмое слово и форматируем его

Selection.Text = "Привет"

Листинг
11.2.
Добавляем текст в выделенную позицию документа

'Полужирный
    Selection.Font.Bold = wdToggle
    'Курсивный
    Selection.Font.Italic = wdToggle
    'Подчеркнутый
    Selection.Font.Underline = wdUnderlineSingle
    'Гарнитура Arial Narrow
    Selection.Font.Name = "Arial Narrow"
    'Размер шрифта - 14
    Selection.Font.Size = 14
    'Цвет шрифта - красный - из
    'перечисления wdColorR
    Selection.Font.Color = wdColorRed

Листинг
11.3.
Форматируем текст

Dim obj_Range As Range
Set obj_Range = Selection.Range

Листинг
11.4.
Получаем объект Range из Selection

"Имя_исходного_документа"+ "текущая дата"+ "обработано".docm

'Переменая для хранения ссылки на новый документ
    Dim obj_NewDoc As Document
    'Для ссылки на исходный документ
    Dim obj_OurDoc As Document
    'Динамический массив для хранения слов
    Dim WordsArray() As String
    'Переменная для хранения количества слов
    Dim WordsCount
    'Переменная для формирования строк,
    'которые выводятся в новый документ
    Dim OutString
    'Переменная для хранения количества
    'символов в обработанных словах
    Dim LettersCount
    'В этой переменной будем создавать
    'имя файла
    Dim NewDocName
    'Запишем ссылку на активный документ
    'Для того, чтобы вернуться в него
    'после работы с новым документом
    Set obj_OurDoc = ActiveDocument
    WordsCount = Selection.Words.Count
    LettersCount = Selection.Characters.Count
    ReDim WordsArray(WordsCount)
    'Переносим слова из выделения
    'в массив для удобства работы с ними
    For i = 1 To WordsCount
        WordsArray(i) = Selection.Words.Item(i)
    Next i
    'Создадим новый документ
    Set obj_NewDoc = Documents.Add
    'И сделаем его активным
    obj_NewDoc.Activate
    'Теперь объект Selection относится к активному
    'документу и мы начинаем вводить в него данные
    Selection.TypeText ("Список выделенных слов")
    Selection.TypeParagraph
    For i = 1 To WordsCount
        OutString = "Слово №" + Str(i) + ": " + _
        WordsArray(i)
        Selection.TypeText (OutString)
        Selection.TypeParagraph
    Next i
    Selection.TypeText ("Всего обработано " + _
    Str(WordsCount) + _
    " слов(а), в которых содержится " + _
    Str(LettersCount) + " символа(ов)")
    'Создаем имя нового документа
    NewDocName = obj_OurDoc.Name + " " + _
    Str(Date) + " Обработано.docx"
    'Установим корневой каталог диска C:
    'для сохранения нового файла по умолчанию
    ChangeFileOpenDirectory "C:"
    'Используем метод SaveAs для
    'автоматического сохранения
    'документа
    ActiveDocument.SaveAs _
    FileName:=NewDocName, _
    FileFormat:=wdFormatDocumentDefault
    'Закрываем активный документ
    ActiveDocument.Close
    'Активируем документ, в котором мы выделяли
    'слова
    obj_OurDoc.Activate
    'Отмечаем обработанный участок
    'скобками и выделением синим цветом
    Selection.InsertAfter (") ")
    Selection.InsertBefore (" (")
    Selection.Font.Color = wdColorBlue
    'Выделяем первый символ текущего выделения и
    'выводим сообщение о том, что операция
    'выполнена
    Selection.Characters(1).Select
    MsgBox ("Выполнено!")

Листинг
11.5.
Решение задачи