0

これは私の最初の質問です。多数のドキュメントを調べて、いくつかの書式設定の問題が正しいことを確認する必要があります。このような問題の例として、すべてのピリオド「.」が太字、斜体、下線などではないことを確認することが挙げられます。イタリック体である。

必要なフォーマットの問題のリストがあります。

各ドキュメントを調べて検索/置換機能を使用する代わりに、各ドキュメントに適用できるマクロを作成します。

VBAの経験はありません。一方、私はCシャープとC全般でのプログラミングの経験があります。

どんな助けでも大歓迎です。

ところで、私は完全なプログラムを求めているのではなく、自分自身で学び、継続できるサンプルを求めています。

4

1 に答える 1

0

いくつかのオプションがあります。

1.Word の [開発] タブで、[マクロの記録] ボタンをクリックし、ctrl + H ショートカットを使用してマクロの記録中に検索と置換を複数回実行できます。

2. 複数の小さなマクロ (以下の 2 つなど) をセットアップし、[マクロの記録] をクリックして、必要な順序で実行します。

Sub ItalicizeEct()
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  Selection.Find.Replacement.Font.Italic = True
  With Selection.Find
    .Text = "ect."
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sub RemoveBoldPeriods()
  Dim PunctAllRng As Word.Range
  Set PunctAllRng = ActiveDocument.Range
  With PunctAllRng.Find
  .Format = True
  .Text = "."
  .Font.Bold = True
  .Replacement.Text = "."
  .Replacement.Font.Bold = False
  .Execute Replace:=wdReplaceAll
End With
End Sub

3.または、必要なすべての編集プロセスを実行する大きなマクロを作成するだけです

于 2015-04-29T14:12:36.663 に答える