论坛 › 已解决问题区 › 【已解决】word操作，如何换行

种菜砍柴 发表于 2016-6-28 16:58:15

【已解决】word操作，如何换行

本帖最后由 种菜砍柴 于 2016-6-29 14:07 编辑

按照以下代码，只能把这三行写到一起，没有换行，求教word如何换行呢？多谢！！！

$word = ObjCreate("word.application")
$word.visible = True
Dim $doc

With $word
      $doc=.documents.add
      $doc.application.selection.range.text="dsadasdasd"
                $doc.application.selection.range.text="dsadasdasd"
                $doc.application.selection.range.text="dsadasdasd"
EndWith

ma395311229 发表于 2016-6-29 11:03:49

$word = ObjCreate("word.application")
$word.visible = True
Dim $doc

With $word
      $doc=.documents.add
      $doc.application.selection.range.text="dsadasdasd"&@CRLF
                $doc.application.selection.range.text="dsadasdasd"&@CRLF
                $doc.application.selection.range.text="dsadasdasd"&@CRLF
EndWith

mysiap 发表于 2016-6-29 12:54:53

學習了。原來是這樣子。{:1_501:}

种菜砍柴 发表于 2016-6-29 14:06:42

多谢指教{:face (427):}

查看完整版本: 【已解决】word操作，如何换行