Word文件文字翻译问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师们

做了一个文字翻译跟文档翻译的应用。

是调用百度翻译的API来进行翻译的。

关于文档翻译，目前已经做好了Excel的翻译功能。但是在Word的翻译上一直出问题。

各位老师能否帮忙看下。

我使用过for each 文档的所有段落。然后每个段落拿去API上翻译回来替换上去。但是他翻译回来的内容会全部合并到一个段落去了。

如果有空白的段落还会报错。

If path.Contains(".doc") Then

Dim app As New MSWord.Application

Try

Dim doc = app.Documents.Open(path)

Dim SenCount As Integer = Doc.Sentences.Count '取得所选内容的句子数

Dim K As Integer

For k = 1 To sencount

Dim strs As String = doc.paragraphs(k).range.text

If strs.Length > 1 Then

doc.paragraphs(k).range.text = Functions.Execute("translation_language",strs,s,r)

End If

strs = ""

rpath = "c:\reports\test.doc"

Doc.Save(rpath)

Doc.Close

app.Quit

Catch ex As exception

下载信息 [文件大小：下载次数： ]
点击浏览该文件:翻译.foxdb

msgbox(ex.message)

Finally

End Try

End If

具体了可以查看附件

Sentences是句子不是段落：https://www.baidu.com/s?wd=Sentence%20paragraph

For Each k As Object In Doc.Paragraphs

Dim strs As String = k.range.text

If strs.Length > 1 Then

k.range.text = Functions.Execute("translation_language",strs,s,r)

End If

strs = ""

我试过遍历段落。例如有4段文字，他返回的结果会把4段文字合并成了一段。

例如遍历第一段文字，正常的。

遍历第二段文字的时候会变成第一段 & 第二段文字。最后就全部变成了一段。

所以我才试下循环句子，循环句子就不会这种情况了。但是空白的段落就会报错。

网上搜了一下好像是替换段落文字后会取消段落的格式，需要替换前记录一下格式，然后替换后重设段落格式：https://www.656463.com/wenda/CthzfczdwbggWordzddlgshczcxj_156

非常感谢老师。

这个帮助完美的帮我解决了段落替换。

现在测试中又发现一个问题，就是Wrod里出现了单元格之类的非文字段落就会报错。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.zip

网上搜索，说是不能使用段落遍历表格，会出错，至于解决方法没找到

老师找到方法了。

因为翻译只需要获取到文字，然后拿文字去翻译回来再覆盖。

所以不需要试用段落。

使用 content = doc.content.text

这句可以获取Word的全部文档内容。

然后再拆分成数组，循环数组去翻译。再使用查找替换。

现在还有一个小问题了，就是拿文字去翻译，需要去掉前后空格，但是翻译完成后替换也没有了前后空格，这样位置就不对了。

还要再查查

主题：Word文件文字翻译问题