Word 문서에서 학명 형식을 업데이트하기 위한 VBA 매크로

Word에서 학명 형식을 업데이트하는 VBA 매크로

Word 및 Excel용 VBA(Visual Basic for Application)

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 데이터에서 대소문자를 상속하는 VBA 스크립트

Excel 및 Word 통합을 위한 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

텍스트 서식 지정을 위한 VBA 매크로에 대한 일반적인 질문

1. VBA에서 파일 대화 상자를 어떻게 열 수 있나요?
2. 사용 Application.FileDialog(msoFileDialogFilePicker) 파일 대화 상자를 열고 사용자가 파일을 선택할 수 있도록 합니다.
3. VBA에서 Excel 인스턴스를 어떻게 얻을 수 있나요?
4. 당신이 사용할 수있는 GetObject("", "Excel.Application") 기존 Excel 인스턴스를 가져오거나 CreateObject("Excel.Application") 새로운 것을 만들려면.
5. VBA에서 Excel 통합 문서를 어떻게 열 수 있나요?
6. 사용 xlbook.Workbooks.Open("filePath") 지정된 파일 경로에서 Excel 통합 문서를 엽니다.
7. VBA에서 Excel의 다양한 데이터를 읽는 가장 좋은 방법은 무엇입니까?
8. 사용 삼 셀 A1부터 시작하여 시트의 전체 현재 영역을 배열로 읽습니다.
9. VBA에서 Word 문서의 시작 부분으로 커서를 어떻게 이동할 수 있나요?
10. 명령 Selection.HomeKey wdStory 선택 항목을 문서의 시작 부분으로 이동합니다.
11. Selection.Find.ClearFormatting은 VBA에서 무엇을 합니까?
12. 찾기 작업에 적용된 이전 서식 설정을 모두 지우고 새로운 검색을 보장합니다.
13. VBA에서 텍스트를 적절한 대소문자로 어떻게 변경합니까?
14. 사용 StrConv(text, vbProperCase) 텍스트를 적절한 대소문자로 변환하는 기능입니다.
15. VBA의 텍스트에 여러 서식 옵션을 어떻게 적용합니까?
16. 다음을 사용하여 기울임꼴, 굵게, 글꼴 색상과 같은 다양한 서식을 적용할 수 있습니다. rng.Font.Italic = True, rng.Font.Bold = True, 그리고 rng.Font.Color = RGB(200, 187, 0).