Я передаю данные Excel в документ Word с помощью Excel VBA. При этом у меня много закладок в Word. Иногда мне нужно извлечь одно и то же значение из Excel и передать его в несколько закладок в документе Word. Могу ли я использовать одну закладку вместо нескольких?

Dim totalCount As String
wdApp.Selection.GoTo what:=-1, Name:="Total_tickets"
totalCount = Format(shSLA.Range("E4").End(xlDown).Value)
wdApp.Selection.TypeText totalCount


Dim totalResponded As String
wdApp.Selection.GoTo what:=-1, Name:="Closed_tickets"
totalResponded = Format(shSLA.Range("M4").End(xlDown).Value)
wdApp.Selection.TypeText totalResponded


Dim totalOpen As String
wdApp.Selection.GoTo what:=-1, Name:="Pending_tickets"
totalOpen = Format(shSLA.Range("R4").End(xlDown).Value)
wdApp.Selection.TypeText totalOpen


''Reusing the same variables for different bookmarks now.
wdApp.Selection.GoTo what:=-1, Name:="Service_Request_Summary_TotaA"
wdApp.Selection.TypeText totalCount

wdApp.Selection.GoTo what:=-1, Name:="Service_Request_Summary_TotaB"
wdApp.Selection.TypeText totalCount


wdApp.Selection.GoTo what:=-1, Name:="Service_Request_Summary_Resolved"
wdApp.Selection.TypeText totalResponded


wdApp.Selection.GoTo what:=-1, Name:="Service_Request_Summary_Pending"
wdApp.Selection.TypeText totalOpen

1 ответ1

1

В документе Word вы можете создать одну закладку, а затем сделать перекрестную ссылку на текст закладки.

Таким образом, вы должны создать / установить закладку для определенного значения в одном месте, а затем (вместо создания нескольких других закладок для одного и того же значения) в другом месте, где вы хотите, чтобы одно и то же значение появлялось, вставлять перекрестные ссылки. В диалоговом окне «Перекрестная ссылка» просто измените «Тип ссылки» (верхний левый выпадающий список) на «Закладка» и «Вставить ссылку на (верхний правый выпадающий список)» на текст «Закладка».

Затем, когда вы обновите все поля в вашем документе (ctrl A, затем F9), перекрестные ссылки будут обновлены до того же значения, что и одна закладка.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .