将word中的脚注转成正文问题

goldbridge · 发表于 2023-3-22 10:03

写的代码报错，报错代码：para.Range.PasteAndFormat wdFormatOriginalFormatting，提示此方法或属性无效，因为对象跨越了一个图文框或注释边界。代码如下（附件是测试文件）：

Dim doc As Document
Set doc = ActiveDocument
Dim rng As Range
For Each rng In doc.StoryRanges
If rng.Footnotes.Count > 0 Then
      Dim ft As Footnote
      For Each ft In rng.Footnotes
         '将脚注内容复制到脚注所在段落的末尾，并保留脚标
         'ft.Range.Select
         ft.Range.Copy
         Dim para As Paragraph
         Set para = ft.Range.Paragraphs.Last
         para.Range.Collapse wdCollapseEnd
         para.Range.PasteAndFormat wdFormatOriginalFormatting
         '删除原有的脚注
         ft.Delete
      Next ft
End If
Next rng

goldbridge · 发表于 2023-3-23 14:26

有大侠支持一下吗？

batmanbbs · 发表于 2023-3-23 16:22

本帖最后由 batmanbbs 于 2023-3-23 16:31 编辑

不太了解脚注及其编号，也不太明白楼主为啥要把脚注放到正文对应段落的结尾处。
学着编写一段代码，把脚注放在对应的正文位置：D

batmanbbs · 发表于 2023-3-23 16:28

Sub 脚注转正文()
Dim i%
With ActiveDocument
Count = .Footnotes.Count
If Count > 0 Then
For i = Count To 1 Step -1
With .Footnotes(i)
.Reference.InsertAfter "[" & i & "：" & .Range & "]"
.Range.Delete ' 保留脚标（不保留直接用 .Delete）
End With
Next i
End If
End With
End Sub

复制代码

goldbridge · 发表于 2023-3-23 17:00

batmanbbs 发表于 2023-3-23 16:22
不太了解脚注及其编号，也不太明白楼主为啥要把脚注放到正文对应段落的结尾处。
学着编写一段代码，把脚注 ...

谢谢兄弟回复，你这个代码与我的需求有点差异，我是希望实现：
1）正文中的角标以正文的形式保留
2）底部的脚注内容还以正文的形式保留在底部位置，而不是插入到正文角标的后面

我这个需求有点反人类，但确实需要这样搞

batmanbbs · 发表于 2023-3-23 17:24

goldbridge 发表于 2023-3-23 17:00
谢谢兄弟回复，你这个代码与我的需求有点差异，我是希望实现：
1）正文中的角标以正文的形式保留
2）底 ...

说实在的还是没有听懂，能放一个处理后的样本或截图吗

goldbridge · 发表于 2023-3-24 08:32

batmanbbs 发表于 2023-3-23 17:24
说实在的还是没有听懂，能放一个处理后的样本或截图吗

感谢回复，我基于第一楼的附件，手工做了一个成品，请帮我看看能不能通过vba自动实现这样的效果

batmanbbs · 发表于 2023-3-24 09:42

本帖最后由 batmanbbs 于 2023-3-24 13:15 编辑

优化了一下。PS：我仍保留原来的脚注功能，只是按照你的要求，设置了相关的字号和段落格式，效果应该和你的样本一样。这样的好处是不会影响排版。比如你的样本重新进行排版后，最后一个段落的最后一行如果跑到了下一页，文档整体排版会自动调整。但如果把脚注变成正文就会乱套，你自己可以试一下。

batmanbbs · 发表于 2023-3-24 09:46

本帖最后由 batmanbbs 于 2023-3-24 12:44 编辑

<div class="blockcode"><blockquote>Sub 格式化脚注()
Dim Count%, i%
With ActiveDocument
Count = .Footnotes.Count
If Count > 0 Then
With ActiveWindow.ActivePane.View ' 切换视图模式
ViewType = .Type
If ViewType <> wdPrintView Then .Type = wdPrintView
.SeekView = wdSeekFootnotes
End With
With Selection
.WholeStory
With .Font ' 设置脚注字体格式
.Name = "宋体"
.Size = 11
.Superscript = False ' 取消上下标（你的文档中最后一个脚注序号是上标）
End With
With .ParagraphFormat ' 设置脚注段落格式
.CharacterUnitFirstLineIndent = 1
.CharacterUnitLeftIndent = 0
.FirstLineIndent = 0
.LeftIndent = 0
.LineSpacingRule = wdLineSpaceSingle
End With
End With
For i = 1 To Count
.Footnotes(i).Range.InsertBefore "."
Next i
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End If
End With
End Sub

复制代码

goldbridge · 发表于 2023-3-28 08:48

batmanbbs 发表于 2023-3-24 09:46

感谢回复，还有一点小问题，能不能将正文中的角标转成普通的上标，但保留底部的注释（上面样例中的就是这样），再次感谢回复

		自动登录	找回密码
密码			免费注册

[求助] 将word中的脚注转成正文问题

评分

评分