Function GetFullTempFileName(sPrefix As String) As String
  Dim vTempPath As String
  Dim vTempFileName As String
  Dim vLength As Long
  Dim vSuffix As Long
  Dim vTmpFileName As String
  Dim vBufferLen As Long
  
  vBufferLen =  255 
  vTempPath = Space(vBufferLen)
  vLength = GetTempPath(vBufferLen, vTempPath)
  vTempPath = Left(vTempPath, vLength)
  vTempFileName = Space(vBufferLen)
  vSuffix = GetTempFileName(vTempPath, sPrefix,  0 , _
    vTempFileName)
  vTempFileName = Left(vTempFileName, InStr(vTempFileName, vbNullChar) -  1 )
  GetFullTempFileName = vTempFileName
End Function


Sub InsertRTFFile( _
  pRTFRawString As String _
)
  ' Вставить в текст документа RTF данные
  ' сделано через временный файл для совместимости с VB 6
  Dim vTempFileName As String
  Dim vRtfDoc As Document
  vTempFileName = GetFullTempFileName("PD_")

  Open vTempFileName For Output As # 1 
  Print # 1 , pRTFRawString 'Именно print, поскольку write обрамляет кавычками
  Close # 1 
  
  Selection.InsertFile FileName:=vTempFileName, ConfirmConversions:=False

  Kill vTempFileName
End Sub

Private Declare PtrSafe Function GetTempPath _
        Lib "kernel32" _
        Alias "GetTempPathA" _
        (ByVal nBufferLength As Long, _
        ByVal lpBuffer As String _
        ) As Long