AI使ってWordも自由自在に

前回のエクセルデータをワードのレイアウトに自動で転記する続きです。

今回はワード側のVBAを使って微調整していきます。というかWordにもVBAってあったんですね。

Alt　＋　F11 でコード入力画面になります。開発タブがない場合、ファイルーオプションのメインタブの"開発"にチェックを入れてください。

今回は印刷時における各テーブルの最後の行だけ文字（こちらの管理をしやすくする番号）を小さくするというもの。

こんなシートにエクセルデータを転記していくよ

これは住所や名前より目立たない形で良いので、この箇所だけフォントサイズを小さくします。フォントサイズは他の"12"に対して"9"

黄色いマーカー部分だけ小さく

ここはこのレイアウトの枠の名称が分からず（Table?,枠）大分苦労しましたが、

No: xxx　店舗コード: xxx

と文字の箇所を指定することで無事クリアできました。コードはこちらです。（）

Sub ChangeFontSizeForNoAndStoreCodeWithFullText()
    Dim doc As Document
    Dim rng As Range
    Dim searchText As String
    Dim foundRange As Range

    ' 検索するテキストパターン
    searchText = "No:*　店舗コード:*"
    
    ' 現在のアクティブ文書を指定
    Set doc = ActiveDocument
    
    ' 文書全体の範囲を取得
    Set rng = doc.Content
    
    ' 検索とフォントサイズ変更
    With rng.Find
        .Text = searchText
        .MatchWildcards = True ' ワイルドカードを有効にする
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .Execute
        
        ' テキストが見つかった場合にフォントサイズを変更
        Do While .Found
            ' 検索された範囲を取得
            Set foundRange = rng.Duplicate
            
            ' "No:" 部分のフォントサイズを変更
            If foundRange.Text Like "No:*　店舗コード:*" Then
                Dim splitText() As String
                splitText = Split(foundRange.Text, "　店舗コード:")
                
                ' "No:" 部分のフォントサイズを9に設定
                With foundRange.Duplicate
                    .End = .Start + Len(splitText(0))
                    .Font.Size = 9
                End With
                
                ' "店舗コード:" 部分のフォントサイズを9に設定
                With foundRange.Duplicate
                    .Start = .Start + Len(splitText(0))
                    .Font.Size = 9
                End With
            End If
            
            rng.Collapse Direction:=wdCollapseEnd ' 検索範囲を次に進める
            .Execute ' 次の一致を検索
        Loop
    End With
    
    MsgBox "No: と 店舗コード: を含むテキスト全体のフォントサイズを変更しました。", vbInformation
End Sub

どんな企業でも自動化

今回エクセルデータをワードに転記処理の自動化ですが、どの会社もワードとエクセルは入っているので、AI使って（VBAを書いて）もう、自由自在に自動化ができてしまうのです。

入金処理やらデータ転機やら、見積もりから発注書作成から顧客管理まで何か新規にツールを入れなくとも、一つ一つ自動化できる可能性があるのはとても将来性が感じられます。

物理分離の組織でも

銀行系や行政、病院などネットワークと切り離して運用しているシステムなどクラウドが使えなくとも自動化ができてしまいます。

AIで書いたVBAを持ってくる必要はありますが、USBでもメールでもコードだけデータ持ってくればよいので。

企業の広報なども、企業データをAIで整理してエクセルにまとめ、それをクールでモダンなワードのレイアウトに自動転記で完了です。そのデザインもまだ最終的に人手が必要ですが、どんどんAIができるようになってますね。

業務自動化の目的

業務の自動化が進み、さらなる仕事をして売上を伸ばしていくのもあるでしょうが、自動化を進めて午前中や15時で業務を終わらせる会社が出てきてほしいと切に願っています。

そのあと自分の好きなことをしてもいいし、地域のどうしても人手が必要な仕事を手伝うのも、体動かして健康にも良いんじゃないかなぁ、と思っているのです。

そんな会社があれば喜んでお手伝いしたいと思っておりますのでご連絡待っております！