サンプルコードでできること 使用しているスタイルの一覧を取得して、メッセージボックスに表示します。 Sub getStyleList_Activedocument() Dim strList As String strList = getStyleList(ActiveDocument) MsgBox strList End Sub Private Function getSty…

サンプルコードでできること 選択した段落の書式を、前の段落に合わせます。Ctrl+Shift+Cキーで段落書式コピーできますが、前の段落に移動してコピー、戻って貼り付けが意外と面倒です。 マクロをボタン化すると、ショートカットより楽です。 Sub CopyPrePaa…

全角チェックするとき、文字カウント機能を使用します。 全角の文字数が分かって便利ですが、全角の場所は教えてくれません。 そこで全角文字をハイライトするマクロを作り始めたのですが、何度修正しても完成しませんでした。 検索（Range.find…）だけでは…

サンプルコードでできること 選択した図のアンカーをロック（ロック解除）します。 Sub LockAnchorAllShpe() ’アンカーをロックします。 Dim sp As Shape For Each sp In Selection.ShapeRange Selection.ShapeRange.LockAnchor = True Next End Sub Sub Loc…

サンプルコードでできること フォルダ内のWordファイルのドキュメントプロパティの作成者名をセットします。 Sub setDocumentProperty_Author_Folder() Dim Path As String, strName As String Dim fs As Scripting.FileSystemObject Dim baseFolder As Scri…

サンプルコードでできること フォルダ内のWordファイルから、ドキュメントプロパティのタイトル・サブタイトル・作成者を新規文書に書き出します。 Sub getDocumentPropertyList_AuthorTitleSubject_Folder() Dim Path As String, pgInfo As String Dim fs A…

サンプルコードでできること ドキュメントプロパティの全ての項目を新規文書に書き出します。 Sub ドキュメントプロパティ取得() Dim docTo As Document, docProp As DocumentProperty Set docTo = Documents.Add '書き出し用のファイル On Error Resume Nex…

サンプルコードでできること コメントの特定の作成者の名前を変更します。 Sub コメントユーザー名変更() 'コメントのユーザー名を変更します。 Dim cmt As Comment, strInitial As String Dim MaeName As String, AtoName As String MaeName = "たなか" '変…

サンプルコードでできること 表内の両端揃えのテキストを左揃えに変更します。 Sub TblTextLeft() Dim cel As Cell, tbl As Table Dim para As Paragraph For Each tbl In ActiveDocument.Tables For Each cel In tbl.Range.Cells For Each para In cel.Rang…