ttp://www.aa.alpha-net.ne.jp/pcfriend/Word/string.htm#文字列を操作する
上記ページの基本的なWordマクロは操作できる前提での質問です。
タイトルどおりなのですが、Word上で書式(O)⇒箇条書きと段落記号(N)と進み選択した段落記号を選ぶと、指定した段落記号が用いられますよね。これと同じ操作を、Wordのマクロから行いたいのです。
具体的には、イントラのWebページから取得したHTMLソースを加工して、Wordに出力(ここまではできてます)、その上で、上記の自動段落化をして欲しい、との要望なのです。
どなたか、自動段落化をマクロ化するヒント(プロパティやメソッド)だけでもご存知の方、よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
マクロの記録を取ればすぐ判ることだと思うのですが...。
実際に箇条書きと段落番号を記録してみると、下記のようになりました。(by Excel-2000)
(ここに箇条書きする部分を選択するマクロを記述)
'ダイアログの6番目の箇条書き書式を編集
With ListGalleries(wdBulletGallery).ListTemplates(6).ListLevels(1)
.NumberFormat = ChrW(61662)
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleBullet
.NumberPosition = MillimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = MillimetersToPoints(7.4)
.TabPosition = MillimetersToPoints(7.4)
.ResetOnHigher = 0
.StartAt = 1
.LinkedStyle = ""
End With
ListGalleries(wdBulletGallery).ListTemplates(6).Name = ""
' 選択部分に編集した6番目の箇条書き書式を適用。
Selection.Range.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(6), _
ContinuePreviousList:=False, _
ApplyTo:=wdListApplyToWholeList, _
DefaultListBehavior:=wdWord9ListBehavior
返事が遅れまして申し訳ありません。
さて、マクロの記録を取ればすぐ判ること、とはまさにそのとおりでした。
帰り際に書店にてWordのマクロ本を探していたら、「マクロの記録を上手に使う」ページがあって、「あっ・・・」ってところでした。(^^;
ただ、記録は取ったものの、各プロパティの意味がいまいちつかめません。もしお分かりになりましたら補足いただけたら幸いです。
また、既存の行を別の行で置き換える(具体的には、xxxx年xx月xx日と記入されている行を、yyyy年yy月yy日と置き換えたい)ことができず、いまだ苦労しています。
もしお分かりになりましたら補足いただけたら幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) evcel VBAについて 2 2022/08/02 21:37
- Word(ワード) 連番機能 3 2023/06/25 10:48
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Word(ワード) Word 2016のマクロを Word 2021のWordでキー動作させたい 3 2023/04/12 16:14
- Excel(エクセル) 現在のセルの文字列を右隣のセルの名前にするマクロをつくりたい 4 2023/01/12 09:01
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Word(ワード) ワードの段落について 下のように文章に番号をつけて箇条書きにしたいです。新しい番号書式の定義を触って 1 2023/04/16 16:32
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Word(ワード) Word差し込み印刷 QRコードの画像が同じ仕様になる 1 2022/10/28 16:41
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
別ブックからユーザーフォーム...
-
ファイル名を今日の日付、時刻...
-
エクセルシートをまとめて印刷...
-
エクセル2007 テキストボ...
-
VBA[Private Sub]のコードをシ...
-
【ExcelVBA】クエリの更新とピ...
-
エクセル2010 Shapeをクリップ...
-
エクセルVBAで、画像の倍率を知...
-
ユーザフォームをどの画面から...
-
VBAでシートの保護をかける際に...
-
ピボットグラフの書式の固定に...
-
最初の1回のみにボタンクリッ...
-
エクセル vba クリック~離し...
-
Excel マクロでグラフの切取り...
-
エクセルのストップウォッチ
-
エクセルで日付のマクロをツー...
-
Powerpointでランダムな数字の...
-
VBAを使ってエクセルシート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
-
cellsで特定の離れた範囲を選択...
-
Powerpointでランダムな数字の...
-
VBAに詳しい方教えてください。
-
VBA[Private Sub]のコードをシ...
-
VBAを使ってエクセルシート...
-
【ExcelVBA】クエリの更新とピ...
-
別ブックからユーザーフォーム...
-
ピボットグラフの書式の固定に...
-
Pictures.Insertメソッド⇒Shape...
-
エクセルシートをまとめて印刷...
-
どのドキュメントは暗号化され...
-
最初の1回のみにボタンクリッ...
-
エクセルワークシート上に印刷...
-
エクセル2007 テキストボ...
-
エクセルのマクロでSelection.S...
-
エクセルVBAで、画像の倍率を知...
-
VBAで棒グラフの色を変えたい
おすすめ情報