InputBox error

Guessed · #7 05-13-2022, 11:14 PM

Naming the bookmarks with the current number is not a great idea so you could use three alternatives:
1. Generate a random string like Microsoft do
2. Generate a DateHourMinSecond string which starts with a letter (bookmarks can't start with a number)
3. Use the caption words in some way eg. SEaspect, NEaspect

Putting text into the callout balloon works like this

Code:

Sub TestCreateCaptionBubble()
  'Pastes a caption bubble and inserts reference to a photo number
  Dim aRng As Range, sTmp As String, aShp As Shape
  sTmp = "C:\Users\Philip Browne\AppData\Roaming\Microsoft\Document Building Blocks\1033\16\Building Blocks.dotx"
  Set aRng = Application.Templates(sTmp).BuildingBlockEntries("3").Insert(Where:=Selection.Range, RichText:=True)
  Debug.Print aRng.ShapeRange.Count
  Set aShp = aRng.ShapeRange(1)
  aShp.TextFrame.TextRange.Text = "Refer photo xx"
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
vba inputbox method problems	jmcsa3	Excel Programming	2	08-26-2020 09:02 AM
Macro to add terminology via inputbox	ZiggyPop	Word VBA	0	03-07-2017 04:06 AM
InputBox selects rows	Dave T	Excel Programming	5	09-05-2016 06:58 AM
VBA Macro for word with Inputbox	ryanch69	Word VBA	2	12-03-2015 07:45 AM
Idiot Proof Entry with InputBox	arpirnat	Word VBA	1	04-27-2015 10:03 PM