サンプルコードでできること 文書内の全てのオートシェイプのフォントを変更します。 コードの説明 jFont = "MS ゴシック" eFont = "Arial" 変数に日本語フォントと英数字フォントを格納します。 ActiveWindow.View.Type = wdPrintView 図を表示するため印…
サンプルコードでできること 表示ページの図のフォントを変更します コードの説明 EfontName = "Arial" JfontName = "MS ゴシック" 英数字フォントと日本語フォントを変数に格納します。 For Each inShp In ActiveDocument.Bookmarks("\Page").Range.Inlin…
サンプルコードでできること 隠し文字を解除します。解除対象 ・本文 ・オートシェイプ ・脚注 ・ヘッダー・フッター ・ヘッダー・フッター内のオートシェイプ ・描画キャンパス コードの説明 コードが長くなるため、解除対象ごとにプロシージャを分けていま…
サンプルコードでできること ハイパーリンクのリストを別文書に作成します。リストの内容 1列目 ハイパーリンクの設定されているページ 2列目 表示文字列 3列目 リンク先 プログラムの説明 For Each hpLink In ActiveDocument.Hyperlinks With hpLink If .Ad…
サンプルコードでできること 選択した範囲内のタブを全角スペースに置換します。 コードの説明 mae = vbTab '検索キーワード ato = " " '置換キーワード 必要に応じてキーワードを変更します。 .MatchAllWordForms = False .MatchSoundsLike = False .MatchF…
簡単なコードが意外と出て来ないので、よく使用するコードをまとめておきます。 段落、図、表、ヘッダーフッター構文はこちら 検索の基本構文はこちら Sub 文書の先頭に移動() ActiveDocument.Range(0, 0).Select End Sub Sub 文書の最後に移動() ActiveDocu…
サンプルコードでできること コメントの一覧を作成します。 1列目 コメントの挿入ページ 2列目 作成者 3列目 コメントの付けられた文字列 4列目 コメント Sub GetCommentList() 'コメントの一覧(ページ、作成者、コメントの付けられた文字列、コメント)を…
サンプルコードでできること 本文、ヘッダー・フッター、脚注、オートシェイプの蛍光マーカーの文字列を抽出。別文書にリストを作成します。 リストの1列目にページ番号、2列目に蛍光マーカーの文字列を表示します。 コードの説明 本文、オートシェイプ、脚…
サンプルコードでできること 蛍光マーカーのテキストを抽出して、別文書に蛍光マーカーのページとテキストの一覧を作成します。 コードの説明 Range.Findを用いて蛍光マーカーを検索。Do While~Loopで見つかったマーカーにテキストが含まれている限り、検索…
サンプルコードでできること スマートアートの文字列を置換します。 コードの説明 TextRange2オブジェクトのReplaceメソッドを用いて置換します。 Set tempRng = rng.Replace(mae, ato, MatchCase:=msoTrue) 「MatchCase:=msoTrue」で大文字と区別を追加して…
サンプルコードでできること 本文・オートシェイプ(グループ化にも対応)・ヘッダー・フッター・脚注の文字列を一括置換します。 コードの説明 本文、ヘッダーフッター・脚注、オートシェイプの順にFindオブジェクトを用いて置換を行います。検索の基本構文…