目次
経緯
WindowsのWordで書類を書いてました。書類にはファイルを更新した日を記入しなければならなくて、
毎回、記入していて面倒な作業でした。
なので、今回、自動化してみました。
Format(Date, “yyyy年m月d日”)を使う
Format(Date, “yyyy年m月d日”)を使うとうまくいきました。
以下はコードです。
２行目に「更新日 日付」が右寄せで記入されるという仕様です。
Sub ReplaceSecondParagraphWithDate()
Dim doc As Document
Set doc = ActiveDocument
' 文書に少なくとも2つの段落があるかを確認
If doc.Paragraphs.Count >= 2 Then
Dim secondParagraph As Paragraph
Set secondParagraph = doc.Paragraphs(2)
' 日付をフォーマット（例: 2023年12月1日）
Dim formattedDate As String
formattedDate = Format(Date, "yyyy年m月d日")
' 2番目の段落のテキストを直接「更新日 {日付}」で上書き
secondParagraph.Range.Text = "更新日 " & formattedDate & vbCrLf
' 文字を右寄せに設定
secondParagraph.Range.ParagraphFormat.Alignment = wdAlignParagraphRight
Else
MsgBox "文書には2つの段落が必要です。"
End If
End Sub
という感じです。
注意点は、
- このコードは、文書に少なくとも2つの段落がある場合にのみ機能します。
vbCrLfは、段落の終わりに改行を追加します。これにより、更新された日付の後に新しい行が始まります。- 上記のコードは、2番目の段落の既存のテキストを完全に置き換えます。重要な情報がその段落に含まれている場合は、その情報が失われますので注意してください。
参考になれば、幸いです。
ここまで読んでいただきありがとうございました。
スクールの紹介
【アイデミー】AIを学んで一発逆転のキャリアチェンジ！
最後に宣伝をさせてください。
夢見るAIエンジニアへ、今こそ一歩を踏み出せ！
最近、AI技術やデータサイエンスに興味を持ち始めたあなた。将来、AIエンジニアやデータサイエンティストとして活躍したいと考えているかもしれません。また、AIを使って業務課題や研究課題を解決したい、あるいは教養としてAIの知識を深めたいと思っている方もいるでしょう。
しかし、学び始めるとなると「どこから手をつけて良いのか分からない」「専門的すぎて理解できない」といった悩みが生じることも。そんなあなたのために、この3ヶ月間集中してAIプログラミングを習得するオンラインコーチングサービスがオススメです！
なぜこのサービスが選ばれるのか？その理由はこちら
- 初心者から上級者まで
完全なプログラミング初心者から研究者まで、幅広い方々に優良なコンテンツが提供されます。 - 徹底的な進捗管理
受講者の進捗をしっかりとチェックし、つまずきやすいポイントでのフォローが万全です。 - 専属メンターによる徹底サポート
AIの学び方から、実際の適用まで、専属のメンターが手厚くサポートします。 - 場所を選ばず学べるオンライン完結
東京以外の地域からも、気軽に学び始めることができます。
信頼の実績多数！
・日本最大級のプログラミングスクール実績
・受講者総数700名以上
・SaaS型学習サービス会員65,000名以上
・企業導入実績120社以上
・グッドデザイン賞受賞
・著名な賞受賞歴や経団連加盟も実現
夢を叶えるための第一歩を、一緒に踏み出しませんか？今なら、あなたもその一員として学び始めることができます！
