私はvbaを初めて使用しています。質問があります。私はアクティブな文書に埋め込まれた文書を開いて保存するためにマクロを書きました。私が書いたコードは以下の通りです： Sub Extract()
Dim num As Integer
Dim AD As Document
Set AD = ActiveDocument
Dim numObjects As I
画像が示すように、私は赤のこの段落を見つけたいが、緑色の印が付いた段落は見つからない。 次のコードを試しました。しかし、実行するための応答は、誰かが私にこのコードを改善する方法を教えてくれます。もし私が低レベルの間違いをしたら、希望は私を修正することができます、ありがとう。 Sub qw()
Dim p As Paragraph, d As Document
For Each p In Act
「定理証明」で始まる段落を赤でマークしたいと思います。私のコードは以下の通りです ： Sub theorem()
Dim p As Paragraph, d As Document
For Each p In ActiveDocument
If p.Range.Words(1) = "Proof " And p.range.words(2) = "of " and
私は文書内のページ番号が付録セクションにある場合にのみ削除したいと思います。以下のコードをIF文で修正して、セクションが付録スタイルかどうかを確認して実行する方法はありますか？ Sub DeletePageNumbers()
Dim objSect As Section
Dim objHF As HeaderFooter
Dim objPNum As PageNumber
For Ea