Word(ワード)総合相談所 Part21at BSOFTWord(ワード)総合相談所 Part21 - 暇つぶし2ch362:名無しさん@そうだ選挙にいこう 12/05/22 22:57:59.60 >>360 これでどうかな With ActiveDocument.Range(0, 0).Find .Text = "品番*号" .MatchWildcards = True .Replacement.Font.Name = "MSゴシック" .Execute Replace:=wdReplaceAll End With 次ページ続きを表示1を表示最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch