Excel VBAについて質問します。

VBAを作成してみました。
ただ、起動方式や変換内容の設定方法とかわからないので、勝手に考えています。
対象域は現在表示（アクティブ）のワークシート全域とし、
変換対象文字列と変換先文字列の設定は、ソース内の頭の方で設定しています。
仮に例のある「雨」と「天気」について定義しています。
これを適宜設定変更すれば良いです。
（おまけで逆変換も可能としてみました。つまり元に戻せる）

※以下をVBエディターの標準モジュールに貼り付けして試してみてください。

Option Explicit

Sub my文字列をタグ形式へ変換()
    ' 文字列変換
    ' 変換方向指定可能
    ' 変換文字列は配列に準備
    '
'１．変換対象とするセル範囲を指定する
Dim trgRange As Range
    Set trgRange = ActiveSheet.Cells     ' 表示中のワークシートの全域とする
    
'２．変換文字列を準備する
Dim tbTrgStr(10)
Dim tbChgStr(10)
Dim wkTbStrSu
Dim wkI
    wkI = 0
    
    '=== 変換テーブル内容の設定 ============== 
    wkI = wkI + 1: tbTrgStr(wkI) = "天気": tbChgStr(wkI) = "<font color=""red"">天気</font>"
    wkI = wkI + 1: tbTrgStr(wkI) = "雨": tbChgStr(wkI) = "<b>雨</b>"
    ' ～（このような形で、必要なだけ定義する）
    '   ※但し、配列数１０をオーバーするようなら、機能見直し要！
    '      配列数を拡張（ReDimを活用すれば尚よし）
    '=========================================
    
    wkTbStrSu = wkI   ' 配列の有効数をセット
    
'３．実行可否を確認問い合わせする
Dim wkRes
    wkRes = MsgBox("特定文字のタグ修飾変換処理を行います。" & vbCrLf _
            & "対象範囲　" & trgRange.Address & vbCrLf _
            & "変換文字列セット数：" & wkTbStrSu & vbCrLf _
            & "よろしいですか？" & vbCrLf, vbOKCancel)
    If wkRes <> vbOK Then
        MsgBox "処理中止！"
        End
    End If
    
'４．変換方向を確認問い合わせする
Dim wkChgDir
    wkRes = MsgBox("変換の方向の確認。" & vbCrLf _
            & "通常方向（タグ形式への変換）で良いですか？　" & vbCrLf _
            & "（逆変換なら「いいえ」で応答）" & vbCrLf _
            , vbYesNoCancel)
    If wkRes = vbYes Then
        wkChgDir = "順方向"
    ElseIf wkRes = vbNo Then
        wkChgDir = "逆方向"
    Else
        MsgBox "処理中止！"
        End
    End If
    
    
'５．変換処理を行う
    For wkI = 1 To wkTbStrSu
        If wkChgDir = "順方向" Then
            trgRange.Replace What:=tbTrgStr(wkI), Replacement:=tbChgStr(wkI)
        Else
            trgRange.Replace What:=tbChgStr(wkI), Replacement:=tbTrgStr(wkI)
        End If
    Next wkI
    
'６．終了
    MsgBox "終了しました！"
    
End Sub

コードが汚いですがとりあえず動きます、、。

変換したいセルを選択して、HTML_Changeを動かしてください。

Dim Red As String
Dim Green As String
Dim Blue As String
Dim cRange As Range
Dim moji As String
Dim moji2 As String

Sub HTML_Change()
    For Each cRange In Selection
    moji = ""
    y = 1
        For i = 1 To Len(cRange)
            If cRange.Characters(Start:=i, Length:=1).Font.Color <> RGB(0, 0, 0) Then
                moji2 = BoldCHK(y, i - 1)
                moji = moji & moji2
                iLen = 1
                Do Until cRange.Characters(Start:=i, Length:=1).Font.Color <> cRange.Characters(Start:=i + iLen, Length:=1).Font.Color
                    iLen = iLen + 1
                Loop
                Call GetRGBValue(cRange.Characters(Start:=i, Length:=1).Font.Color, Red, Green, Blue)
                moji = moji & "<font color=""#" & Red & Green & Blue & """>"
                moji2 = BoldCHK(i, i + iLen - 1)
                moji = moji & moji2
                moji = moji & "</font>"
                i = i + iLen - 1
                y = i + 1
            End If
        Next
        If i <> y Then
            moji2 = BoldCHK(y, i - 1)
            moji = moji & moji2
        End If
    cRange.Value = moji
    Next cRange
End Sub

Function BoldCHK(st, en) As String
    BoldCHK = ""
    chky = st
    For chk = st To en
        If cRange.Characters(Start:=chk, Length:=1).Font.Bold = True Then
            BoldCHK = BoldCHK & cRange.Characters(Start:=chky, Length:=chk - chky).Text
            iLen = 1
            Do Until cRange.Characters(Start:=chk, Length:=1).Font.Bold <> cRange.Characters(Start:=chk + iLen, Length:=1).Font.Bold
                If st + iLen - 1 = en Then
                    Exit Do
                End If
                iLen = iLen + 1
            Loop
            BoldCHK = BoldCHK & "<B>" & cRange.Characters(Start:=chk, Length:=iLen).Text & "</B>"
            chk = chk + iLen - 1
            chky = chk + 1
        End If
    Next
    If chk <> chky Then
        BoldCHK = BoldCHK & cRange.Characters(Start:=chky, Length:=chk - chky).Text
        
    End If
End Function

Sub GetRGBValue(lColorValue, Red, Green, Blue)
    Red = Format(Hex(lColorValue Mod 256), "00")
    Green = Format(Hex(Int(lColorValue / 256) Mod 256), "00")
    Blue = Format(Hex(Int(lColorValue / 256 / 256)), "00")
End Sub

ブログにアップするのにHTMLでコーディングする？

エクセルの保存には、Webページ、単一ファイル　Webページ　というのがある。
これで保存して、FTPでアップロードすれば、日記サイトのページはできる。
ブログには、日記のページへのリンクか、自動的に飛ばすスクリプトを書いておけばいいんじゃないかと。