Word 文書内の学名の書式設定を更新するための VBA マクロ

Word で学名の書式設定を更新する VBA マクロ

Word および Excel 用の 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 データから大文字と小文字を継承する 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. 使用する xlsheet.Range("A1").CurrentRegion.Value セル A1 から始まるシートの現在の領域全体を配列に読み取ります。
9. VBA で Word 文書の先頭にカーソルを移動するにはどうすればよいですか?
10. コマンド Selection.HomeKey wdStory 選択範囲を文書の先頭に移動します。
11. VBA では、Selection.Find.ClearFormatting は何をしますか?
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)。