サンプルコードでできること 蛍光マーカーのテキストを抽出して、別文書に蛍光マーカーのページとテキストの一覧を作成します。 コードの説明 Range.Findを用いて蛍光マーカーを検索。Do While～Loopで見つかったマーカーにテキストが含まれている限り、検索…

サンプルコードでできること スマートアートの文字列を置換します。 コードの説明 TextRange2オブジェクトのReplaceメソッドを用いて置換します。 Set tempRng = rng.Replace(mae, ato, MatchCase:=msoTrue) 「MatchCase:=msoTrue」で大文字と区別を追加して…

サンプルコードでできること 本文・オートシェイプ（グループ化にも対応）・ヘッダー・フッター・脚注の文字列を一括置換します。 コードの説明 本文、ヘッダーフッター・脚注、オートシェイプの順にFindオブジェクトを用いて置換を行います。検索の基本構文…