如何找到Word中某个字符或者汉字的range对象的位置

[shiter]

如题，用Wordapp.selection. inlineshap. Addpicture
怎么插入这个图片到，Word中比如标题一之前

找到某个地方字符，返回他的range


http://bbs.csdn.net/topics/392076569


两个帖子分加起来！

期待大牛

[stherix]

遍历ActiveDocument内所有的Paragraphs的Range, 取Text for(var i=1;i<=WordApp.ActiveDocument.Paragraphs.Count;i++) { var range=WordApp.ActiveDocument.Paragraphs[i]; //range.Text } 判断是否为你需要的标题就行吧,然后 object LinkToFile = false; object SaveWithDocument = true; object Anchor = xxx.Range; ActiveDocument.InlineShapes.AddPicture(imageFilePath, ref LinkToFile, ref SaveWithDocument, ref Anchor); 不过office COM接口的效率很低,速度可能比较慢

[stherix]

上面应该为 var range=WordApp.ActiveDocument.Paragraphs[i].Range;

[shiter]

引用 2 楼 stherix 的回复:

上面应该为 var range=WordApp.ActiveDocument.Paragraphs[i].Range;

如果不遍历呢？这个字符我确定是唯一的，有没有可以查找的

[stherix]

引用 3 楼 wangyaninglm 的回复:

[quote=引用 2 楼 stherix 的回复:] 上面应该为 var range=WordApp.ActiveDocument.Paragraphs[i].Range;

如果不遍历呢？这个字符我确定是唯一的，有没有可以查找的[/quote] 从一个字符反推Range估计只能遍历 如果只是要从一个自己定义的word模版,插入数据和图片生成最终报表 可以试试用其他方法实现,比如在那个位置插入一个书签,然后遍历书签就快很多,当然用空无边框表格也可以

[stherix]

想到个办法 就是用查找的办法,下面是VBA宏 Selection.Find.ClearFormatting With Selection.Find .Text = "需要查找的文字" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute 就可以对 Selection.Range进行操作了

[shiter]

引用 5 楼 stherix 的回复:

想到个办法 就是用查找的办法,下面是VBA宏 Selection.Find.ClearFormatting With Selection.Find .Text = "需要查找的文字" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute 就可以对 Selection.Range进行操作了

高手，我这个是用python调用com接口， 似乎可以用bookmark实现： def insertpicture(bookmark,picturepath): if WordApp.ActiveDocument.BookMarks.Exists(bookmark): WordApp.ActiveDocument.BookMarks(bookmark).Select() WordApp.Selection.InlineShapes.AddPicture(picturepath)