向一直阅读我彼此相似的问题的人们表示歉意。 我才刚刚开始,所以最终会有一些点击。

好的,我想消除形状之间的任何间隙(不是单词/字母)。 即,如果我在连续的行上有两个小形状,我想删除换行符。

我尝试了这个:

Sub RemovePicGaps()
    wrdDoc.Content.Select

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

    With Selection.Find
        .Text = "^13([!A-Za-z]@)^13"
        .Replacement.Text = "\1^p"

        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = True
    End With

GoHere:
    Selection.Find.Execute Replace:=wdReplaceAll
    If Selection.Find.Execute = True Then
        GoTo GoHere
    End If

End Sub

但是它与我想要的不匹配,如果可能的话,我宁愿有一些特定于图片的内容(而不只是“不是字母”)。

编辑:他想发生的事情:这:在此处输入图片说明

到:在此处输入图片说明

对于那些感兴趣的人,这些是口腔解剖的图片。 非常令人兴奋的无聊。

  ask by JoshDG translate from so

本文未有回复,本站智能推荐:

1回复

使用vba代码缩进段落后,Word文档无法直观反映更改

我在Word 2010中有一个简单的vba代码: 它的功能很好,可以满足我的需求,并且可以将其与快捷键关联。 但是我试图找出它的最后一个故障。 当我使用它时,该段落会缩进,但在视觉上无法在文档中正确刷新。 我必须滚动以使文本不可见,然后再滚动回去。 (使Word重新呈现的任何操作
2回复

Word中的VBA样式段落

我正在尝试从Excel文档格式化Word文档。 我正进入(状态 运行时错误5941:集合中所请求的成员不存在。 我只是想将第二段样式设置为Normal内置样式。 我缺乏经验可能表明。 问题似乎出在段落选择上,但是我不完全确定该怎么做。 编辑:我现在正在尝试寻找更改同一行格式的最佳方法。
1回复

VBA Word查找/段落复制

当前,我正在尝试打开一个Word文档,查找某个单词(在本例中为“ Description”),然后在下面两行并复制下面的段落。 这是代码: 当我尝试运行它时(当前的Selection.MoveDown部分被注释掉了),我得到了450错误或Excel的弹出窗口,提示“ Microso
1回复

VBA WORD标识段落是列表还是表

我有以下代码: 因此,我需要知道当前段落是否为LIST和TABLE。 谢谢。
2回复

Word VBA:删除段落标记

我有一些代码可以根据选择自动检测某些文本并将其放置在用户表单上。 我面临的问题是删除结尾的段落标记。 (参见下图): 我已经尝试了以下和其他变体,但是无法删除结尾的段落标记: 最后,我知道我可以使用Left(Selection,Len(Selection)-1) ,但
2回复

用MS Word中的vba粗体显示段落

我在MS WORD中用粗体显示了一段的内容。 我正在逐段构建文档。 我只想在其中之一中加粗一个数字。 该编号可能在文档中出现多次,但在此特定段落中应仅加粗一次。 例: 我的第一段。 我的第二段。 我的电话是123 。 我使用以下代码访问段落: 我不知道
1回复

Word VBA-删除特定段落内的形状

我正在尝试删除以前搜索过的特定章节中的图片。 有人可以指出正确的方法吗...这是我到目前为止编写的代码。
1回复

Word VBA下一个段落样式未更新

我毫不客气地录制了一个宏来修改默认标题样式2-5,以将其.NextParagraphStyle更改为我自己制作的名称,称为Normal_lvl2,Normal_lvl3等: 问题是,当我运行宏或手动设置行样式时,文档实际上并没有更新下一个段落样式。 新样式对于实际的标题行工作正常,但下
2回复

VBA Word-遍历段落以设置样式

我有一个简单的脚本,它以某种字符开头并设置了所有段落的样式。 容易,我想。 它将更改所有段落,使其具有与“详细信息”样式相同的属性。 但是出于某种原因,只有最后一段以“ Details”作为样式结尾,而所有段落都回到“ Normal”。 到目前为止,这是我的代码: 我想让它们与样
1回复

Word VBA宏:用段落替换新行

我需要在Word宏中执行以下操作。 我需要遍历Word文档并根据其参数更改某些段落。 如果段落的字体大小为19.5,则该段落的标题必须为样式1。下一个段落将为标题2,其后的下一个标题为标题3。其他文本将保持样式为“正常”。 编写以下宏: 问题在于,有时文本包含一个段落,有时