紧急请教doc书签内容位置如何设置

zengxianfeng 2003-12-18 11:32:16

用word的书签要实现如下功能：

doc.Bookmarks.Item("abc").Range.Text ="这些字靠左边" '靠左边
doc.Bookmarks.Item("abc").Range.Text =vbCrLf '换行
doc.Bookmarks.Item("abc").Range.Text ="这些字靠中间" '靠中间
doc.Bookmarks.Item("abc").Range.Text =vbCrLf '换行
doc.Bookmarks.Item("abc").Range.Text ="这些字靠右边" '靠右边
doc.Bookmarks.Item("abc").Range.Text =vbCrLf '换行

以上内容要求显示在同一个书签abc中，我试过用doc.Bookmarks.Item("abc").Range.Font.Position来设置，好象不行，高手知道请指点啊，谢谢！

...全文

35 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

SoHo_Andy 2003-12-20

打赏
举报

你可以在左中右三个位置上定义书签，就不用为了这个问题发愁了

zengxianfeng 2003-12-20

打赏
举报

因为要在书签里加入的东西是动态的、个数不确定的，

zengxianfeng 2003-12-20

打赏
举报

那样还是不行的，我要输出的是左、右、左、右、右而且数量是不确定的，左右的出现也没规律（要根据内容来输出）。

SoHo_Andy 2003-12-19

打赏
举报

测试通过，这样就行了
aaa 为自定义的书签名
Private Sub Command1_Click()
Dim WordTemps As New Word.Application
WordTemps.Documents.Add "d:\aa.doc", False

Dim str1 As String
str1 = "这些字靠左边" & vbCrLf
str1 = str1 & "这些字靠中间" & vbCrLf
str1 = str1 & "这些字靠右边" & vbCrLf

WordTemps.Selection.Goto wdGoToBookmark, , , "aaa"
WordTemps.Selection.TypeText str1

WordTemps.Visible = True
End Sub

SoHo_Andy 2003-12-19