宛名印刷をお受けしてますが、住所データは、エクセル・ＣＳＶ等のリストで頂く事となります。
この中で、企業団体名の欄があります。
法人名です。
株式会社／有限会社・・・・
株式会社の場合（株）、有限会社の場合は(有)の省略した表記で入稿されるケースが多いです。
宛名に書く場合、株式会社／有限会社にデーターの正規化を行ってます。

さて、（社）と省略したものがありました。

社団法人なのはわかるのですが、一般／公益　　どっち・・・・・

（社）と同じように（財）と言うのも見かけます。
何年か前に、社団法人も一般／公益と法人名が変更された経緯があります。
何年か前・・・？平成18年に施行された「一般社団法人及び一般財団法人に関する法律」

残念ながら、（社）からは、一般／公益　のどちらか判断できず、変換できないのです。
入稿されたまま宛名の出力をするしかありません。

法人名をどのように略しているのか調べてみました。

社団・財団
一般社団法人 ：（一社）
公益社団法人 ：（公社）
一般財団法人 ：（一財）
公益財団法人 ：（公財）
（一社）とか（一財）とかでの入稿はあまり経験無いですね。
この略称、普及していないように思えます。

会社
株式会社：（株）
有限会社：（有）
合名会社：（名）
合資会社：（資）
合同会社：（同）
（株）（有）に加えて、変換できるようにしたいですね。

医療
医療法人：（医）
医療法人社団：（医）
医療法人財団：（医）
社会医療法人：（医）

これじゃ（医）からの変換はできませんね。

最後に、VBSでの正規化スクリプトを紹介しますが、簡単な　Replace命令で変換が可能です。
ただし、かっこが半角／全角が入り混じりますので、この辺を考慮して、カッコを数パターン変えて変換することをお勧めします。

Function kabu(moji)

moji = Replace(moji, "㈱", "株式会社 ")
moji = Replace(moji, "（株）", "株式会社 ")
moji = Replace(moji, "(株)", "株式会社 ")
moji = Replace(moji, "（有）", "有限会社 ")
moji = Replace(moji, "(有)", "有限会社 ")
moji = Replace(moji, "㈲", "有限会社 ")
moji = Replace(moji, "　", " ")
kabu = moji

End Function