Your message gives no indication of what is being forwarded or what the various variables refer to, however looking at what you have posted, I don't see any reason to forward the message at all, as your code overwrites the message body of the message you are forwarding and you are changing the subject. If that is what is intended simply create a new message:
Dim myMail As MailItem
Set myMail = CreateItem(olMailItem)
With myMail
.Subject = "Resposta da " & NumeroTQF & " referente ao projeto " & NumeroPE & "."
.Body = "Atencao, existem " & TQFRest & "TQFs pedentes para o projeto " & NumeroPE
.To = EmailElab
.CC = EmailCT & ";" & EmailDocC
.Display 'This line is only for testing
'.Send
End With
If you want to forward a message you need to refer to that message you are forwarding and add the response text to the start of the forwarded message e.g. as follows where olMsg is the message you are forwarding and myMail is the forwarded version of that message. oRng is the body of the message and here .Display is required even when you restore .Send.
As I have no idea what is in the variables I can only assume they are appropriate to their uses.
Dim olMsg As MailItem
Dim myMail As MailItem
Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object
Set olMsg = ActiveExplorer.Selection.Item(1)
Set myMail = olMsg.Forward
With myMail
.Subject = "Resposta da " & NumeroTQF & " referente ao projeto " & NumeroPE & "."
.To = olMsg.SenderEmailAddress & ";" & EmailElab
.CC = EmailCT & ";" & EmailDocC
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range
.Display 'This line is required!
oRng.collapse 1
oRng.Text = "Atencao, existem " & TQFRest & "TQFs pedentes para o projeto " & NumeroPE
'.Send
End With