VBA做界面，录入书签，支持格式内容设定

tengshj

我在做word模板的时候，对标题，项目，类型，厂商，以及页眉页脚进行了书签的设定，目的是实现，一次输入，处处相同。
为了防止模板使用人员，不知道哪儿是书签的定义的点，我使用了域-ask来在文档开始的时候对各个书签进行定义。
但是，书签数量比较多，所以，窗口不停的跳出，每个都需要确认和关闭，很麻烦。
不知道，是否可以用VBA设计一个界面，在文档打开的时候，自动跳出，并收集各个书签的数值和内容，而后，在文件相应的部位，统一更新，并保持一致。

谢谢

daibao88

搜索一下Document_Open和用户窗体，也许会有所收获。

tengshj

昨晚搞了一会儿，基本搞定

tengshj

出现了一个新问题，我测试的时候，使用了一个空白文档，三个书签均无内容，vba报错。修改后还是不行，请各位专家帮忙看看。
Private Sub UserForm_Initialize()

Dim BMRange1 As Range, BMRange2 As Range, BMRange3 As Range

Set BMRange1 = ActiveDocument.Bookmarks("title").Range '将书签内容赋予变量
If IsNull(BMRange1.Text) = True Then
Set BMRange1 = Empty '如果指定书签内容为空，则向其赋一个长度为空白的值
ActiveDocument.Bookmarks.Add "title", BMRange1 '重新生成书签内容
End If

Set BMRange2 = ActiveDocument.Bookmarks("company").Range '将书签内容赋予变量
If IsNull(BMRange2.Text) = True Then
Set BMRange2 = Empty '如果指定书签内容为空，则向其赋一个长度为空白的值
ActiveDocument.Bookmarks.Add "company", BMRange2 '重新生成书签内容
End If

Set BMRange3 = ActiveDocument.Bookmarks("project").Range '将书签内容赋予变量
If IsNull(BMRange3.Text) = True Then
Set BMRange3 = Empty '如果指定书签内容为空，则向其赋一个长度为空白的值
ActiveDocument.Bookmarks.Add "project", BMRange3 '重新生成书签内容
End If

'Set BMRange1 = ActiveDocument.Bookmarks("title").Range '将书签内容赋予变量
'Set BMRange2 = ActiveDocument.Bookmarks("company").Range '将书签内容赋予变量
'Set BMRange3 = ActiveDocument.Bookmarks("project").Range '将书签内容赋予变量

TextBox1.Value = BMRange1.Text '将书签变量的内容赋予文本框
TextBox2.Value = BMRange2.Text '将书签变量的内容赋予文本框
TextBox3.Value = BMRange3.Text '将书签变量的内容赋予文本框

End Sub

Private Sub CommandButton1_Click()

Dim BMRange1 As Range, BMRange2 As Range, BMRange3 As Range

'Set BMRange1 = ActiveDocument.Bookmarks("title").Range '将书签内容赋予变量
'Set BMRange2 = ActiveDocument.Bookmarks("company").Range '将书签内容赋予变量
'Set BMRange3 = ActiveDocument.Bookmarks("project").Range '将书签内容赋予变量

Set BMRange1 = ActiveDocument.Bookmarks("title").Range '将书签内容赋予变量
If IsNull(BMRange1.Text) = True Then
Set BMRange1 = Empty '如果指定书签内容为空，则向其赋一个长度为空白的值
ActiveDocument.Bookmarks.Add "title", BMRange1 '重新生成书签内容
End If

Set BMRange2 = ActiveDocument.Bookmarks("company").Range '将书签内容赋予变量
If IsNull(BMRange2.Text) = True Then
Set BMRange2 = Empty '如果指定书签内容为空，则向其赋一个长度为空白的值
ActiveDocument.Bookmarks.Add "company", BMRange2 '重新生成书签内容
End If

Set BMRange3 = ActiveDocument.Bookmarks("project").Range '将书签内容赋予变量
If IsNull(BMRange3.Text) = True Then
Set BMRange3 = Empty '如果指定书签内容为空，则向其赋一个长度为空白的值
ActiveDocument.Bookmarks.Add "project", BMRange3 '重新生成书签内容
End If

BMRange1 = TextBox1.Value '将文本框的内容赋予书签变量
BMRange2 = TextBox2.Value '将文本框的内容赋予书签变量
BMRange3 = TextBox3.Value '将文本框的内容赋予书签变量

