2017-09-20 5 views
1

私はに新しく、VBAに新しく、仕事のために少しMakroを書く必要があります。 このMakroは、Word文書の中の特別なシンボルセットを検索するために使用されます。Word用VBA Makro内のシンボルを検索するには

これまでのところ、文字列を検索してマークする方法を見つけました。 ただし、通常の文字でのみ機能します。質問は検索にシンボルを含める方法です。

私のコード今のところです:文書の中に発見するために必要な

With Selection.Find 
    .ClearFormatting 
    .Text = "String" 
    .Execute Forward:=True 
End With 

記号文字列は次のとおりです。[•]

は、ご提案のためのと同じくらい簡単

答えて

0

何かをありがとうございましたこれは私の作品:

Public Sub Testme() 

    With Selection.Find 
     .ClearFormatting 
     .Text = "•" 
     .Execute Forward:=True 
    End With 

End Sub 

を、これは箇条書き形式ではなく、単純なドットである場合

Sub FindBullet() 
    Dim rngTarget As Word.Range 
    Dim oPara As Word.Paragraph 

    Set rngTarget = Selection.Range 
    With rngTarget 
     Call .Collapse(wdCollapseEnd) 
     .End = ActiveDocument.Range.End 

     For Each oPara In .Paragraphs 
      If oPara.Range.ListFormat.ListType = _ 
       WdListType.wdListBullet Then 
       oPara.Range.Select 
       Exit For 
      End If 
     Next 
    End With 
End Sub 

Source here:テキスト、あなたは箇条書きの段落を選択するには、このようなものを使用することができます。

+1

これは些細なことでした。そして何とか正確に私が前に試したこと。ちょうど私はPublic Subを使わず、その中に "•"を入れることもできませんでした。記号を変更することになりました。ありがとうございます:) – NorxEz

+0

@ F.Henzler - あなたは大歓迎です。 – Vityata

関連する問題