4

ドキュメントの末尾にある頭字語表に取り込んで配置する必要がある多くの頭字語を含むドキュメントがあります。

頭字語という用語にはさまざまな意味があります。初期化されたすべての単語を含むテーブルを作成したいと思います。長い意味を持つ短い 2 つ以上の大文字。つまり、CD-ROM、USB、SYNC、MMR、ASCAP などです。

これを行うマクロを作成するにはどうすればよいですか?

4

5 に答える 5

3

ありがとうティム、あなたのコードはうまくいきます!

それが他の人に役立つ場合、パターン[A-Z]{1,}([a-z]*|\&|\.*)[A-Z]{1,}はより多くの頭字語を見つけます...

（コメントを投稿する権限がないため、これを回答として追加します）

編集 (コメントを追加する方法はまだありません):\b[A-Z]{1,}([a-z*]|\&|\.|\-)[A-Z]{1,}\bより堅牢ですが、頭字語の最後の文字が大文字になっていないと失敗します。

于 2013-07-23T08:39:43.907 に答える
0

メインの Word ドキュメントでマクロを実行します。空白の別の Word 文書を開きます。これは、発見された頭字語を保存するために使用されます。

  1. 「マクロの記録」を押します。一意の名前を選択し、CTRL + ALT + A などのショートカット キーを割り当てます。
  2. 検索ダイアログを開きます (CTRL + F)。次の検索テキストを貼り付けます。 <[A-Z]{2,}>. [検索] ダイアログで、[その他] を選択し、[ワイルドカードを使用] のボックスをオンにします。[次を検索] ボタンをクリックします。
  3. ハイライトを変更しないように注意しながら、選択したテキストを右クリックします。コンテキスト メニューから [コピー] を選択します。
  4. 別の Word ドキュメントに移動します (ALT + TAB、Word ドキュメントを選択します)。コピーしたテキストを貼り付けて、Enter キーを押します。ALT + TAB で元の Word 文書に戻ります。
  5. 検索ダイアログを閉じて、右矢印を 1 回クリックします。これにより、強調表示されたテキストからカーソルが移動し、次の検索の準備が整います。
  6. マクロの記録を停止します。

これで、2 つ以上の大文字を含む単語を検索し、そのテキストを別の文書に保存するマクロが作成されました。残りの頭字語を検索するには、ドキュメントの最後に到達するまで CTRL + ALT + A を押し続けます。または、マクロを編集して while ループを追加します。

マクロは次のようになります (ループなし):

Sub GetAcronyms()
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "<[A-Z]{2,}>"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Copy
    Windows("Document1.docx").Activate
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.TypeParagraph
    Windows("TheOriginalDocument.docx").Activate
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
于 2012-06-06T17:23:43.787 に答える