chsugiyama

WORDのユーザープロパティを VBAで設定する Create WORD "User Properties" from EXCEL VBA. 概要 WORDのユーザープロパティは、登録をするためには、操作がやりずらいが、フィールドコードで、DocProperty から選択するだけなので、プロパティが設定されていれば、WORDをテンプレートとして、Excelの表からユーザープロパティを設定して、リストを作成することが容易である。 WORD フィールド文　挿入の方法 フィールドの設定は、クイックパーツ → フィールド → フィールドの挿入 下記のフィールド画面が表示される。 フィールドの選択　Docproperty　を選択し、フィールド プロパティの中から選択する。 この操作で、任意のユーザープロパティが、WORDの文書に埋め込まれる。 WORD VBA 参照設定の設定 参照設定　Microsoft Visual Basic for Applications のツール で下記のように設定する。 ツール　参照設定 参照設定の一覧が表示される。 Microsoft Excel 16.0 Object Library をチェック 使用している環境により異なる。 WORD VBA ' 'ユーザープロパティ設定用 'エクセルファイル（ﾌﾟﾛﾊﾟﾃｨ一覧.xlsx）を開いておいてマクロを実行する。 'プロパティ名、内容を任意で設定可能　Max100件 'V2：エクセルファイル　ワイルドカード対応　20170509 ' Sub Wdユーザープロパティ設定V2()     Dim CDP(100, 2)     Dim CDPN As Long     Dim n As Long     Dim i As Long     ''call macro110507a  '○イミディエイトクリア     ' ■ エクセルの処理　ﾌﾟﾛﾊﾟﾃｨ一覧.xlsx　エクセルファイルをアクティブ     Dim Bk As String                ...

WORD2003では、高度な検索で、「すべて検索」ボタンがあったが、WORD2016ではみあたらない。 図番号（フィールドコード）だけを、選択することができなかったので調べてみたところ、下記のようにするとできることがわかった。 WORD2016　 ナビゲーション ON 　 SEQ 検索→強調表示のみ ALT ＋ (F9) ：フィールドコード表示　 SEQ のあたりをクリック 編集グループ→選択→類似した書式の文字列を選択 この状態で、すべての文字列が選択された。 (F9)フィールドコード更新

WORDの文書をVBAで一括設定 変更する内容 左余白　インデント　0 自動調整　ウインドウの幅に合わせる 「表のオプション」　セルの配置　左右　1.9mm VBA code Sub Table書式()     Dim mytable As Table     For Each mytable In ActiveDocument.Tables         mytable.Rows.LeftIndent = MillimetersToPoints(0)         mytable.PreferredWidthType = wdPreferredWidthPercent         mytable.PreferredWidth = 100         mytable.TopPadding = MillimetersToPoints(0)         mytable.BottomPadding = MillimetersToPoints(0)         mytable.LeftPadding = MillimetersToPoints(1.9)         mytable.RightPadding = MillimetersToPoints(1.9)         mytable.Spacing = 0         mytable.AllowPageBreaks = True         mytable.AllowAutoFit = True     Next mytable End Sub

AUTOCADの図をWORDにそのまま貼り付けると、線が細くなったりするため、イラストレータで中継します。 これを、VISIOに貼付て、コメント等と追加して、WORDに、メタファイルとして貼り付けます。 こうすることにより、ベクタ図のPDFが出来ます。 手順 １．AUTOCAD Mechanical 2006 の場合 　　 　　レイアウト画面で、ビューポートで、3Dのビューを表示させる。 ２．ビューの領域を右クリックして「隠線印刷」を選択しておく。 ３．印刷の設定　PostScript Level1 に印刷。 ※ Express ツールの「Flatten Obj」は、細かい図には不向き。 　 ※ PSファイルは、EPSにも設定ができる。 ４．イラストレータでPSファイルを開く。 　　この状態で、隠線の状態の図になっている。 　　ここから、VISIOにCOPYして張り付ける。 　　この状態で、WORDに張り付けた場合や、メタファイルにしたときには、WORDの図が荒くなってしまった。 ５．VISIOで、文字などを編集後、図をCOPY または、メタファイルで保存。 ６．WORDに、VISIOからの図を、形式を指定して貼り付けの　メタファイル形式で張り付けるか、 　　先ほど保存した、メタファイルを図挿入する。 これで、ベクター図形のPDFが可能になる。 ※　AUTOCADや、INVENTOR から、DXF形式で保存する方法もあるが、これは、VISIOの読込が非常に遅い。 ※　AUTOCADから、SVG形式　CubePDFの旧バージョン で、出力する方法は、 　　SVGファイルがおかしい場合がある、テキストデータを修正することで読み込むことは可能になる。 　　処理的には、修正の手間がかかる。 ※　MDT2006からの印刷の場合には、AUTOCAD Mechanical 2006よりも、Rが細かくなっているが、 　　ビューの設定が、異なるため慣れるまでは手間がかかる。 ※　入手したSTEPファイルのパーツの構成などを、AUTOCADで、確認するには、MDTのほうが有利 ...

WORDで、フィールドコードを使用して文章を作成していますが 表の前に、改行があったり、なかったり、 改行がある場合には、ページも乱れてしまって。 一瞬何が、おこったのか・・　と、思うことがありました。 改行があっても、印刷では、ちゃんと、ページに収まります。 下の図のように、表の前に、改行があります。 これを、無理やり削除してしまうと、フィールドコードも、消えてしまいます。 そこで、先日、マクロのボタンを「隠し文字」に設定して「編集記号」をオン、オフで、見えたり、見えなかったりするのを思い出しました。 思ったとおり、「編集記号」オフすると、表の前の改行もなくなりました。 これが、分かる前は、行を削除したりして、ページに入るようにしていたりしました。 次からは、忘れないようにしたいと思います。 ちなみに、この表は、エクセルの表を参照しています。 機種、コード等を選択して、表示させています。