Word Belgelerindeki Bilimsel Ad Biçimlendirmesini Güncellemek için VBA Makrosu

Word'deki Bilimsel Ad Biçimlendirmesini Güncelleyecek VBA Makrosu

Word ve Excel için Visual Basic for Applications (VBA)

Sub format_scientific_names()
    Dim xlapp As Object
    Dim xlbook As Object
    Dim xlsheet As Object
    Dim myarray As Variant
    Dim FD As FileDialog
    Dim strSource As String
    Dim i As Long, lognum As Long
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .Title = "Select the workbook that contains the terms to be italicized"
        .Filters.Clear
        .Filters.Add "Excel Workbooks", "*.xlsx"
        .AllowMultiSelect = False
        If .Show = -1 Then
            strSource = .SelectedItems(1)
        Else
            MsgBox "You did not select the workbook that contains the data"
            Exit Sub
        End If
    End With
    On Error Resume Next
    Set xlapp = GetObject("", "Excel.Application")
    If Err Then
        bstartApp = True
        Set xlapp = CreateObject("Excel.Application")
    End If
    On Error GoTo 0
    Set xlbook = xlapp.Workbooks.Open(strSource)
    Set xlsheet = xlbook.Worksheets(1)
    myarray = xlsheet.Range("A1").CurrentRegion.Value
    If bstartApp = True Then xlapp.Quit
    Set xlapp = Nothing
    Set xlbook = Nothing
    Set xlsheet = Nothing
    For i = LBound(myarray) To UBound(myarray)
        Selection.HomeKey wdStory
        Selection.Find.ClearFormatting
        With Selection.Find
            Do While .Execute(FindText:=myarray(i, 1), Forward:=True, _
            MatchWildcards:=True, Wrap:=wdFindStop, MatchCase:=False) = True
                Set rng = Selection.Range
                Selection.Collapse wdCollapseEnd
                rng.Font.Italic = True
                rng.Font.Bold = True
                rng.Font.Color = RGB(200, 187, 0)
                rng.Font.Name = "Times New Roman"
                rng.Text = StrConv(rng.Text, vbProperCase)
            Loop
        End With
    Next i
End Sub

Excel Verilerinden Vakayı Devralmak için VBA Komut Dosyası

Excel ve Word Entegrasyonu için VBA

Sub format_scientific_names_inherit_case()
    Dim xlapp As Object
    Dim xlbook As Object
    Dim xlsheet As Object
    Dim myarray As Variant
    Dim FD As FileDialog
    Dim strSource As String
    Dim i As Long, lognum As Long
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .Title = "Select the workbook that contains the terms to be italicized"
        .Filters.Clear
        .Filters.Add "Excel Workbooks", "*.xlsx"
        .AllowMultiSelect = False
        If .Show = -1 Then
            strSource = .SelectedItems(1)
        Else
            MsgBox "You did not select the workbook that contains the data"
            Exit Sub
        End If
    End With
    On Error Resume Next
    Set xlapp = GetObject("", "Excel.Application")
    If Err Then
        bstartApp = True
        Set xlapp = CreateObject("Excel.Application")
    End If
    On Error GoTo 0
    Set xlbook = xlapp.Workbooks.Open(strSource)
    Set xlsheet = xlbook.Worksheets(1)
    myarray = xlsheet.Range("A1").CurrentRegion.Value
    If bstartApp = True Then xlapp.Quit
    Set xlapp = Nothing
    Set xlbook = Nothing
    Set xlsheet = Nothing
    For i = LBound(myarray) To UBound(myarray)
        Selection.HomeKey wdStory
        Selection.Find.ClearFormatting
        With Selection.Find
            Do While .Execute(FindText:=myarray(i, 1), Forward:=True, _
            MatchWildcards:=True, Wrap:=wdFindStop, MatchCase:=False) = True
                Set rng = Selection.Range
                Selection.Collapse wdCollapseEnd
                rng.Text = myarray(i, 1)
                rng.Font.Italic = True
                rng.Font.Bold = True
                rng.Font.Color = RGB(200, 187, 0)
                rng.Font.Name = "Times New Roman"
            Loop
        End With
    Next i
End Sub

Metin Biçimlendirmeye Yönelik VBA Makroları Hakkında Sık Sorulan Sorular

1. VBA'da bir dosya iletişim kutusunu nasıl açarım?
2. Kullanmak Application.FileDialog(msoFileDialogFilePicker) bir dosya iletişim kutusu açmak ve kullanıcıların bir dosya seçmesine izin vermek için.
3. VBA'da Excel örneğini nasıl alabilirim?
4. Kullanabilirsiniz GetObject("", "Excel.Application") mevcut bir Excel örneğini almak için veya CreateObject("Excel.Application") yeni bir tane yaratmak için.
5. VBA'da bir Excel çalışma kitabını nasıl açarım?
6. Kullanmak xlbook.Workbooks.Open("filePath") Belirtilen dosya yolundan bir Excel çalışma kitabını açmak için.
7. VBA'da Excel'den çeşitli verileri okumanın en iyi yolu nedir?
8. Kullanma xlsheet.Range("A1").CurrentRegion.Value A1 hücresinden başlayarak sayfanın tüm geçerli bölgesini bir diziye okur.
9. İmleci VBA'da bir Word belgesinin başına nasıl taşıyabilirim?
10. Komuta Selection.HomeKey wdStory seçimi belgenin başına taşır.
11. Selection.Find.ClearFormatting VBA'da ne işe yarar?
12. Bulma işlemine uygulanan önceki biçimlendirme ayarlarını temizleyerek yeni bir arama yapılmasını sağlar.
13. VBA'da metni büyük/küçük harfe nasıl değiştiririm?
14. Kullan StrConv(text, vbProperCase) Metni büyük/küçük harfe dönüştürme işlevi.
15. VBA'daki metne birden çok biçimlendirme seçeneğini nasıl uygularım?
16. kullanarak italik, kalın ve yazı rengi gibi farklı biçimlendirmeler uygulayabilirsiniz. rng.Font.Italic = True, rng.Font.Bold = True, Ve rng.Font.Color = RGB(200, 187, 0).