Word文書の特定の単語の最初の文字のスタイルを変更する3つの簡単な方法

この記事では、Word文書の特定の単語の最初の文字のスタイルを変更する3つの方法を紹介します。

ドキュメントをフォーマットする一般的なルールのXNUMXつは、各文の最初の文字を大文字にすることです。 ただし、芸術的なドキュメントでの作業など、一部の特殊なケースでは、満たす必要のある特定の要件があります。

この記事では、3つの異なるニーズに合わせて単語の最初の文字のスタイルを変更する3つの方法をご紹介します。

方法1：ドキュメント内の各単語の最初の文字のスタイルを変更する

1. まず最初に、「Alt + F11」を押して、WordでVBAエディターを起動してください。
2. 次に、左側の列の「通常」をクリックします。
3. 次にメニューバーで、「挿入」をクリックします。
4. そして、ドロップダウンメニューの「モジュール」をクリックします。
5. 次に、新しいモジュールをダブルクリックして開き、次のコードをそこに貼り付けます。

Sub ChangeStyleOfFirstLetterInWords()
  Dim objWord As Range
 
  For Each objWord In ActiveDocument.Words
    ' Change the font size for the first letter in every word.
    objWord.Characters(1).Font.Size = 16
    ' Set Bold font for the first letter in every word.
    objWord.Characters(1).Font.Bold = True
    ' Change the font color for the first letter in every word.
    objWord.Characters(1).Font.Color = wdColorGreen
  Next
End Sub

6. 最後に、「実行」をクリックします。

結果は次のとおりです。

注意：

1. Characters(1).Font.Size = 16

これにより、16の最初の文字のフォントサイズが設定されます。必要に応じて番号を変更してください。

2. Characters(1).Font.Bold = True

この行は、最初の文字を太字で設定します。 必要がなければ、「True」を「False」に変更できます。

3. Characters(1).Font.Color = wdColorGreen

これは文字に緑色を適用します。 次のリンクにアクセスして、希望の色を選択してください。 https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa195614(v=office.11)

方法2：すべての文の最初の単語の最初の文字のスタイルを変更する

1. まず、方法1に示すように、マクロをインストールして実行します。
2. 次に、次のマクロに置き換えます。

Sub ChangeStyleOfFirstLetterInSentence()
  Dim objSentence As Range
 
  For Each objSentence In ActiveDocument.Sentences
    ' Change the font size for the first letter in every sentence.
    objSentence.Words(1).Characters(1).Font.Size = 16
    ' Set Bold font for the first letter in every sentence.
    objSentence.Words(1).Characters(1).Font.Bold = True
    ' Change the font color for the first letter in every sentence.
    objSentence.Words(1).Characters(1).Font.Color = wdColorGreen
  Next
End Sub

結果を確認します。

方法3：すべての段落の最初の単語の最初の文字のスタイルを変更する

1. 同様に、方法1の手順に従って、マクロをインストールして実行します。
2. 次に、このマクロを使用します。

Sub ChangeStyleOfFirstLetterInParagraphs()
  Dim objParagraph As Word.Paragraph
 
  For Each objParagraph In ActiveDocument.Paragraphs
    ' Change the font size for the first letter in every paragraph.
    objParagraph.Range.Words(1).Characters(1).Font.Size = 16
    ' Set Bold font for the first letter in every paragraph.
    objParagraph.Range.Words(1).Characters(1).Font.Bold = True
    ' Change the font color for the first letter in every paragraph.
     objParagraph.Range.Words(1).Characters(1).Font.Bold = True
  Next
End Sub

スクリーンショットを参照してください：

データ損失を処理するための最良のアプローチ

重大なデータ損失があることは非常にストレスになる可能性があります。 したがって、あなたはそのような災害に対処する方法を知っている必要があります。 そしてもちろん、あなたの最善の解決策は、 ドキュメントの修復 ユーティリティ。 これを使用すると、最短時間でデータを取り戻すことができます。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 Excelの修復 and pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com