如何将确切的字符串复制到另一个文档?

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (1)
  • 关注 (0)
  • 查看 (66)

我需要复制一个总是以确切的字符串“p1”开头的单词,并将该单词复制到另一个文档中的一个表中。然后复制一个句子,总是在精确的字符串之间,并将该句子复制到同一个表中。

让我举个例子来解释一下。以下是我需要复制的几段文字:

variable labels p1consid 'SDQ: Considerate (Parent1)'.

variable labels p1restles 'SDQ: Restless (Parent1)'.

variable labels p1somatic 'SDQ: Headache, stomach-ache (Parent1)'.

因此,“p1cond”应该转到表的第1列,"SDQ: Considerate (Parent1)"应该转到同一表的第2列。

第1栏

p1consid

p1restles

p1somatic

第2栏

SDQ: Considerate (Parent1)

SDQ: Restless (Parent1)

SDQ: Headache, stomach-ache (Parent1)

谢谢

提问于
用户回答回答于

这段代码中有很多假设,但首先尝试一下。

它假定源文档格式与你所描述的相同,并且目标文档中存在一个2列表。该表是第一个表,没有标题行,它是一个单行表。

Sub CopyStrings()
Dim docSrc As word.Document, docDst As word.Document
Dim rng As word.Range, tbl As word.Table, tRng As word.Range
Set docSrc = Documents.Open("Your Source Doc")
Set docDst = Documents.Open("Your Destination Doc")
Set rng = docSrc.Content
Set tbl = docDst.Content.Tables(1)
With rng.Find
    .ClearFormatting
    .Format = False
    .Forward = True
    .Text = "p1"
    .Wrap = wdFindStop
    .Execute
    Do While .found
        rng.MoveEnd word.WdUnits.wdWord, Count:=1
        Set tRng = tbl.rows(1).Cells(1).Range
        tRng.MoveEnd word.WdUnits.wdCharacter, Count:=-1
        tRng.Collapse word.WdCollapseDirection.wdCollapseEnd
        tRng.Text = rng.Text & vbCr
        rng.Collapse word.WdCollapseDirection.wdCollapseEnd
        rng.MoveStart word.WdUnits.wdWord, Count:=1
        rng.MoveStart word.WdUnits.wdCharacter, Count:=1
        rng.MoveEnd word.WdUnits.wdParagraph, Count:=1
        Set tRng = tbl.rows(1).Cells(2).Range
        tRng.MoveEnd word.WdUnits.wdCharacter, Count:=-1
        tRng.Collapse word.WdCollapseDirection.wdCollapseEnd
        tRng.Text = rng.Text
        rng.Collapse word.WdCollapseDirection.wdCollapseEnd
        .Execute
    Loop
End With
End Sub

所属标签

可能回答问题的人

  • 应用案例分享

    1 粉丝490 提问5 回答
  • uncle_light

    5 粉丝518 提问4 回答
  • o o

    4 粉丝495 提问4 回答
  • 学生

    8 粉丝476 提问3 回答

扫码关注云+社区

领取腾讯云代金券

玩转腾讯云 有奖征文活动