http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FWord%2FWord_Bookmark
VBA/Excel/Access/Word/Word/Word Bookmark - История изменений
2026-04-07T14:48:06Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Word/Word_Bookmark&diff=1810&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Word/Word_Bookmark&diff=1811&oldid=prev
Admin: 1 версия
2010-05-26T12:48:04Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Bookmarks==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub UseBookmarks()<br />
Dim myArray()<br />
Dim wdBkmk As String<br />
<br />
Dim wdApp As Word.Application<br />
Dim wdRng As Word.Range<br />
myArray = Array("To", "CC", "From", "Subject")<br />
Set wdApp = GetObject(, "Word.Application")<br />
<br />
Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(0)).Range<br />
wdRng.InsertBefore ("B")<br />
Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(1)).Range<br />
wdRng.InsertBefore ("T")<br />
Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(2)).Range<br />
wdRng.InsertBefore ("M")<br />
Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(3)).Range<br />
wdRng.InsertBefore ("F")<br />
<br />
Set wdApp = Nothing<br />
Set wdRng = Nothing<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Bookmarks can also be used as markers for bringing in charts created in Excel==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub CreateMemo()<br />
Dim myArray()<br />
Dim wdBkmk As String<br />
<br />
Dim wdApp As Word.Application<br />
Dim wdRng As Word.Range<br />
myArray = Array("To", "CC", "From", "Subject", "Chart")<br />
Set wdApp = GetObject(, "Word.Application")<br />
<br />
Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(0)).Range<br />
wdRng.InsertBefore ("B")<br />
Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(1)).Range<br />
wdRng.InsertBefore ("T")<br />
Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(2)).Range<br />
wdRng.InsertBefore ("M")<br />
Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(3)).Range<br />
wdRng.InsertBefore ("F")<br />
<br />
Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(4)).Range<br />
ActiveSheet.ChartObjects("Chart 1").Copy<br />
wdRng.PasteAndFormat Type:=wdPasteOLEObject<br />
<br />
wdApp.Activate<br />
<br />
Set wdApp = Nothing<br />
Set wdRng = Nothing<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Strip Hyperlinks Bookmarks Fields==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Option Explicit<br />
Function Strip_Hyperlinks_Bookmarks_Fields()<br />
Dim myLink As Hyperlink<br />
Dim myBookmark As Bookmark<br />
Dim myField As Field<br />
With ActiveDocument<br />
For Each myLink In .Hyperlinks<br />
myLink.Delete<br />
Next myLink<br />
For Each myBookmark In .Bookmarks<br />
myBookmark.Delete<br />
Next myBookmark<br />
For Each myField In .Fields<br />
myField.Unlink<br />
Next myField<br />
End With<br />
End Function<br />
</source></div>
Admin