Powerpoint VBA для поиска и изменения цвета / выделения ключевых слов в текстовом поле

В ответ на Jon's вы можете получить дату первого дня недели, а затем группу по этой дате.

Получить дату первого дня недели. вы можете использовать этот код:

public static class DateTimeExtensions
{
    public static DateTime StartOfWeek(this DateTime dt, DayOfWeek startOfWeek)
    {
        int diff = dt.DayOfWeek - startOfWeek;
        if (diff < 0)
        {
            diff += 7;
        }
        return dt.AddDays(-1 * diff).Date;
    }
}

, после чего вы можете сгруппировать по первой дате недели следующим образом:

var consignmentsByWeek = from con in consignments
                         group con by con.Datedate.StartOfWeek(DayOfWeek.Monday);
0
задан medicine_man 22 March 2019 в 16:00
поделиться

1 ответ

Поскольку ваш вопрос носит общий характер, мы можем дать только общий ответ.

Первое, что вам нужно знать о VBA в powerpoint, - это то, что вам нужен доступ к таким вещам, как объекты. Сначала вам нужно получить доступ к текущему слайду и форме, в которой находится ваше текстовое поле. В этом примере давайте предположим, что текстовое поле, к которому вы хотите получить доступ, находится на первом слайде, в первой форме:

Set oTextbox = ActivePresentation.Slides(1).Shapes(1)
With oTextbox
    text = .TextFrame.TextRange.Characters.Text 'To access the textbox text.
    If InStr(1,text,"some_text")
        .TextFrame.TextRange.Font.Color.RGB = [255 0 0] 'To change the color of a textbox.
    End If
End With
[ 116] .TextFrame.TextRange.Characters.Text получает доступ к тексту фигуры.

Чтобы найти заданный текст в текстовом поле, вы можете использовать команду InStr, чтобы увидеть, находится ли нужный текст в вашем текстовом поле.

.TextFrame.TextRange.Font.Color.RGB доступ к цвету текста.

Это как минимум начало для вас.

0
ответ дан medicine_man 22 March 2019 в 16:00
поделиться
Другие вопросы по тегам:

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