ActiveDocument.Bookmarks.Add "title", BMRange1 '重新生成书签内容
ActiveDocument.Bookmarks.Add "company", BMRange2 '重新生成书签内容
ActiveDocument.Bookmarks.Add "project", BMRange3 '重新生成书签内容

Unload UserForm1

End Sub

tengshj

我修改了一下编码，现在如果文本开始没有定义任何书签也不会报错。
但是问题是。
1. 生成的书签连在一起，及：第二个书签涵盖了第一个书签的内容，第三个书签涵盖了第一，二个书签的内容。我试图在生成每个书签后插入文字或者空格进行隔离，但是没有用。
2. 每次打开文件（运行vba），如果不做任何操作，只是点击确认，书签的内容会一次次的累加，第一次打开文件书签是AAA，第二次打开文件，不做任何修改，书签变成了AAAAAA

详情见附件，请指教

zhanglei1371

tengshj 发表于 2020-1-31 17:19
我修改了一下编码，现在如果文本开始没有定义任何书签也不会报错。
但是问题是。
1. 生成的书签连在一起 ...

问题的原因在于三个range连在一起了，这样改变内容时容易导致range的重叠。
range最好不要连在一起，可以中间用个空格分开就不会有问题了。当然，本例的情况也可以通过修改range首尾位置来修正：

1. Private Sub CommandButton1_Click()
   
2. Dim BMRange1 As Range, BMRange2 As Range, BMRange3 As Range
   
3.     '将书签内容赋予变量
   
4.     Set BMRange1 = ActiveDocument.Bookmarks("title").Range
   
5.     Set BMRange2 = ActiveDocument.Bookmarks("company").Range
   
6.     Set BMRange3 = ActiveDocument.Bookmarks("project").Range
   
7.     '将文本框的当前内容赋给书签变量
   
8.     BMRange1.Text = TextBox1.Value
   
9.    
   
10.     BMRange2.Text = TextBox2.Value
    
11.     BMRange1.SetRange BMRange1.Start + Len(TextBox2.Value), BMRange1.End '修正结束点位置
    
12.     BMRange3.Text = TextBox3.Value
    
13.     BMRange2.SetRange BMRange2.Start + Len(TextBox3.Value), BMRange2.End '修正结束点位置
    
14. 
    
15.     '重新生成书签内容
    
16.     ActiveDocument.Bookmarks.Add "title", BMRange1
    
17.     ActiveDocument.Bookmarks.Add "company", BMRange2
    
18.     ActiveDocument.Bookmarks.Add "project", BMRange3
    
19.     ActiveDocument.Fields.Update
    
20.     Unload UserForm1
    
21. End Sub

复制代码

书签录入测试.rar (32.4 KB, 下载次数: 15)

2020-2-1 12:33 上传

点击文件名下载附件

tengshj

zhanglei1371 发表于 2020-2-1 12:34
问题的原因在于三个range连在一起了，这样改变内容时容易导致range的重叠。
range最好不要连在一起，可 ...

，这个加空格的解决的方法，简直是出乎意料。完全想不到。。怎么感觉更像个bug。

还是end的方法比较高大上。

tengshj

zhanglei1371 发表于 2020-2-1 12:34
问题的原因在于三个range连在一起了，这样改变内容时容易导致range的重叠。
range最好不要连在一起，可 ...

再问一个问题，为什么BMRange1的end的修正，在BMRange2赋值之后？而不是在BMRange1赋值之后马上做呢？不会出现问题吗？
或者可以在BMRange1~3赋值全部完成之后，在一起做end的修正吗？

谢谢

tengshj

zhanglei1371 发表于 2020-2-1 12:34
问题的原因在于三个range连在一起了，这样改变内容时容易导致range的重叠。
range最好不要连在一起，可 ...

在使用时出现两个问题。
1. 书签内容有空格时，会出现不能完全读取书签内容
2. 文档多次打开修改时，书签内容的最后会每次都加一个硬回车

zhanglei1371

tengshj 发表于 2020-2-1 14:20
再问一个问题，为什么BMRange1的end的修正，在BMRange2赋值之后？而不是在BMRange1赋值之后马上做呢？不 ...

因为刚刚赋值之后其没有变化；BMRange2赋值之后其值才发生了变动。可以通过debug.print BMRange1.text来随时追踪观察值的变化来得知。