セクションへの段落を追加する
こんにちは、私は私が思ったことを私が簡単で簡単なマクロになるだろうと書いていますが、それは段落.
(1)最初のセクションの最後に新しい段落を追加する(2)その新しい段落にテキストを追加する(3)段落にカスタム見出しスタイルを適用し、(4)ステップを繰り返すステップその場合、ボディテキストスタイルを使用していますが.これが私が来たものです
サブaddgrafs()
文字列、txt2としてtxtx、string
txt1= "見出しテキスト"
TXT2=「ボディテキスト」
H1= ActiveDocument.Stylesセット( "カスタム見出しスタイル")
BT= ActiveDocument.Stylesセット( "カスタムボディテキストスタイル")
SET RNG= ActiveDocument.Content.Sections.First.Range
rng.end= rng.end-1
.paragraphs.add
.paragraphs.last.range.text= txt1
.paragraphs.last.style= h1
SET RNG= ActiveDocument.Content.Sections.First.Range
rng.end= rng.end-1
.paragraphs.add
.paragraphs.last.range.text= txt2
.paragraphs.last.style= bt
私はこのマクロの多くのバリエーションを試みました、すべては無駄になりません.最も高く評価されています!
返信リスト(回答:2)
20年以上のVBAコーディングでは、私は.paragraphs.addを使用したことがない-それはちょうど困難な方法で物事をやっているようです.組み込み定数VBCRは段落マークを表し、文字列に追加すると、新しい段落が作成されます.範囲のinsertafterを使用している場合
コマンド、挿入されました
テキストは範囲を拡張するので、範囲を再定義し調整する必要もありません.もう一つのこと:文字列だけでなく、すべての変数を宣言する必要があります.
このversionはあなたが望むものをするでしょう:
サブaddgrafs()
文字列、txt2としてtxtx、string
スタイルとしての薄暗いh1、スタイルとしてのBT
DIM RNG範囲
txt1= "見出しテキスト"
TXT2=「ボディテキスト」
H1= ActiveDocument.Stylesセット( "カスタム見出しスタイル")
BT= ActiveDocument.Stylesセット( "カスタムボディテキストスタイル")
RNG= ActiveDocument.Sections(1).Range
rng.end= rng.end-1
insertafter txt1&vbcr
.paragraphs.last.style= h1
insertafter txt2&vbcr
.paragraphs.last.style= bt
終了SUB