Sub test()    
Dim wdApp, wdDoc As Object    
Dim myVar As String
Set wdApp = CreateObject("Word.Application") 
wdApp.Visible = True   
Set wdDoc = wdApp.Documents.Open("D:\Users\Admin\Desktop\шаблон\тест.docx") '   

myVar = "Груша"

With wdDoc.Selection.Find        
.Text = "Яблоко"        
.Replacement.Text = myVar
.Wrap = wdFindContinue        
.Execute Replace:=wdReplaceAll    
End With  
End Sub

Sub test()
category = IE.document.queryselector("a").innertext
If Not IsObject("category") Then Next
End Sub

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds as Long)
Sub test()
Dim category As String
Dim IE As Object

Set IE = Create("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "rmsp.nalog.ru"
Sleep 5000
category = IE.document.queryselector('#query').inerHTML ; Здесь должно присвоится переменной то что отдаст селектор 
MsgBox category
End sub