Я изменил комментарии к воздушным шарам на сноски, тоже взяв имя автора. Мне нужно, чтобы имя автора было выделено жирным шрифтом, но я не могу получить код для чтения сносок. Моя проблема в настройке: oFootnote
Я пытался вызвать strAuthor и выделить его жирным шрифтом, но, поскольку он больше не является комментарием. Автор, я больше не могу установить его, так как он теперь находится в сноске. Я пробовал много примеров в Интернете, но я просто не могу заставить их работать:
StackOverflow's Как сделать строку жирным шрифтом; Вставьте жирный текст в Word, используя VBA
также
Set oFootnote = oDoc.Footnotes.Add(Range:=Selection.Range, Text:="Some text")
Я стажер, поэтому, пожалуйста, не судите меня слишком строго
'Convert comments to footnotes with Author name in bold
Dim i As Long
Dim oDoc As Document
dim oComment as Comments
Dim oFootnote As Footnotes
'Document is the ActiveDocument
Set oDoc = Application.ActiveDocument
'the author's name needs to be bold (the last two words in each footnote)
Set oFootnote = oDoc.Footnotes
With oFootnote
Selection.Range.Words.Last.Words (2)
'Make the last two words bold'
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Font.bold = True
End With
End With
Selection.Find.Execute
'Set oFootnote = Nothing
Next
Я пытался
Set oFootnote = oDoc.Footnotes Range:=Selection.Words.Last.Words(2)
но ему не нравится "Range: = onwards", поэтому я сделал
Selection.Range.Words.Last.Words (2) invalid use of a property