2023-11-01から1ヶ月間の記事一覧
検索構文をまとめています。 他の基本構文はこちら よく使用するコードはこちら Sub 検索基本構文_Range方式() Dim rng As Range '文書の先頭位置にrngをセット Set rng = ActiveDocument.Range(0, 0) With rng.Find .Text = "検索ワード" '検索条件に書式を…
サンプルコードでできること カーソルのあるページのオートシェイプ等の図をすべてグループ化します。 Sub アクティブページの図形を選択とグループ化() If Selection.Type = 8 Then MsgBox "図形が選択されています。図を選択しないで実行してください" Exi…
サンプルコードでできること ウインドウを画面の左側に表示します。 Sub ウインドウ左表示() Dim dWidth As Long, dHeight As Long With ActiveWindow .WindowState = wdWindowStateMaximize dWidth = .Width dHeight = .Height .WindowState = wdWindowStat…
サンプルコードでできること 本文、ヘッダー・フッター、オートシェイプ、スマートアート等のフォントをArialに設定します。 Sub AllFontArial() Dim stFont As String stFont = "Arial" Dim b As Boolean b = FontChangeMsg(stFont) If b = False Then Exit…
サンプルコードできること 文書内すべての表の罫線0.5ptを0.75ptに変更します。 Sub 罫線の太さ変更() Dim bd As Border Dim tbl As Table Dim cel As Cell Application.ScreenUpdating = False For Each tbl In ActiveDocument.Tables For Each cel In tbl.…
サンプルコードでできること 文書内の表すべての上下配置を中央に設定します。 コードの内容 For Each構文を用いて、文書内の表すべての上下配置を変更しています。 Sub 表の配置を中央揃えに設定() Dim tbl As Table For Each tbl In ActiveDocument.Tables…
サンプルコードでできること セルの上下左右の罫線の太さを表示します。 カーソルを置いた単一セルを想定していたのですが、複数セルでも動作します。 ただ下図のように、どこのセルの線幅か分かりづらいです。 コードの説明 If Selection.Information(wdWit…
コードの説明 ActiveDocument.Contentで本文領域を示すRangeオブジェクトを取得。 NameFarEastプロパティとNameプロパティで、日本語と英数字フォントを指定します。 Sub 本文フォント変更() With ActiveDocument.Content.Font .NameFarEast = "MS ゴシッ…
サンプルコードでできること 選択したテキストをMSゴシック、Arialに変更します。 コードの説明 .NameFarEast = "MS ゴシック" .Name = "Arial" NameFarEastプロパティで日本語フォント、Nameで英数字フォントを指定します。 Sub 選択フォントの変更() Wit…
サンプルコードでできること ヘッダー・フッターのフォントをMSゴシック+Arialに変更します。 コードの説明 Dim hdr As HeaderFooter, ftr As HeaderFooter ヘッダーとフッターの変数は、As 以下が同じです。 そのため「Dim hdr_ftr As HeaderFooter」のよう…
サンプルコードでできること 編集記号すべて表示のオン・オフを切り替えます。 Sub 編集記号を全て表示の切り替え() With ActiveWindow.View .ShowAll = Not .ShowAll End With End Sub
サンプルコードでできること 隠し文字表示のオン・オフを切り替えます。 Sub 隠し文字表示切り替え() With ActiveWindow.View .ShowHiddenText = Not .ShowHiddenText End With End Sub サンプルコードでできること ブックマーク表示のオン・オフを切り替え…
サンプルコードでできること 「標準」「高レベル」等、禁則文字の設定を表示します。 コードの説明 Select Case構文を用いて、禁則文字の設定を表示します。 Sub 禁則処理の設定表示() Select Case ActiveDocument.FarEastLineBreakLevel Case 0 MsgBox "標…
サンプルコードでできること mm、pointなど、使用する単位を表示します。 コードの説明 Select Case構文を用いて、使用する単位を判定します。 Sub 使用する単位の表示() Select Case Options.MeasurementUnit Case 0 MsgBox "インチ(in)" Case 1 MsgBox "…
よく使用する構文をまとめておきます。 よく使用するコードはこちら 検索の基本構文はこちら Sub 段落処理の基本構文() '文書内の段落を1つずつ処理します。 Dim para As Paragraph For Each para In ActiveDocument.Paragraphs '処理内容を書く Next End Su…
サンプルコードでできること 文書内の全てのオートシェイプのフォントを変更します。 コードの説明 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列目に蛍光マーカーの文字列を表示します。 コードの説明 本文、オートシェイプ、脚…