InputBox error

Guessed · #1 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

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