Разработчик Java, PhD докторант КазНУ им аль-Фараби.
Контакты

Достижения

Все достижения (2)

Наибольший вклад в теги

Все теги (10)

Лучшие ответы пользователя

Все ответы (3)
  • Конвертирование старого текста?

    c0rp
    @c0rp Автор вопроса
    Разработчик
    Рабочий вариант

    Sub Zamena()
    '
    ' Zamena Макрос
    '
    '
    Dim sTab As String
        sTab = "ӘҒҚҢӨҰҮҺәғқңөұүһАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя"
        Selection.Find.ClearFormatting
        Selection.Find.Font.Shadow = True
        Selection.Find.Replacement.ClearFormatting
        Selection.Find.Replacement.Font.Shadow = False
        With Selection.Find
            .Text = ""
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = True
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        
        Selection.Find.Font.Shadow = False
        Selection.Find.Replacement.Font.Shadow = True
        For i = 1 To Len(sTab)
            With Selection.Find
                .Text = ChrW(i + 175)
                .Replacement.Text = Mid(sTab, i, 1)
                .Forward = True
                .Wrap = wdFindContinue
                .Format = True
                .MatchCase = True
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
            End With
            Selection.Find.Execute Replace:=wdReplaceAll
            Selection.Find.Text = Selection.Find.Text
        Next i
        Selection.Find.Execute Replace:=wdReplaceAll
            With Selection.Find
                .Text = ChrW(105)
                .Replacement.Text = "і"
                .Forward = True
                .Wrap = wdFindContinue
                .Format = True
                .MatchCase = True
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
            End With
            Selection.Find.Execute Replace:=wdReplaceAll
            Selection.Find.Text = Selection.Find.Text
            
            With Selection.Find
                .Text = ChrW(73)
                .Replacement.Text = "І"
                .Forward = True
                .Wrap = wdFindContinue
                .Format = True
                .MatchCase = True
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
            End With
            Selection.Find.Execute Replace:=wdReplaceAll
            Selection.Find.Text = Selection.Find.Text
            
        ' kazakh language
        Selection.WholeStory
        Selection.LanguageID = WdLanguageID.wdKazakh
        Application.CheckLanguage = False
        Selection.Collapse Direction:=wdCollapseStart
    End Sub
    
    Ответ написан
    Комментировать
  • Вопрос по отображению веток в Git

    c0rp
    @c0rp
    Разработчик
    Можно показать дерево вот такой командой:
    log --pretty=format:'%h was %an, %ar, message: %s' --graph
    
    Ответ написан
    1 комментарий

Лучшие вопросы пользователя

Все вопросы (2)