1 Тема от Mercury

  • Mercury
  • сержант
  • Неактивен
  • Зарегистрирован: 16.10.2012
  • Сообщений: 10

Тема: Примечания в заголовок

Здравствуйте, уважаемые ценители word'а

у меня есть макрос,


Sub CopyCommentsToNewDoc()
'
' Копирование слов с примечаниями в новый документ
'
'
  Dim oComm As Comment
  Dim oNewDoc As Document
  Dim oOldDoc As Document
 
  Set oOldDoc = ActiveDocument
 
  If ActiveDocument.Comments.Count > 0 Then Set oNewDoc = Documents.Add Else Exit Sub
 
  For Each oComm In oOldDoc.Comments
    With oNewDoc
    .Range.InsertParagraphAfter
    .Range.InsertAfter ChrW(160) & oComm.Range.Text & ")"
    .Range.InsertParagraphAfter
    .Range.InsertAfter oComm.Scope.Text
    .Comments.Add .Range(.Paragraphs.Last.Range.Start, .Paragraphs.Last.Range.End - 1), oComm.Range.Text
    .Comments.Item(.Comments.Count).Author = oComm.Author
    .Comments.Item(.Comments.Count).Initial = oComm.Initial
    .Comments.Item(.Comments.Count).Scope.LanguageID = wdFrench
 
   End With
  Next
 
End Sub

несколько видоизменённый у viter.alex, так что у примечание вынесено в заголовок.

Расскажите, как автоматически выносить созданный заголовок в  структуру. Так понимаю, нужно присвоить заголовку отдельно стиль, например "заголовок 1", но как это сделать для каждого создаваемого заголовка?

2 Ответ от Mercury

  • Mercury
  • сержант
  • Неактивен
  • Зарегистрирован: 16.10.2012
  • Сообщений: 10

Re: Примечания в заголовок

Всё, задача решена, достаточно просто

В строку
.Range.InsertAfter ChrW(160) & oComm.Range.Text 
добавляем какой-либо редкий символ, и затем через поиск присваиваем ему с заменой стиль "заголовок 1"  smile