宛先を取得したい

質問

いつもお世話になっております。
またまた教えてください。

郵便物を各担当者が発送するときに、システムよりダウンロードしたWordの送付状があります。
宛先が4行目にあったり、5行目にあったり、6行目にあったりします。
担当者に5行目に会社名が来るように、削除したり、挿入してマクロを使っていもらっていたのですが、それも面倒みたいですので、マクロで自動的に取得する方法はないでしょうか？
株式会社と入っていたら、その行を取得するようなコードになるのでしょうか？
よろしくお願いいたします。

Sub 〒保存Word()

Dim folder As String
Dim s As String, n As String
Dim ne As Range

' 現在開いているドキュメント の ５行め のテキスト を 取得(会社名）
s = ActiveDocument.Paragraphs(5).Range.Text
' テキスト から 改行 を トル
s = Replace$(s, vbCr, "")

folder = "\\osaka\Users\分室\★☆受渡用☆★\郵便"

With CreateObject("Scripting.FileSystemObject")
If .FolderExists(folder) Then
ActiveDocument.SaveAs Filename:=folder & "\" & "■" & s & "■" & "名前" & "■" & Month(Date) & "月" & Day(Date) & "日" & "■" & ".doc"
Else
MsgBox "存在しません"
End If
End With

Shell "C:\Windows\Explorer.exe " & folder, vbNormalFocus

End Sub

回答No.1

BASKETMM

問題の意味が分かりません。
０．何かの発送する時の宛先を印刷する。

１．多くの宛先を既に取得しているが、書式はばらばらである。

２．宛先を決まった書式に直して、印刷したい。

３．その時の作業をマクロで行う。

４．マクロは試作したので、改良してほしい。
==============
例題を書いて下さい。出来れば複数。そうすれば、最終的に求める書式／作業がハッキリするでしょう。
答えが出るかも知れません。私に出来るかどうかは分かりません。

補足

BASKETMMさん、ご指摘いただきありがとうございます。

再度説明させていただくと
各担当者が会社のシステムから、見積書、契約書、請求書等の送付案内（ＷＯＲＤ）をダウンロードします。
そのまま印刷して、封筒に入れて完了なのですが、マクロボタンを押してもらうことで
郵便フォルダーに、「宛先、担当者名、日付」のタイトルを付けたファイルを保存してもらいます。

この、名前を付けて保存のマクロを作ったのですが、宛先の記入してある行がいろいろあるので、どのようなコードにすればよいのか教えてください。

' 現在開いているドキュメント の ５行め のテキスト を 取得(会社名）
s = ActiveDocument.Paragraphs(5).Range.Text
↑
ここだと思います。

送付案内の様式ですが様式１
1行目＝日付
2行目＝郵便番号
3行目＝住所
4行目＝宛名
5行目＝部署と担当者
6行目＝空白
様式２
1行目＝日付
2行目＝郵便番号
3行目＝住所
4行目＝住所のつづき
5行目＝宛名
6行目＝部署
様式３
1行目＝日付
2行目＝郵便番号
3行目＝住所
4行目＝住所のつづき
5行目＝空白
6行目＝宛先
7行目＝部署
様式４
1行目＝日付
2行目＝郵便番号
3行目＝住所
4行目＝空白
5行目＝宛名
6行目＝部署
様式５
1行目＝日付
2行目＝郵便番号
3行目＝住所
4行目＝空白
5行目＝空白
6行目＝個人名

たぶんこの、5種類ぐらいだとおもいます。
今のマクロに追加で、もし5行目が空白の場合、6行目を参照するという
コードを追加するとか、株式会社や学校法人などを検索するとか
良いお知恵をお貸しください。よろしくお願いします。